sauvagarde fichier sur plusieurs disques

[Patrice3321]

bonjour je suis nouveau sur le forum et pas tres expérimenté sur excel
voici ma question
je voudrai savoir si on peux faire une macro pour sauvegarder un fichier a plusieurs endroit different et rennomer le fichier par le contenu de 2 cellules merci de votre réponse
je précise que je suis sous excel 2003

 

[Staple1600]

Re : sauvagarde fichier sur plusieurs disques

Bonsoir et bienvenue


La réponse est oui.

Regardes dans les fils du forum , en utilisant le moteur de recherche.

Autrement quels sont les "chemins" où seront enregistrés les classeurs?

 

[Patrice3321]

Re : sauvagarde fichier sur plusieurs disques

merci de ta réponse les chemins seront C:\Documents and Settings\MON PC\Mes documents et d:\Archives

 

[Staple1600]

Re : sauvagarde fichier sur plusieurs disques

Re

Voici un essai

Je te laisse adapter les chemins

Sub SauveMulti()
Dim i as Byte
'tableau (array) contenant les chemins
Chemins = Split("C:\temp\+C:\temp\tempo\", "+")
For i = 0 To UBound(Chemins)
'copie dans les deux emplacements avec la valeur de la cellule A1 (feuille 1)
ThisWorkbook.SaveCopyAs Chemins(i) & "copie_" & Sheets(1).Range("A1").Value & ".xls"
Next i
End Sub

 

[Patrice3321]

Re : sauvagarde fichier sur plusieurs disques

merci beaucoup je l'ai un peu modifié pour avoir le nom du fichier correspondant au contenu de 2 cellules et il me fait la sauvegarde sur le disque D:\achives comme je voulais merci mais je voudrais en plus qu'il me fasse une autre copie sur le c:\ d'avance merci


cordialement

 

[Patrice3321]

Re : sauvagarde fichier sur plusieurs disques

merci beaucoup je l'ai un peu modifié pour avoir le nom du fichier correspondant au contenu de 2 cellules et il me fait la sauvegarde sur le disque D:\achives comme je voulais merci mais je voudrais en plus qu'il me fasse une autre copie sur le c:\ d'avance merci


cordialement

oups j'avais oublié ci-joint le code que j'ai modifié

Sub SauveMulti()
'
' test Macro
' Macro enregistrée le 15/07/2008 par Mon PC
'

Dim i As Byte
'tableau (array) conteant les chemins
Chemins = Split("+d:\achives\", "+")
For i = 0 To UBound(Chemins)
'copie dans les deux emplacements avec la valeur de la cellule A1 (feuille 1)
ThisWorkbook.SaveCopyAs Chemins(i) & "copie_" & Sheets(1).Range("A17") & Sheets(1).Range("A19").Value & ".xls"
Next i
End Sub

 

[Staple1600]

Re : sauvagarde fichier sur plusieurs disques

Re


Je pensais que tu avais compris (désolé)

Chemins = Split("c:\+d:\archives\", "+")

Ici on a bien les deux chemins.

 

[Patrice3321]

Re : sauvagarde fichier sur plusieurs disques

Super ça marche merci beaucoup désolé je suis un peu long a la détente


cordialement