Corriger un code

Question

Bonjour, j'essaie d'executer ce code mais il ne marche, j'aimerai bien connaitre l'erreur, merci

Sub Importer()

Dim Fichier1

Fichier1 = Application.GetOpenFilename("Excel (*.xls*), *.xls*", "Sélection du fichier 1", , False)

If Fichier1 = False Then Exit Sub

Application.ScreenUpdating = False

With Workbooks.Open(Fichier1)

.Sheets("Feuil1").Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1")

.Close

End With

End Sub

Pierrot93 · Answer

Modifie comme suit : Dim Fichier1 Fichier1 = Application.GetOpenFilename("Excel (*.xls*), *.xls*", , "Sélection du fichier 1", , False) If Fichier1 = False Then Exit Sub il manquait une virgule dans les arguments de la méthode "GetOpenFilename" bonne soirée @+....