Bonjour,
J’ai bien regardé et j’ai même demandé à plusieurs de mes collègues et nous avons rien trouvé.
Mise à part dans le module1 ou nous avons bien changé le nom du classeur sur la ligne :
Set cl = Workbooks("Classeur2.xlsm")
J’ai toujours ce message me disant qu’il ne trouve pas le Classeur1
Est-ce qu’il y a à un autre endroit du code ou un lien avec le classeur1 ?
Merci d’avance pour ton aide et ta patience.
Meilleures salutations
Code du module1
Sub un()
Application.DisplayAlerts = False
Chemin1 = "X:\Admin\FM\02-TONI\00-PROJETS FM\Exports_CD\DossierTest\Fichier de base"
Chemin2 = "X:\Admin\FM\02-TONI\00-PROJETS FM\Exports_CD\DossierTest\Fichier de base"
Chemin3 = "X:\Admin\FM\02-TONI\00-PROJETS FM\Exports_CD\DossierTest\Fichier de base"
'les chemins des fichiers (à adapter)
Workbooks.Open (Chemin1 & "\Fichier1.xlsx")
Workbooks.Open (Chemin2 & "\Fichier2.xlsx")
Workbooks.Open (Chemin3 & "\Fichier3.xlsx")
'Nommage des fichiers (à adapter)
Set F1 = Workbooks("Fichier1.xlsx").Sheets(1)
Set F2 = Workbooks("Fichier2.xlsx").Sheets(1)
Set F3 = Workbooks("Fichier3.xlsx").Sheets(1)
[color=#FF0000]Set cl = Workbooks("Classeur2.xlsm")[/color]
For i = 2 To cl.Worksheets.Count
cl.Sheets(i).Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlUp
Next i
F1.Activate
F1.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(3).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
F2.Activate
F2.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(4).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
F3.Activate
F3.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(5).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
cl.Sheets(1).Activate
Workbooks("Fichier1.xlsx").Close SaveChanges:=True
Workbooks("Fichier2.xlsx").Close SaveChanges:=True
Workbooks("Fichier3.xlsx").Close SaveChanges:=True
Application.DisplayAlerts = True
End Sub