|
|
|
|
Bonjour,
Pour les pro de vba...
Je cherche via un "bouton magique"
A faire un enregistrement simultané vers deux répertoires. J'ai utilisé la formule:
Private Sub CommandButton1_Click()
ThisWorkbook.SaveCopyAs "M:\Planning.xls"
ThisWorkbook.SaveCopyAs "U:\Planning.xls"
End Sub
le pb est que si j'ai ouvert le fichier depuis le repertoire M, il y a un bug sur la 2eme ligne car le fichier est déjà ouvert et pareil depuis le U avec une erreur sur la 3eme ligne.
je pense que l'on peut résoudre ce pb avec des conditions "If" et "Then" mais la je cale un peu.
merci de votre aide.
Configuration: Windows XP Internet Explorer 6.0
Bonjour
Private Sub CommandButton1_Click()
if ThisWorkbook.fullname = "M:\Planning.xls" then
ThisWorkbook.SaveCopyAs "U:\Planning.xls"
else
ThisWorkbook.SaveCopyAs "M:\Planning.xls"
end if
ThisWorkbook.Save
End Sub
Le code n'est pas testé car je n'ai pas ces codes lecteurs. Toujours zen |
Aide macro vba excel 2007 Enregistrer stream via le real player Envoyer outlook 2003 via macro excel Excel 2003 mode vba Excel 2007 macro Excel 2007 macro vba mfc Excel 2007 macro vba selection.formatconditions(1) Excel affecter macro bouton Excel reche macro 1ere ligne vide Inserer du code via une macro vba Macro vba excel publipostage vers word Macro vba recherche d'information sur excel Macro vba sous excel Mettre valeur cellule dans le nom d enregistrement excel macro Module macro vba business object Prévisualiser graphique macro vba Récupération de chemin macro excel via explorateur enregistrement Vba excel exécuter macro
