Macro pour enregistrer dans 2 endroits

Boulie72 -  
 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
A voir également:

1 réponse

Morgothal Messages postés 1350 Statut Membre 184
 
Bonjour,
Avec une macro de ce type ?

With ActiveWorkbook
.SaveAs Filename:="\\s34bgxem109\traction_freinage\ADPX\Congés unité TF\Congés unité TF 2013.xls" 
.SaveAs Filename:="\\s34bgxem109\ELECTRIQUE\Congés unité TF 2013.xls" 
End With 

0
Boulie72
 
Et non désolé ca ne marche pas!!!
0
Morgothal Messages postés 1350 Statut Membre 184
 
Chez moi ça fonctionne...
Il y a un message d'erreur ?
0
Boulie72 > Morgothal Messages postés 1350 Statut Membre
 
Non pas de message d'erreur. Je colle la macro ds thisworkbook et quand je clique sur enregistrer il ne se passe rien!
0
Morgothal Messages postés 1350 Statut Membre 184
 
Il faudrait coller ceci dans ThisWorkbook :
Sub enregistrer ()
With ActiveWorkbook
.SaveAs Filename:="\\s34bgxem109\traction_freinage\ADPX\Congés unité TF\Congés unité TF 2013.xls" 
.SaveAs Filename:="\\s34bgxem109\ELECTRIQUE\Congés unité TF 2013.xls" 
End With
End Sub

Et exécuter cette macro via un bouton dans le classeur ...
0
Boulie72
 
On progresse...
Maintenant cela marche une fois mais dès que j'essaie de le faire une seconde, il y a une erreur 400!
0