Discussion :

[Invité]

bonjour,
dans un form je recupere le chemin et le nom de fichier d'un classeur excel via ce code qui utilise une API telechargée dans la FAQ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Chemin = OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Excel", "xls")
Chemin.Requery

"Chemin" est un champ texte qui affiche le chemin du fichier selectionné.

Est-possible d'extraire les noms des differentes feuilles composant ce classeur afin de les obtenir en rowsource d'une liste déroulante ?
Merci d'avance.

[Heureux-oli]

Salut,

Je pense que tu passes à côté du sujet.

Ouvrir un ficher est une chose, le manipuler une autre.

Tu dois utiliser Excel pour traiter un fichier Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub NomFeuilles()
Dim xlApp As Excel.Application
Dim oDlg As FileDialog
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
 
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
 
With oDlg
    .AllowMultiSelect = False
    .InitialFileName = "*.xls"
    .Show
End With
 
 
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open(oDlg.SelectedItems(1))
 
For Each xlWs In xlWb.Worksheets
    'Récupération du nom des feuilles Excel
    Debug.Print xlWs.Name
Next xlWs
 
xlWb.Close
 
Set xlWb = Nothing
xlApp.Quit
Set xlApp = Nothing
Set oDlg = Nothing
End Sub

Tu dois ajouter à ton projet la référence à Excel et la référence aux objets Office.

[Invité]

merci Heureux Oli,
ok j'ai rajouté les refs office 11.0 object library et excel 11.0 object library. Apres debogage je n'ai pas d'erreur.
Mais le code que tu as posté, je dois l'utiliser comment ? Je le place dans un module ?

[Heureux-oli]

Salut,
Par feuille Excel, tu dois ajouter l'élément à la liste.

Tu dois aller chercher du côté de AddItem.

[User]

Comme te la expliqué heureux-oli,

tu peux poser une liste déroulante (ex:TaListe) sur un form et dans le module de ton form sur tout évènement tu mets un bout de code extrait du code de heureux-oli:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
..................
 
For Each xlWs In xlWb.Worksheets
    'Récupération du nom des feuilles Excel
 
   Me.TaListe.AddItem xlWs.Name
Next xlWs
 
..................

A+