Bonjour à tous et bonne rentrée,

Je possède Windows XP et Excel 2003.

Tous les mois, je dois enregistrer une quinzaine de fichiers sur quatre supports différents (le disque dur de mon pc, un disque dur externe et deux usb). Pour chaque fichier, et chaque support, je fais :"fichier, enregistrer sous, etc" et c'est assez fastidieux.

Y aurait il une méthode qui me permette d'enregistrer un fichier sur les quatre supports simultanément ?

Merci pour votre participation.

Sub test()
Dirs = Array("C:\", "D:\", "E:\", "F:\")

For i = LBound(Dirs) To UBound(Dirs)
For Each wbk In Workbooks
wbk.SaveAs Dirs(i) & wbk.Name
Next
Next
End Sub

Salut Bérylion,

Pourrais tu développer un peu plus ta réponse (plus de précisions) parce que vois tu, je ne suis pas très calé en langage informatique et en code...

Salut

pas trop le temps de développer à c't'heure.

va faire un tour dans la cuisine du chef et tu reviens au besoin