Hello,
J'en suis là.
Demande de mise à jour des classeurs résolu en ajoutant UpdateLinks:=0
Suppression de [AjoutPage.xlsm] résolu aussi.
Reste la sauvegarde et la fermeture des classeurs au fur et à mesure.
Sub AjoutPage()
Application.DisplayAlerts = False
Dim myPath As String, myFile As String
myPath = "C:\Users\Kizuna\Desktop\AjoutPage"
myFile = Dir(myPath & "\*.*")
nom = ThisWorkbook.Name
Do While myFile <> ""
Call ClasseurOuvert(myPath & "\" & myFile)
With Workbooks(myFile)
Workbooks(nom).Sheets("EXPORT").Copy Before:=.Sheets(1)
Workbooks(myFile).Sheets("EXPORT").Select
Cells.Select
Selection.Replace What:="[AjoutPage.xlsm]", Replacement:="", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Close
End With
myFile = Dir()
Loop
End Sub
Sub ClasseurOuvert(NomFich)
On Error Resume Next
Workbooks(NomFich).Activate
If Err <> 0 Then Workbooks.Open Filename:=NomFich, UpdateLinks:=0
On Error GoTo 0
End Sub