Enregistrer à 2 endroits différents

[dakarsaly]

Bonjour,

Je souhaiterais pouvoir enregistrer un fichier excel à 2 endroits différents.
Je manipule un peu Excel, mais pas de macros pour le moment. 🙁
En fait, le but est d'avoir mon fichier à jour et de partager une copie sur un serveur, afin que mon original ne soit pas modifié.
Dans l'idéal, il faudrait même que je puisse même faire une sauvegarde à 3 endroits différents.

Merci d'avance à ceux qui m'aideront à résoudre ce problème.

 

[job75]

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+

 

[dakarsaly]

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.

 

[camarchepas]

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

 

[dakarsaly]

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 ?

 

[Pierrot93]

Re : Enregistrer à 2 endroits différents

bonjour,

regarde peut être ceci :

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

bon après midi
@+

 

[camarchepas]

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 ....

 

[jcf6464]

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

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

 

[dakarsaly]

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 ?

 

[Pierrot93]

Re : Enregistrer à 2 endroits différents

Re,

essaye ceci :

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

 

[dakarsaly]

Re : Enregistrer à 2 endroits différents

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

 

[Pierrot93]

Re : Enregistrer à 2 endroits différents

Re,

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....

 

[camarchepas]

Re : Enregistrer à 2 endroits différents

Re , Pierrot , Jcf, Dakarsaly, Job ,

comme ceci peut être

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

 

[dakarsaly]

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.