Bonjour,
Tu peux essayer ceci à placer dans ThisWorkbook
Private Sub Workbook_Open()
On Error Resume Next
If ActiveWorkbook.Name Like "Classeur1.xlsm" Then
ChDir "C:\chemin\...\..."
ActiveWorkbook.SaveAs Filename:="C:\chemin\...\...\Classeur5.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
End Sub
Si tu ouvres ton classeur avec macro et qu'il n'existe pas encore de classeur sans macro, tu sélectionne "oui" .
Si tu veux faire une modification dans le classeur original, tu sélectionne non. A toi d'ajouter une protection de feuille pour que d'autres ne puissent pas la modifier.
Et enfin, si un classeur sans macro existe déjà et que tu ouvre le classeur original, si tu sélectionne oui , il te proposera de remplacer le classeur existant, puisque le nom du classeur sans macro restera identique quoiqu'il arrive à chaque création.