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

**tzehani** · 27/08/2007, 11h11

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 !

**ouskel'n'or** · 27/08/2007, 11h50

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.

**tzehani** · 27/08/2007, 12h05

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

**ouskel'n'or** · 27/08/2007, 12h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**tzehani** · 27/08/2007, 12h30

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ouskel'n'or** · 27/08/2007, 12h49

Comme je te l'ai mis...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Feuil1").Select

A+

**tzehani** · 27/08/2007, 12h58

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

**ouskel'n'or** · 27/08/2007, 14h07

Un message d'erreur ?

**LeForestier** · 28/08/2007, 08h41

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

**tzehani** · 28/08/2007, 09h10

ma macro se trouve dans Feuil1 de Perso.xls

Merci encore de votre aide

**ouskel'n'or** · 28/08/2007, 11h24

Envoyé par LeForestier

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

Pas si bête que ça

Quand je dis que plusieurs cerveaux travaillent mieux qu'un seul

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

**tzehani** · 28/08/2007, 12h03

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ouskel'n'or** · 28/08/2007, 12h20

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

Windows("BD.xls").Activate

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

**tzehani** · 28/08/2007, 12h29

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
ActiveWindow.Visible = False

juste avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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