nom feuilles d'1 classeur fermé dans 1 listbox ?
Bonjour,
je voudrais inserer dans une listbox le nom des feuilles d'un classeur sans l'ouvrir.
le chemin complet du fichier est dans une 'textbox' : NomFichier1
j'essaye de bricoler à partir de ça :
Private Sub BoutonParcourir1_Click()
Dim Rep As String, Fichier
Rep = CurDir$
ChDir 'C:\\Documents and Settings\\Thierry\\Mes documents'
Fichier = Application.GetOpenFilename
If VarType(Fichier) = vbBoolean Then Exit Sub
ChDir Rep
NomFichier1.Value = Fichier
End Sub
Private Sub NomFichier1_AfterUpdate()
For Each wk In Workbooks(NomFichier1.Value)
NomFeuille1.AddItem wk.Name
Next wk
End Sub
Et la le fichier n'étant pas ouvert il ne se passe rien ... :unsure: je ne maîtrise pas trop vous pouvez m'aider ?
Message édité par: sniker, à: 28/11/2005 21:18
Bonjour,
je voudrais inserer dans une listbox le nom des feuilles d'un classeur sans l'ouvrir.
le chemin complet du fichier est dans une 'textbox' : NomFichier1
j'essaye de bricoler à partir de ça :
Private Sub BoutonParcourir1_Click()
Dim Rep As String, Fichier
Rep = CurDir$
ChDir 'C:\\Documents and Settings\\Thierry\\Mes documents'
Fichier = Application.GetOpenFilename
If VarType(Fichier) = vbBoolean Then Exit Sub
ChDir Rep
NomFichier1.Value = Fichier
End Sub
Private Sub NomFichier1_AfterUpdate()
For Each wk In Workbooks(NomFichier1.Value)
NomFeuille1.AddItem wk.Name
Next wk
End Sub
Et la le fichier n'étant pas ouvert il ne se passe rien ... :unsure: je ne maîtrise pas trop vous pouvez m'aider ?
Message édité par: sniker, à: 28/11/2005 21:18