sauvegarde en 2 endroits

[DUPONTEL]

bonsoir à tous
voilà ma question '
je souhaiterai pouvoir enregistrer les modifications d'un fichier se trouvant sur le reseau 'lecteur v'.
en faisant cette enregistrement je voudrais que ce même fichier soit copié sur le pc local dans 'c:\sauvegarde ' (avec la date comme nom de fichier) et ce sur n'importe quel pc

en vous remerciant par avance

 

[JCGL]

Re : sauvegarde en 2 endroits

Bonjour à tous,

Peux-tu essayer ceci dans le ThisworkBook :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveWorkbook
        .SaveAs "ici le chemin du serveur)"
        .SaveAs "C:\Sauvegarde\" & Format(Date, "yyy_mm_dd") & "xls"
    End With
End Sub

A+ à tous

 

[DUPONTEL]

Re : sauvegarde en 2 endroits

bonsoir
merci pour ta réponse
j'en profite pour te poser une autre question sur ce même fichier
en colonne f j' les cellule formaté en dd/mm/aaaa
je voudrais que lorsque une date est indiquée en cellule k , 20 jours plus tard celle se mette en rouge
ex : je mets en cellule k11 par exemple la date 11/12/2014 date du jours en l'occurence
20 jours plus tard je voudrais que cette cellule cellule clignote ( j+20) en quelque sorte
merci par avance si tu as une solution

ps ; c'est le même fichier

 

[mapomme]

Re : sauvegarde en 2 endroits

Bonjour DUPONTEL,

(...)
en colonne f j' les cellule formaté en dd/mm/aaaa
je voudrais que lorsque une date est indiquée en cellule k , 20 jours plus tard celle se mette en rouge (...)

Voir fichier joint avec une MFC.

 

[DUPONTEL]

Re : sauvegarde en 2 endroits

Bonjour mapomme
excellent c'est parfait merci beaucoup de ton aide