Macro pour enregistrer dans 2 endroits

Fermé
Boulie72 - 23 juil. 2013 à 11:05
 Boulie72 - 24 juil. 2013 à 14:00
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 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
23 juil. 2013 à 11:09
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
Et non désolé ca ne marche pas!!!
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
23 juil. 2013 à 13:23
Chez moi ça fonctionne...
Il y a un message d'erreur ?
0
Boulie72 > Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015
23 juil. 2013 à 13:38
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 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
23 juil. 2013 à 13:41
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
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