Enregistrer à 2 endroits différents

job75

XLDnaute Barbatruc

• 28 Décembre 2014

• #2

Re : Enregistrer à 2 endroits différents

Bonsoir dakarsaly, bienvenue sur XLD,

La commande Enregistrer sous est faite pour ça.

Si vous voulez le code VBA utilisez l'enregistreur de macro.

A+

 

Vote positif 0 Vote négatif

D

dakarsaly

XLDnaute Nouveau

• 29 Décembre 2014

• #3

Re : Enregistrer à 2 endroits différents

Bonjour job75,

Merci pour votre réponse.
En fait, je souhaiterais que mon fichier s'enregistre dans 3 endroits différents simplement en cliquant sur enregistrer.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 29 Décembre 2014

• #4

Re : Enregistrer à 2 endroits différents

Bonjour Job, DakarSaly,

une approche presque identique à celle de Job

Sub Macro1()
ThisWorkbook.SaveCopyAs "c:\temp\fichier1.xlsx"
ThisWorkbook.SaveCopyAs "c:\autre\fichier2.xlsx"
ThisWorkbook.Save
End Sub

 

Vote positif 0 Vote négatif

D

dakarsaly

XLDnaute Nouveau

• 29 Décembre 2014

• #5

Re : Enregistrer à 2 endroits différents

Bonjour camarchepas,

Ca marche impeccable. C'est tout à fait ce dont j'avais besoin.
J'ai une autre question à vous poser.
Nous sommes 2 personnes à travailler sur ce même fichier à partir d'une dropbox et nous devons ensuite partager le travail dans 2 endroits différents, toujours dans cette dropbox.
Donc, jusque là, le problème est réglé pour mmoi, mais pas pour mon collègue.
Lorsque je rentre la macro, je spécifie le chemin d'accès qui est différent de l'autre personne avec qui je travaille.
Voici le chemin que j'indique : c:\Users\user08\Desktop\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"

Le problème vient du "user08" qui est le nom de l'ordinateur que j'utilise. Comment mettre un code valable pour mon collègue et moi-même sachant que le chemin d'accès diffère uniquement par le nom de l'ordinateur ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Décembre 2014

• #6

Re : Enregistrer à 2 endroits différents

bonjour,

regarde peut être ceci :

Code:

Dim fichier As String
fichier = CreateObject("WScript.Shell").specialFolders("Desktop") & "\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"

bon après midi
@+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 29 Décembre 2014

• #7

Re : Enregistrer à 2 endroits différents

Voici deux solutions possibles

https://www.excel-downloads.com/threads/repertoire-mes-documents-dans-macro.47286/

@ Bonjour Pierrot , j'ai pas vu passer le félin ....

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 29 Décembre 2014

• #8

Re : Enregistrer à 2 endroits différents

Bonjour

ma petite contribution avec des variables dans feuille (parametres)
Si cela peut servir.

Private Sub CommandButton1_Click() 'BrunoM45
Dim sPathFic As String, sPathFic1 As String, valeur1 As String, valeur As String
Dim rep As Integer


'phase 1
'Fichier source sauvé tel qu'il est
ThisWorkbook.Save
'phase 2
'fichier destination sur lecteur désiré depuis paramétres BC10 et nom BC12

valeur1 = Sheets("Parametres").Range("BC12") & Format(Date, "dddd dd mmmm") & "_" & Replace(Format(Time, "hh:mm"), ":", "h") & ".xlsm"
sPathFic1 = Sheets("Parametres").Range("BC10").Value & valeur1
ThisWorkbook.SaveAs Filename:=sPathFic1
rep = MsgBox("Votre base de données est sauvegardée sous le nom :" & vbCrLf & sPathFic1, vbYes + vbInformation, "Enregistrement et sauvegarde du classeur")
'ActiveWorkbook.Close savechanges:=False

valeur = Sheets("Parametres").Range("BC16") & Format(Date, "dddd dd mmmm") & "_" & Replace(Format(Time, "hh:mm"), ":", "h") & ".xlsm"
sPathFic = Sheets("Parametres").Range("BC14").Value & valeur
ThisWorkbook.SaveAs Filename:=sPathFic
rep = MsgBox("Votre base de données est sauvegardée sous le nom :" & vbCrLf & sPathFic, vbYes + vbInformation, "Enregistrement et sauvegarde du classeur")
ActiveWorkbook.Close savechanges:=False

End Sub

Cliquez pour agrandir...

Tableau de la feuille (parametres)
Gestion de la sauvegarde
Sur deux dossiers
1= Enregistrement du fichier dans
C:\XXXX\Archives\
Nom du fichier à sauvegarder
YYY_Arch2015-
2= Enregistrement du fichier dans
C:\XXXX\HIVERNALE 2015\
Nom du fichier à sauvegarder
YYY_Hiv2015-

A+ bonne fêtes jcf64

 

Vote positif 0 Vote négatif

D

dakarsaly

XLDnaute Nouveau

• 29 Décembre 2014

• #9

Re : Enregistrer à 2 endroits différents

Oulà, merci pour vos réponses, mais c'est un peu compliqué pour moi.
Comment puis-je intégrer une des solutions au code proposé par camarche pas ?
Désolé pour la question de grand débutant, mais tout est dans la même macro ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Décembre 2014

• #10

Re : Enregistrer à 2 endroits différents

Re,

essaye ceci :

Code:

Dim fichier As String
fichier = CreateObject("WScript.Shell").specialFolders("Desktop") & "\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"
ThisWorkbook.SaveCopyAs fichier

 

Vote positif 0 Vote négatif

D

dakarsaly

XLDnaute Nouveau

• 29 Décembre 2014

• #11

Re : Enregistrer à 2 endroits différents

Ok Pierrot93, mais je le mets ce code à quel niveau par rapport à celui de camarchepas ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Décembre 2014

• #12

Re : Enregistrer à 2 endroits différents

Re,

Code:

Sub Macro1()
Dim fichier As String
fichier = CreateObject("WScript.Shell").specialFolders("Desktop") & "\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"
ThisWorkbook.SaveCopyAs fichier
ThisWorkbook.Save
End Sub

mais pas sur que cela réponde parfaitement à ton besoin... manque une sauvegarde....

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 29 Décembre 2014

• #13

Re : Enregistrer à 2 endroits différents

Re , Pierrot , Jcf, Dakarsaly, Job ,

comme ceci peut être

Code:

Sub Macro1()
Dim MesDoc As String
MesDoc = CreateObject("WScript.Shell").specialFolders("Desktop")

ThisWorkbook.SaveCopyAs MesDoc & "\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"
ThisWorkbook.SaveCopyAs MesDoc & "\Dropbox\Réunions cliniques\Réunions cliniques 2014.xlsx"
ThisWorkbook.Save
End Sub

 

Vote positif 0 Vote négatif

D

dakarsaly

XLDnaute Nouveau

• 29 Décembre 2014

• #14

Re : Enregistrer à 2 endroits différents

Re camarchepas, Pierrot , Jcf, Job ,

Ca ne marche toujours pas.
J'ai une erreur d'exécution 1004 qui me dit que le chemin spécifié n'est pas valide.

 

Vote positif 0 Vote négatif