Discussion :

[ckrikri]

bonjour,

j'aimerais savoir comment faire

Code :

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

Application.Run("'nomdelamacro.xla'!mafonction")

avec "nomdelamacro" en parametre de facon à ce que quand j'ouvre l'excel il me demande par exemple quelle macro je veux utiliser ou prend la macro complementaire coché dans outil -> macro complémentaire.
Pour l'instant je doit utilser un même nom quelque soit ma version de macro.
Mon chef de projet atteste qu'on peut faire application.run sans mettre "nomdelamacro" est ce possible? Si oui comment? car il m'a demandé de chercher.

Merci d'avance pour vos reponses.

[ouskel'n'or]

"Application.Run("'nomdelamacro.xla'!mafonction")"

En écrivant ça tu confonds nom de la macro et nom du fichier.
Dans ta ligne, ce qui est ".xla", c'est le fichier. La macro, c'est "mafonction"
Quand un xla est installé, ton chef a raison, le nom du fichier n'est pas nécessaire.
Pour installer une macro complémentaire par macro (c'est le fichier.xla qu'on installe) regarde dans l'aide en ligne à "AddIns, collection d'objets", la méthode Add. Tu as un exemple. Pour l'installer, tu dois préciser le chemin complet du .xla
Bonne journée

[ckrikri]

Merci pour ta reponse.
J'ai juste une dernière question comment récuperer la macro complémentaire installée pour la désinstaller en VBA

[ouskel'n'or]

Code :

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

Addins("NomDeLaMacro.xla").Installed = false

[ckrikri]

Mais le nom de la macro installée je ne la connais pas elle est choisie par l'utilisateur à l'ouverture du fichier du fichier

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
 
 
Private Sub Workbook_Open()
 
NomFichier = Application.GetOpenFilename(FileFilter:="Fichiers Microsoft Excel (*.xla),*.xla")
Decoup = Split(NomFichier, "\")
Nom = Decoup(UBound(Decoup))
NomFichier2 = Left(Nom, Len(Nom) - 4)
 
If VarType(NomFichier) = vbBoolean Then
    MsgBox "Erreur de chargement"
Else
    Set maMacro = AddIns.Add(Filename:=NomFichier, CopyFile:=True)
    Application.AddIns.Add (NomFichier)
    AddIns(NomFichier2).Installed = True
    'AddIns.add(NomFichier2).Installed = True
    'Call OuvreSiPasOuvert(NomFichier)
End If
 
 
End Sub

maintenant je voudrais dans workbook_close recuperer la macro qui est installée et la désinstaller

[ouskel'n'or]

Mais le nom de la macro installée je ne la connais pas elle est choisie par l'utilisateur à l'ouverture du fichier du fichier

Notre boule de cristal ne va pas jusqu'à deviner ce que tu ne dis pas
Une solution serait de lister les macros complémentaires et de dévalider la dernière... Mais assure toi que tu n'as pas la validation d'autres macros dans ton code, ou au moins qu'il n'y a pas d'incidence néfaste...

Code :

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

1
2
3
4
5
6
7
Sub SupAddIns()
    For Each Nom In Application.AddIns
        NomMC = Nom.Name
        'MsgBox NomMC 'si tu veux tester le nom des macros
    Next
    AddIns(NomMC).Installed = False
End Sub