sauvagarde fichier sur plusieurs disques

Staple1600

XLDnaute Barbatruc

• 15 Juillet 2008

• #2

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?

 

Vote positif 0 Vote négatif

P

Patrice3321

Guest

• 15 Juillet 2008

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Juillet 2008

• #4

Re : sauvagarde fichier sur plusieurs disques

Re

Voici un essai

Je te laisse adapter les chemins

Code:

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

 

Dernière édition: 16 Juillet 2008

Vote positif 0 Vote négatif

P

Patrice3321

Guest

• 15 Juillet 2008

• #5

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

 

Vote positif 0 Vote négatif

P

Patrice3321

Guest

• 15 Juillet 2008

• #6

Re : sauvagarde fichier sur plusieurs disques

Patrice3321 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Juillet 2008

• #7

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.

 

Vote positif 0 Vote négatif

P

Patrice3321

Guest

• 15 Juillet 2008

• #8

Re : sauvagarde fichier sur plusieurs disques

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


cordialement

 

Vote positif 0 Vote négatif