Bonjour
je voudrais savoir s'il est possible enchaîner plusieurs actions seul par
ligne de commande ou macro :
1 ouvrir un fichier en lecture seul (sans avoir la boite de commande)
2 lancer une macro
3 enregistrer ce fichier actualise sous la forme datedu jourmonfichier.xls
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonjour,
Par exemple :
Sub test() Dim Fichier Fichier = "D:fsdatasVieillesDates.xls" 'ou n'importe quoi d'autre.. '1- ouvrir en lecture seule Workbooks.Open Fichier, ReadOnly:=True '2- exécuter une macro du fichier ouvert Application.Run ActiveWorkbook.Name & "!MacroTest" '3- enregistrer une copie du fichier modifié ActiveWorkbook.SaveAs "D:fsdatas" & Format(Date, "dd-mm-yyyy") & ".xls" End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour je voudrais savoir s'il est possible enchaîner plusieurs actions seul par ligne de commande ou macro : 1 ouvrir un fichier en lecture seul (sans avoir la boite de commande) 2 lancer une macro 3 enregistrer ce fichier actualise sous la forme datedu jourmonfichier.xls
Merci d'avance pour vos idées
Bonjour,
Par exemple :
Sub test()
Dim Fichier
Fichier = "D:fsdatasVieillesDates.xls" 'ou n'importe quoi d'autre..
'1- ouvrir en lecture seule
Workbooks.Open Fichier, ReadOnly:=True
'2- exécuter une macro du fichier ouvert
Application.Run ActiveWorkbook.Name & "!MacroTest"
'3- enregistrer une copie du fichier modifié
ActiveWorkbook.SaveAs "D:fsdatas" & Format(Date, "dd-mm-yyyy") & ".xls"
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour
je voudrais savoir s'il est possible enchaîner plusieurs actions seul par
ligne de commande ou macro :
1 ouvrir un fichier en lecture seul (sans avoir la boite de commande)
2 lancer une macro
3 enregistrer ce fichier actualise sous la forme datedu jourmonfichier.xls
Sub test() Dim Fichier Fichier = "D:fsdatasVieillesDates.xls" 'ou n'importe quoi d'autre.. '1- ouvrir en lecture seule Workbooks.Open Fichier, ReadOnly:=True '2- exécuter une macro du fichier ouvert Application.Run ActiveWorkbook.Name & "!MacroTest" '3- enregistrer une copie du fichier modifié ActiveWorkbook.SaveAs "D:fsdatas" & Format(Date, "dd-mm-yyyy") & ".xls" End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour je voudrais savoir s'il est possible enchaîner plusieurs actions seul par ligne de commande ou macro : 1 ouvrir un fichier en lecture seul (sans avoir la boite de commande) 2 lancer une macro 3 enregistrer ce fichier actualise sous la forme datedu jourmonfichier.xls
