Maro unique sur plusieurs fichiers
CloChe
-
CloChe -
CloChe -
Bonjour,
voilà j'ai "enregistré" une macro ("record macro") sur un fichier excel. (excel 2007)
Je voudrais que cette même macro soit appliquée sur demande à d'autres fichiers.
Ces fichiers sont exactement les mêmes sauf qu'il s'agit de versions différentes. Donc leur mise en page ne bouge pas.
Comment puis-je faire?
(Je suis débutant en VBA).
Merci d'avance!
Voici le code que je voudrais rendre valable pour les autres fichiers:
Sub Macro1()
'
' Copy / Paste values, Supprime les4 premères colonnes, et les onglets inutiles
'
'
Range("A1:O2789").Select
Range("A3").Activate
Selection.Copy
Cells.Select
Range("A3").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Rows("1:6").Select
Range("A6").Activate
Application.CutCopyMode = False
Range("A5").Select
Application.CutCopyMode = False
Rows("1:6").Select
Range("A6").Activate
Selection.Delete Shift:=xlUp
Sheets("Fixing").Select
ActiveWindow.SelectedSheets.Delete
Sheets("FRENCH").Select
ActiveWindow.SelectedSheets.Delete
Sheets("STATS").Select
ActiveWindow.SelectedSheets.Delete
Sheets("IAS").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.SmallScroll Down:=-12
Range("A3").Select
End Sub
voilà j'ai "enregistré" une macro ("record macro") sur un fichier excel. (excel 2007)
Je voudrais que cette même macro soit appliquée sur demande à d'autres fichiers.
Ces fichiers sont exactement les mêmes sauf qu'il s'agit de versions différentes. Donc leur mise en page ne bouge pas.
Comment puis-je faire?
(Je suis débutant en VBA).
Merci d'avance!
Voici le code que je voudrais rendre valable pour les autres fichiers:
Sub Macro1()
'
' Copy / Paste values, Supprime les4 premères colonnes, et les onglets inutiles
'
'
Range("A1:O2789").Select
Range("A3").Activate
Selection.Copy
Cells.Select
Range("A3").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Rows("1:6").Select
Range("A6").Activate
Application.CutCopyMode = False
Range("A5").Select
Application.CutCopyMode = False
Rows("1:6").Select
Range("A6").Activate
Selection.Delete Shift:=xlUp
Sheets("Fixing").Select
ActiveWindow.SelectedSheets.Delete
Sheets("FRENCH").Select
ActiveWindow.SelectedSheets.Delete
Sheets("STATS").Select
ActiveWindow.SelectedSheets.Delete
Sheets("IAS").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.SmallScroll Down:=-12
Range("A3").Select
End Sub
A voir également:
- Maro unique sur plusieurs fichiers
- Renommer plusieurs fichiers en même temps - Guide
- Fichiers epub - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
- Gestionnaire de fichiers - Télécharger - Gestion de fichiers
2 réponses
salut
tu ouvres tes autres fichiers et tu déclenches la macro à partir de chaque fichier
si tu veux que ta macro soit disponible tout le temps ouvre un fichier vierge puis copie le module contenant la macro dans le projet du fichier vierge puis ferme tout en enregistrant sous le format xlsb
et mets ce xlsb dans le dossier XLSTART
tu ouvres tes autres fichiers et tu déclenches la macro à partir de chaque fichier
si tu veux que ta macro soit disponible tout le temps ouvre un fichier vierge puis copie le module contenant la macro dans le projet du fichier vierge puis ferme tout en enregistrant sous le format xlsb
et mets ce xlsb dans le dossier XLSTART
Merci, mais le souci c'est que y a beaucoup de fichiers.
Tous ces fichier sont dans un seul dossier. Idéalement, je voudrais pouvoir dire à la macro:
- prend tous les fichiers (A, B, C, D...) du dossier "X"
- execute le code
- enregistre les fichiers ainsi obtenus dans un autre dossier, sans modifier ceux de base.
- Mais le ne fais pas à l'ouverture, seulement si je te le demande (bouton par exemple)
C'est possible ça?
Merci de votre réponse, ca me rassure que c'est envisageable...
Cdt,
Tous ces fichier sont dans un seul dossier. Idéalement, je voudrais pouvoir dire à la macro:
- prend tous les fichiers (A, B, C, D...) du dossier "X"
- execute le code
- enregistre les fichiers ainsi obtenus dans un autre dossier, sans modifier ceux de base.
- Mais le ne fais pas à l'ouverture, seulement si je te le demande (bouton par exemple)
C'est possible ça?
Merci de votre réponse, ca me rassure que c'est envisageable...
Cdt,