Discussion :

[sfourre]

Bonjour à tous

Je souhaite récupérer des données dans classeur fermé
Pour ce faire, je charge une COMBOBOX avec le nom des onglets...

Lorsque je lance le code suivant :

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
31
32
 
Private Sub btnImport_Click()
Dim obFdOpen As FileDialog
Dim wbFicImport As Workbook
Dim szFicNom As String
Dim inNbOnglets As Integer
Dim inbcl As Integer
 
'Ouverture du fichier à importer
Set obFdOpen = Application.FileDialog(msoFileDialogOpen)
obFdOpen.Title = "Ouvrir un fichier sur lequel importer des onglets"
If obFdOpen.Show = -1 Then
    szFicNom = obFdOpen.SelectedItems(1)
Else
    Exit Sub
End If
 
Me.FrameImporter.Visible = True
Me.ioLabel.Visible = True
Me.cbOnglets.Visible = True
Me.btnImportOnglet.Visible = True
 
Set wbFicImport = Workbooks.Open(szFicNom)
 
inNbOnglets = wbFicImport.Sheets.Count
For inbcl = 1 To inNbOnglets
    Me.cbOnglets.AddItem = wbFicImport.Sheets(inbcl).Name
Next
 
wbFicImport.Close
 
End Sub

Au lancement de la fonction suivante j'ai le message :
"Erreur de compilation
Fonction ou variable attendue"

Avec un focus sur la ligne :
Me.cbOnglets.AddItem = wbFicImport.Sheets(inbcl).Name
Avec AddItem surligné en bleu

Un petit coup de main serait le bien venu, parce que là je seiche depuis un moment...

[unparia]

Bonjour
AddItem est une méthode et non une propriété
Le signe = n'a aucun sens dans :

Code :

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

Me.cbOnglets.AddItem = wbFicImport.Sheets(inbcl).Name

[sfourre]

Parfait, merci unparia