Bonjour
J’ai une erreur 438 sur excel
Avec le même fichier, il marche sur mon ordi de bureau et me marche plus sur mon ordi portable;
J’ai zone de texte qui active une macro ,cette macro VBA actualise une liste qui se déroule dans une combobox , la liste est composé des noms de fichier excel qui se trouve dans le même dossier que le fichier avec lequel je travaille
Voici la ligne ou est l’erreur
With Worksheets(« bilan »).ComboBox1
Voici le code complet
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
Belle journée