Appliquer une macro de mise en page à tous les fchiers ouvert (.xls)
Résolu
erydran
Messages postés
2
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
17 mars 2006
-
17 mars 2006 à 15:02
erydran Messages postés 2 Date d'inscription vendredi 17 mars 2006 Statut Membre Dernière intervention 17 mars 2006 - 17 mars 2006 à 18:02
erydran Messages postés 2 Date d'inscription vendredi 17 mars 2006 Statut Membre Dernière intervention 17 mars 2006 - 17 mars 2006 à 18:02
A voir également:
- Appliquer une macro de mise en page à tous les fchiers ouvert (.xls)
- Exemple de page d'authentification - Conseils pratiques -PHP
- Mise à jour sybase - Conseils pratiques -SQL
- Macro catia - Forum VBA Office (Excel, Word ...)
- Visual studio code mise en forme automatique ✓ - Forum ASP / ASP.NET
- Activer macro outlook - Forum Visual Basic
2 réponses
Tuning Max
Messages postés
314
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
31 août 2006
1
17 mars 2006 à 15:40
17 mars 2006 à 15:40
rien de bien compliqué rassure toi. Juste une petite boucle sur les feuilles de ton workbook
Sub macexecute()
Dim wbk As Workbook, wsh As Sheets, sht As Worksheet
Set wbk = ActiveWorkbook
Set wsh = wbk.Sheets
Set sht = wbk.ActiveSheet
For Each sht In wsh
Call BOBmacro
Next
End Sub
Sub macexecute()
Dim wbk As Workbook, wsh As Sheets, sht As Worksheet
Set wbk = ActiveWorkbook
Set wsh = wbk.Sheets
Set sht = wbk.ActiveSheet
For Each sht In wsh
Call BOBmacro
Next
End Sub
erydran
Messages postés
2
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
17 mars 2006
17 mars 2006 à 18:02
17 mars 2006 à 18:02
merci beaucoup ...;)
bon week end
bon week end
