Macro complémentaire non disponible

Version imprimable

19/06/2009, 16h23
yoord

Macro complémentaire non disponible
Bonjour,
j'ai zieuté un peu sur le forum, et bien que certains postes traitent de mon problème, les solutions données n'ont pas solutionnnées mon probleme.

J'ai crée une macro, que je souhaite pouvoir lancer depuis n'importe quel fichier Excel.

je l'ai donc enregistré au format .xla dans le répertoire Macro Complémentaires

Bien.

Lorsque je lance Excel, je fais Outil\Macros Complémentaires
et la, je selectionne la macro que j'ai enregistré.

Seulement, lorsque je souhaite la lancer, elle n'aparait nulle part ! (si je fais alt+F11 je la vois, bien-sûr, mais pas depuis l'interface d'Excel).

Ma macro se compose de 3 userform différents, ne contient aucun code dans la partie "thisWorkbook", et dans Module1 j'ai le code suivant, qui appelle mon premier Userform :
Code:

1 2 3 4 5 Public Sub Graphique() userform0.Show False End Sub
D'où ma grande détresse, car si je n'arrive pas a la rendre disponible quelque soit le classeur, ben mon travail n'aura servi a rien ...

Bonjour,

je vais peut etre dire une betise, mais pourquoi ne pas créer un fichier excel "Modele" dans lequel tu as tes userforms et ta macro (pas besoin d'enregistrer le fichier en xla). Puis tu copies ton fichier modele, tu met dedans les données dont tu as besoin et tu lance le code qui suit pour lancer la macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub RunExcelMacro(fichier As String, macroName As String, Optional openFile = False)
'lance une macro d'un fichier excel
'les parametres :
' -> fichier : le chemin complet ou se situe le fichier excel
' -> macroName : le nom de la macro presente dans le fichier excel (qu'il faut avoir cree au prealable)
' -> openFile : permet d'ouvrir le fichier excel lors du traitement
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
On Error GoTo ErrRunExcelMacro
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(fichier)
 
If openFile Then
    appExcel.Visible = True
    appExcel.Windows(FileName(fichier)).Activate
End If
 
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
'lance macro
appExcel.Run macroName
 
'Fermeture et sauvegarde de l'application Excel
wbExcel.Save
appExcel.Quit
 
Set wbExcel = Nothing
Set appExcel = Nothing
 
Exit Sub
 
ErrRunExcelMacro:
    MsgBox err.Number & vbCrLf & vbCrLf & err.Description, vbCritical
 
End Sub

19/06/2009, 16h40
yoord

Salut,

merci pour ta réponse, mais étant débutant en VBA, je n'ai pas trop compris le code...
Je fais cette macro, non pas pour moi, mais pour quelqu'un (mon maitre de stage), qui ne connait pas VBA. je souhaite donc lui mettre un petit icone dans la barre d'outil, il clique dessus et hop ca fonctionne. Je ne veux pas qu'il doive copier ou déplacer quoi que ce soit pour utiliser la macro, car sinon mon travail ne servirait a rien (il ne le ferait pas ...).

mais merci en tout cas pour la réponse :)

Yoord
19/06/2009, 17h04
yoord

Je n'y comprends rien...

(ca fonctionne maintenant, c'est l'essentiel).

En ayant enregistré ma macro en tant que macro complémentaire (donc dans le répertoire Macros Complémentaire, au format .xla), je peux y avoir acces dans n'importe quel fichier Excel, mais depuis l'éditeur VBA. Seulement, meme en faisant Outils\Macros Complémentaires, et en la selectionnant, je ne pouvais toujours pas y avoir acces en cliquand sur le sigle 'lecture' de la barre d'outil VBA (je n'avais aucune marcro a disposition).

Du coup, j'ai copié les Userform et le Module, dans le fichier Excel que j'utilisais (enfin j'ai fait ca dans l'éditeur VBA), et j'ai pu a ce moment affecter l'icone (qui resemble a ca :) ) a ma macro.

J'ai ensuite supprimée de mon fichier les Userform et le Module (dans l'éditeur VBA).
La macro est toujours présente, grace a l'enregistrement en .xla que j'avais fait auparavant.

Résultat des courses, lorsque je clique sur le Smiley, ca fonctionne !

La seule chose que j'ai fait, c'est copier les Userform et le Module dans mon fichier en cours, affecter l'icone a la macro considérée, supprimer les userform et le module, sauvegarder, fermer, et ouvrir a nouveau.

J'avoue que je n'y comprends pas grand-chose... mais bon, ca fonctionne.

Si quelqu'un a la réponse j'aimerais quand même bien comprendre.
19/06/2009, 18h06
aalex_38

Citation:

sauvegarder, fermer, et ouvrir a nouveau

Le secret est peut être là ?!?
19/06/2009, 18h26
yoord

J'aurais bien aimé...

Mais je viens de refaire la même manipulation, en sauvegardant-fermant-ouvrant a chaque fois, le résultat est le même : ca ne marche pas tant que je n'ai pas affecté a l'icone 'macro' la macro que je viens de créer, et dont j'ai copié le code (module+userform) dans le fichier Excel.

Mais bon, ca fonctionne a présent, c'est l'essentiel.

Mais maintenant, j'ai une partie de mon code qui ne fonctionne pas dans les autres classeurs (j'ai d'ailleurs posté une discussion la-dessus) et là, je sèche total ...
si tu as un idée ;)

en tout cas merci pour tes conseils.

Yoord