Re : Macro, erreur d'éxecution 9
RE
,
Comme tu me l'avais précisé, j'ai changé le chemin du dossier dans la ligne suivante :
Set MonDossier = MonSystème.Getfolder("C:\Temp") en copiant-collant l'adresse de mon répertoire de fichiers sources à la place de "C:\Temp".
Et tout marche bien jusqu'à la ligne en couleur ci-dessous :
Sub test()
Dim MonSystème, MonDossier, MonFichier
Dim MonClasseur As Workbook, MaFeuille As Worksheet, Plage As Range
Set MonSystème = CreateObject("Scripting.FileSystemObject")
Set MonDossier = MonSystème.Getfolder("C:\Temp")
For Each MonFichier In MonDossier.Files
If Right(MonFichier.Name, 4) = ".xls" Then
Workbooks.Open MonFichier.Path
Set MonClasseur = ActiveWorkbook
For Each MaFeuille In MonClasseur.Worksheets
If MaFeuille.Name = "Janvier" Then
With MaFeuille
Set Plage = .Cells.SpecialCells(xlCellTypeConstants)
Set Plage = Intersect(.Range("F7:CG37"), .Range(.Range("F7"), Plage.SpecialCells(xlCellTypeLastCell)))
Plage.Copy ThisWorkbook.Sheets("Feuil1").Range("C35000").End(xlUp)
End With
End If
Next MaFeuille
MonClasseur.Close savechanges:=False
End If
Next MonFichier
End Sub
La ligne en rouge ici est surlignée en jaune quand j'utilise le débogage, puis un message d'erreur apparaît : "Erreur d'éxecution 1004 : erreur définie par l'application ou l'objet"
Peut-être qu'il y avait d'autres modifications à faire par rapport à ce que tu m'as donné?
Merci encore pour tout!