VBA - Récupérer le nom de la 1er feuille d'un fichier excel

Logiciel & apps Programmation
1

Bonjour à tous,

Je suis en train de faire une Macro pour récupérer les données d’un autre fichier excel fermer.
Ce qui est bien c’est que c’est toujours dans la 1er feuille que les données ce trouve. Le moins bien c’est que cette feuille n’a pas toujours le même nom…

J’aimerai donc faire NomFeuille = 1er feuille de “fichier” (fichier = chemin d’accès du fichier à interroger)

Merki !

2

ça peut peut-être t’aider : excel.developpez.com…

plus di’dée icic : www.developpez.net…

3

Merci beaucoup j’ai trouvé mais en magouillant !!

Si sa peut en aider d’autres :

   
 'Nom de la feuille dans le classeur fermé
    Go = 0
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(Filename:=Fichier)

    For Each feuille In appExcel.Sheets
        If Go = 0 Then
            NomFeuille = feuille.Name
            Go = Go + 1
        End If
    Next
    wbExcel.Close
    Set wbExcel = Nothing

De cette manière le code récupére les noms des feuilles mais ne remplis que le nom de la 1er feuille dans “NomFeuille”

L’amélioration de se code serai de pouvoir remplacer la boucle… pas d’idée pour le moment mais je continu ma ptite (grosse) macro
Edité le 23/09/2011 à 16:36

4

A partir du moment où tu sais que c’est toujours la première qui t’intéresse :

Set appExcel = CreateObject(“Excel.Application”)
Set wbExcel = appExcel.Workbooks.Open(Filename:=Fichier)
Nomfeuille = appExcel.Sheets(1).name
wbExcel.Close
Set wbExcel = Nothing

5

Bonjour,

Dans ta macro, telle qu’elle est actuellement, tu peux remplacer Go = Go + 1 par simplement Go = 1 ce qui me fait dire qu’elle ne fonctionne peut-être pas comme prévu. :wink:

6

Thanks !! Sa fonctionne avec :

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(Filename:=Fichier)
Nomfeuille = appExcel.Sheets(1).name
wbExcel.Close
Set wbExcel = Nothing

Jacky67 => Bien vu aussi

Maintenant il ne me reste plus cas réussir à faire un SELECT “cellule un tel” FROM [" & NomFeuille & “$]”
Pour pouvoir remplir mes tableaux correctement (Pour le moment je copie toute la feuille)

7

Je vais créer un autre topic pour mon 2ème problème, encore merci à tous !