Enregistrer un fichier sur deux emplacement différent

Bonjour à tous,

Je suis sur un projet en phase terminal.

Je souhaiterai pouvoir sauvegarder mon projet sur plusieurs disques ou plusieurs endroits.

Quelqu'un pourra t-il me fournir la marche à suivre.

Je rappelle je travail toujours sur excel 2003 et surtout en VBA.

Merci d'avance

Amicalement

Noel

Bonjour,

ThisWorkBook.SaveAs chemin & "\" & nomfichier

tu auras défini avant chemin et nomfichier. Le nom du fichier sera sans doute le même, mais le chemin variera pour chaque enregistrement.

Cordialement.

Et meilleurs voeux pour 2017.

Bonjour MFerrand,

Bonne année à toi aussi merci ainsi qu'à toute la famille et surtout la santé qui est primordiale.

Voici mon chemin :"C:\Users\CHANE FO\Desktop\DPAUTO\Vente-Achat\" c'est l'emplacement du fichier source ou d'origine

Le nom du fichier : GestVenteVehic.V.1.06

je voudrai en même temps que le fichier d'origine s'enregistre qu'il m'enregistre également sur un de mas disque ou clé USB dont voici le chemin :"D:\Dossier Excel\" Dis moi comment l'adapter selon le code que tu m'as donné.

est cela la solution :

 ThisWorkBook.SaveAs chemin & "D:\Dossier Excel\" & nomfichier

Merci d'avance

Amicalement

Noel

Re,

Je m'excuse pour le code

ThisWorkBook.SaveAs chemin & "D:\Dossier Excel\" & GestVenteVehic.V.1.06

Faut-il rajouter ".xls" ou pas.

@+

Noel

    Dim nf$
    '(instructions éventuelles)
    With ThisWorkbook
        .Save
        nf = .Name
        .SaveAs "D:\Dossier Excel\ & nf"
    End With

L'extension .xls est indispensable mais sera ici incluse dans le nom du fichier.

Cordialement.

Bonjour MFerrand,

J'ai fini par adapter ce bout code au projet et cela fonctionne très bien.

Je te remercie.

Cordialement

Noel