Discussion :

[yoord]

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 :

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

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 ...

[Access Newbie]

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 :

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
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

[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