Macro pour enregistrer dans 2 endroits

[Boulie72]

Bonjour,
J'ai un fichier excel que je souhaite recopier automatiquement lorsque je l'enregistre dans un deuxième chemin.
Le premier chemin ou se situe le fichier est : "\\s34bgxem109\traction_freinage\ADPX\Congés unité TF\Congés unité TF 2013.xls"
Le second chemin ou je veux recopier mon fichier est : \\s34bgxem109\ELECTRIQUE
Quelqu'un peut il m'aider svp?
Merci d'avance.
Guillaume

 

[Pierrot93]

Re : Macro pour enregistrer dans 2 endroits

Bonjour,

essaye peut être ceci, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "\\s34bgxem109\ELECTRIQUE\NomFichier.xls"
End Sub

bonne journée
@+

 

[Le double cheese]

Re : Macro pour enregistrer dans 2 endroits

Bonjour,

Une alternative: créer un raccourcis.
Et ainsi tu as ce que tu demande, sans te cassé la tête avec des macros.

 

[Boulie72]

Re : Macro pour enregistrer dans 2 endroits

Bonjour,

J'ai essayé ta méthode Pierrot93.

Ca marche sauf que cela me fait une erreur "Erreur de compilation" Seuls des commentaires peuvent apparaitre après End Sub, End fonction ou End Property.

As tu une idée???

a+

 

[Pierrot93]

Re : Macro pour enregistrer dans 2 endroits

Bonjour,

bah.... pas sûr, mais déjà la ligne ci-dessous, doit apparaitre qu'une seule fois dans le même module et être placée sur la première ligne....

Option Explicit

bon après midi
@+

 

[Boulie72]

Re : Macro pour enregistrer dans 2 endroits

C'est bon ca marche merci!!!

a+