Question d'ordre général sur les macros sur excel

Bonjour à toute la communauté de developpez.com

Au fait j'ai fait une macro sur vb sur excel et je voudrais que cette macro soit utilisable par n'importe quel fichier excel et pas non seulement le fichier excel où j'ai réalisé la macro.
Je voudrais dès que j'ouvre un fichier excel avoir la possibilité de lancer la macro.

Voila Merci par avance pour votre Aide !

Tu places ta macro dans un fichier ouvert au démarage d'Excel. Ce fichier, souvent nommé Perso.xls, est à placer dans le répertoire XLOuvrir, généralement situé ici "C:\Program Files\Microsoft Office\Office\XLOuvrir"
A+

Edit
Il te restera à créer le bouton qui lance la macro dans une barre d'outils qui peut être une barre d'outils existante. Se fait facilement sans macro.

Merci beaucoup pour ton aide mais la macro s'execute sur Perso.xls au lieu de s'executer sur le fichier excel que je veux.
Je comprends pas pourquoi ?

Au fait dans ma macro j'ai besoin d'activer le fichier excel courant et il active Perso.xls, moi j'ai mis Feuil1.activate parce que le nom du fichier sur lequel je veux executer ma macro n'est pas toujours le meme :?
Pourtant j'ai bien fait comme tu m'as dit

Tu dois simplement exécuter la macro sur ActiveWorkbook et non sur ThisWorkBook
Je suppose la macro InsérerUneValeur() placée dans Perso.xls et que le classeur dans lequel tu veux exécuter la macro est le classeur actif :

Code:

---

1 2 3

Sub InsérerUneValeur() ActiveWorkbook.Worksheets("Feuil1").Cells(5, 6) = "coucou !" End Sub

---

A+

Edit
Si tu as toujours un pb, montre le code de ta macro

Malheureusement j'ai toujours un problème voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub CompteRendu() .... .... .... Windows("BD.xls").Activate Application.Goto Reference:="BaseProjets" Selection.Copy   Feuil1.Activate " ==========> c'est cette ligne la qui active Perso.xls au lieu du fichier courant "   ActiveWindow.SmallScroll ToRight:=8 Range("AP1").Select ActiveSheet.Paste Columns("AP:AP").EntireColumn.AutoFit Application.CutCopyMode = False ActiveWorkbook.Save ...... ...... ..... End Sub

---

Ce code je l'ai mis dans Perso.xls qui se lance lorsque j'ouvre un fichier excel.
Quand je fais alt + F8 pour executer ma macro sur un fichier par exemple qui s'appelle JUILLET2007.xls et bien le nom de la macro est Perso.xls!Feuil1.CompteRendu
Bref
au lieu d'activer la feuille courante, la macro active Perso.xls et je tiens à te préciser que ma macro est présente uniquement dans Perso.xls

Voila merci infiniment de ton aide

Comme je te l'ai mis...

Code:

---

ActiveWorkbook.Worksheets("Feuil1").Select

---

A+

Désolé je viens de remplacer ce que tu viens d'écrire à la place de Feuil1.activate et ça ne marche toujours pas, je vais devenir fou.

Cette fois-ci au lieu de d'activer Perso.xls, il s'arrete de compiler juste avant cette insctruction.

ActiveWorkbook.Worksheets("Feuil1").Select

Un message d'erreur ?

Bonjour,
Question bête, ta macro se trouve dans Feuil1 ou dans un module ?
A+

ma macro se trouve dans Feuil1 de Perso.xls

Merci encore de votre aide

Citation:

---

Envoyé par LeForestier

Bonjour,
Question bête, ta macro se trouve dans Feuil1 ou dans un module ?
A+

---

Pas si bête que ça :bravo: Quand je dis que plusieurs cerveaux travaillent mieux qu'un seul :mouarf:

Alors déplace ta macro dans un module
Dans l'éditeur VBA -> Insertion -> Module (tout court)
et tu colles ton code dedans. Et supprime celui que tu as mis dans feuil1
Après, on pourra parler de tes pb éventuels ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub CompteRendu() .... .... ChDir "C:\Documents and Settings\AMENSI\Bureau\Projet GL TRADE" Workbooks.Open Filename:= _ "C:\Documents and Settings\AMENSI\Bureau\Projet GL TRADE\BD.xls"   Windows("BD.xls").Activate Application.Goto Reference:="BaseProjets" Selection.Copy ActiveWorkbook.Sheets(1).Activate ActiveWindow.SmallScroll ToRight:=8 Range("AP1").Select ActiveSheet.Paste Columns("AP:AP").EntireColumn.AutoFit Application.CutCopyMode = False ActiveWorkbook.Save ...... ...... ..... End Sub

---

Merci la j'y suis presque, le plus gros pas est fait sauf que quand on regarde bien mon code, j'active dans mon code ma Base de Données et au fait cette ligne ci dessous :

Code:

---

1 2	ActiveWorkbook.Sheets(1).Activate

---

va activer le fichier BD.xls au lieu du fichier courant à cause du Windows("BD.xls").Activate

et moi je veux pas réactiver celui la (BD.xls) mais le fichier sur lequel j'ai lancé ma macro.

Il n y a pas une fonction qui désactive car comme peut être que quand le code arrive à la fameuse ligne, ca sera le bon fichier qui sera activé

Merci mille fois

Alors active le classeur sur lequel tu veux activer ta macro. Et dans ce cas là, supprime ta ligne

Citation:

---

Windows("BD.xls").Activate

---

Ton classeur actif sera celui que tu as activé (!) Logique, non ?
A+

Citation:

---

Envoyé par ouskel'n'or

Alors active le classeur sur lequel tu veux activer ta macro. Et dans ce cas là, supprime ta ligne
Ton classeur actif sera celui que tu as activé (!) Logique, non ?
A+

---

Je ne peux pas la supprimer j'ai besoin d'activer le fichier BD.xls pour utiliser des informations mais ca y est j'ai trouvé l'astuce, je rajoute cette ligne :

Code:

---

1 2 3

ActiveWindow.Visible = False

---

juste avant

Code:

---

1 2	ActiveWorkbook.Sheets(1).Activate

---

et le tour est joué, comme ca BD sera désactivé mais il faut le faire juste avant sinon je ne peux pas copier les infos de mon fichier BD, ainsi le fichier courant c'est lui qui sera activé et c'est bon !

Je tiens à remercier tous ce qui m'ont aidé
Merci Encore

Problème Résolu :yaisse2:

Citation:

---

Envoyé par tzehani

Problème Résolu :yaisse2:

---

Alors, il ne te reste plus qu'à cliquer sur le bouton :resolu: sous la discusiion...