Bonjour
Faire pointer au demarrage de la macro sur le bouton classeur.
Tu boucles sur le nb de fichiers ouverts, si le nom est different de celui qui contient la macro, tu vas sur l'autre. etc.
Ex :
Fichier sur lequel se trouve la macro : toto.xls
Code :
- 'On regarde sur quel numéro de fenetre se trouve ton fichier sur lequel est ta macro en passant tous les fichiers jusqu'a trouver celui qui ne contient pas son nom
- NbFen = Application.Windows.Count
- Fen = 1
- For i = 1 To NbFen
- NomFenT = Wrd.Windows(i).Document
- If InStr(1, NomFenT, "toto" ) = 0 Then
- Fen = i
- Exit For
- End If
- Next i
- 'on l'active
- Application.Windows(Fen).Document.Activate
- 'suite de ta macro
|
Sinon, le plus simpe est de mettre toutes tes macros 'communes' (c'est a dire a executer sur differents fichiers) dans le PERSO.XLS
Cordialement
Message édité par SuppotDeSaTante le 23-11-2009 à 11:24:45
---------------
Soyez malin, louez entre voisins !