je sais que cette question =E0 d=E9ja =E9t=E9 pos=E9 il y a quelques
ann=E9es, mais elle n'avait pas de r=E9ponce compl=E8te.
je sais que
AddIns("toto").Installed =3D False
enl=E8ve la macro compl=E9mentaire toto, mais elle reste dans la liste
je voudrais enlever la macro toto de la liste et ici je n'ai pas de
r=E9ponce.
Je fais un fichier install.xls qui installe ma macro, si la personne
veut la r=E9installer on supprime l'ancienne version
merci de vos r=E9ponces si vous r=E9ponder
merci d'avoir lu si vous avez lu.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir Killedman; Extrapolé de la méthode de FS danq laquelle Nom est du type "Machin.xla":
Private Sub SupprimerMacroComplémentaire(Nom As String) Dim I As Integer, De$, Vers$, Ok As Boolean DoEvents With AddIns For I = 1 To .Count If .Item(I).Name = Nom Then .Item(I).Installed = False: De = .Item(I).FullName If Dir(De) <> "" Then ' Dossier de sauvegarde de la macro supprimée de la liste If Dir("c:MesMacros", vbDirectory) = "" Then MkDir "c:MesMacros" Vers = "c:MesMacros" & Nom If Dir(Vers) = "" Then Name De As Vers Else Kill De End If Ok = True: Exit For End If Next I If Not Ok Then MsgBox "Macro complémentaire " & Nom & " inexistante !", 64: Exit Sub SendKeys "{HOME}" For I = 1 To .Count If .Item(I).Name = Nom Then Exit For SendKeys "{DOWN}" Next I SendKeys "~{ESC}" Application.CommandBars.FindControl(ID:3).Execute End With End Sub
MP
"Killedman" a écrit dans le message de news: Bonjour,
je sais que cette question à déja été posé il y a quelques années, mais elle n'avait pas de réponce complète.
je sais que AddIns("toto").Installed = False enlève la macro complémentaire toto, mais elle reste dans la liste je voudrais enlever la macro toto de la liste et ici je n'ai pas de réponce.
Je fais un fichier install.xls qui installe ma macro, si la personne veut la réinstaller on supprime l'ancienne version
merci de vos réponces si vous réponder merci d'avoir lu si vous avez lu.
:)
Bonsoir Killedman;
Extrapolé de la méthode de FS danq laquelle Nom est du type "Machin.xla":
Private Sub SupprimerMacroComplémentaire(Nom As String)
Dim I As Integer, De$, Vers$, Ok As Boolean
DoEvents
With AddIns
For I = 1 To .Count
If .Item(I).Name = Nom Then
.Item(I).Installed = False: De = .Item(I).FullName
If Dir(De) <> "" Then
' Dossier de sauvegarde de la macro supprimée de la liste
If Dir("c:MesMacros", vbDirectory) = "" Then MkDir "c:MesMacros"
Vers = "c:MesMacros" & Nom
If Dir(Vers) = "" Then Name De As Vers Else Kill De
End If
Ok = True: Exit For
End If
Next I
If Not Ok Then MsgBox "Macro complémentaire " & Nom & " inexistante !", 64:
Exit Sub
SendKeys "{HOME}"
For I = 1 To .Count
If .Item(I).Name = Nom Then Exit For
SendKeys "{DOWN}"
Next I
SendKeys "~{ESC}"
Application.CommandBars.FindControl(ID:3).Execute
End With
End Sub
MP
"Killedman" <touty81@hotmail.com> a écrit dans le message de
news:1105556199.546863.159610@z14g2000cwz.googlegroups.com...
Bonjour,
je sais que cette question à déja été posé il y a quelques
années, mais elle n'avait pas de réponce complète.
je sais que
AddIns("toto").Installed = False
enlève la macro complémentaire toto, mais elle reste dans la liste
je voudrais enlever la macro toto de la liste et ici je n'ai pas de
réponce.
Je fais un fichier install.xls qui installe ma macro, si la personne
veut la réinstaller on supprime l'ancienne version
merci de vos réponces si vous réponder
merci d'avoir lu si vous avez lu.
Bonsoir Killedman; Extrapolé de la méthode de FS danq laquelle Nom est du type "Machin.xla":
Private Sub SupprimerMacroComplémentaire(Nom As String) Dim I As Integer, De$, Vers$, Ok As Boolean DoEvents With AddIns For I = 1 To .Count If .Item(I).Name = Nom Then .Item(I).Installed = False: De = .Item(I).FullName If Dir(De) <> "" Then ' Dossier de sauvegarde de la macro supprimée de la liste If Dir("c:MesMacros", vbDirectory) = "" Then MkDir "c:MesMacros" Vers = "c:MesMacros" & Nom If Dir(Vers) = "" Then Name De As Vers Else Kill De End If Ok = True: Exit For End If Next I If Not Ok Then MsgBox "Macro complémentaire " & Nom & " inexistante !", 64: Exit Sub SendKeys "{HOME}" For I = 1 To .Count If .Item(I).Name = Nom Then Exit For SendKeys "{DOWN}" Next I SendKeys "~{ESC}" Application.CommandBars.FindControl(ID:3).Execute End With End Sub
MP
"Killedman" a écrit dans le message de news: Bonjour,
je sais que cette question à déja été posé il y a quelques années, mais elle n'avait pas de réponce complète.
je sais que AddIns("toto").Installed = False enlève la macro complémentaire toto, mais elle reste dans la liste je voudrais enlever la macro toto de la liste et ici je n'ai pas de réponce.
Je fais un fichier install.xls qui installe ma macro, si la personne veut la réinstaller on supprime l'ancienne version
merci de vos réponces si vous réponder merci d'avoir lu si vous avez lu.
:)
Killedman
heu ! merci
sur le coup je la comprend pas vraiment je vais l'étudier voir si je peux l'intégrer à mon projet
merci encore ca va m'aider.
heu ! merci
sur le coup je la comprend pas vraiment je vais l'étudier voir si je
peux l'intégrer
à mon projet
