bonjour Dick , bonjour Mattaz
les procédures ci dessous permettent d'effectuer un double enregistrement
dans le premier exemple
thisworbook.save enregistre les modifications du classeur en cours ( il doit déjà exister pour que cela fonctionne )
ActiveWorkbook.SaveAs permet de créer un autre classeur dans un dossier spécifique ( ici d:\dossier\general\excel\ ) . il est nommé par "Test" suivi de l'heure système , dans le cas ou souhaiterais faire des sauvegardes régulières , sans écraser les anciens fichiers
Si tu préferes ajouter la date du jour tu peux utiliser : Format(Date, "d mmmm yyyy")
Sub enregistrer()
ThisWorkbook.Save
'deuxieme enregistrement dans dossier specifique
ActiveWorkbook.SaveAs FileName:="d:\dossier\general\excel\Test " & Format(Time, "h mm ss")
End Sub
Comme je ne suis pas sur d'avoir bien compris ta demande , un deuxième exemple qui sauvegarde le fichier à deux endroits différents : dans le dossier par défaut d'excel et dans un dossier spécifique
Sub enregistrer()
'dans le dossier par défaut
ActiveWorkbook.SaveAs FileName:="Test " & Format(Time, "h mm ss")
'deuxieme enregistrement dans dossier specifique
ActiveWorkbook.SaveAs FileName:="d:\dossier\general\excel\Test " & Format(Time, "h mm ss")
End Sub
J'espere que cela pourra t'aider
Bon weekend
Michel