Bonjour
J’ai une macro excel qui marche un un ordi et pas sur mon ordi portable.
La macro actualise une ComboBox .
Cette combobox contient la liste des fichiers excel contenue dans le même dossier que le fichier source.
j ai une erreur 438
voici le code ou il y l’erreur : With Worksheets(« bilan »).ComboBox1
la macro complète:
Sub Liste_Des_Fichiers()
Dim Répertoire As String
Dim Fichier As String
Dim Tblo(), A As Long
Dim valeur As String
'enlever la protection
Sheets(« bilan »).Select
Range(« G4 »).Select
ActiveSheet.Unprotect (« moi »)
'ActiveSheet.Shapes.Range(Array(« Image 102 »)).Select
'Selection.ShapeRange.ZOrder msoSendToBack
'Chemin répertoire à adapter…
Répertoire = ThisWorkbook.Path & ""
Fichier = Dir(Répertoire & « .xl »)
Do While Fichier <> « »
A = A + 1
ReDim Preserve Tblo(1 To A)
Tblo(A) = Split(Fichier, « . »)(0)
Fichier = Dir()
Loop
With Worksheets(« bilan »).ComboBox1
.Clear
.MatchEntry = fmMatchEntryComplete
.List = Application.Transpose(BubbleSort(Tblo))
End With
End Sub
merci de votre lumiere