Discussion :

[nico63vb]

Bonjour à tous,

J'ai un pb avec une macro. Je l'ai développé (mamacro.xla) sous office 2000 et je l'ai installé sur d'autre PC notement 1 doté d'office 2007.
J'ai au passage du remplacer des bouts de code car le filesearch n'est plus supporté sous excel 2007. Pour ceux que ca interesse, on peut utiliser ce 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
 
'Set fs = Application.FileSearch
'With fs
'.LookIn = chemindos
'.Filename = nomdevis
'If .Execute > 0 Then
Dim fichier_trouve() As String
Set fs = CreateObject("Scripting.filesystemobject")
Set pfad = fs.getfolder(chemindos)
Dim nb_ft As Integer
nb_ft = 0
For Each datei In pfad.Files
    If LCase(datei) Like nomdevis Then
...

Mon probleme n'est pas là. J'ai mis cette macro dans le repertoire de macro complementaire d'excel 2007, je l'ai cochée dans les complements, j'ouvre visual basic editor (vbe), est elle est bien presente. Je referme excel et je l'ouvre à nouveau. J'ouvre le vbe et elle n'y est plus. Je vais dans le complement est elle est bien cochée. Pour la réactiver, il faut la décocher est la recocher. C'est un peu long à faire à chaque fois que je lance excel. Quelqu'un a une solution.

Dans un tout autre registre, es-ce que quelqu'un peut me conseiller un livre sur le VB6 assez complet.
Quelles est la difference entre VB6 et VBA?

Merci à tous,

Cordialement.

[ouskel'n'or]

Je te conseille de désactiver ta macro complémentaire en fetmant ton fichier et de la réactiver en ouvrant le fichier

Code :

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

AddIns("MaMacro.xla").Installed = False

Code :

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

Application.AddIns.Add(Chemin & "MaMacro.xla").Installed = True

La diffférence entre VB et VBA :
VB permet de réaliser des applications indépendantes exécutables
VBA est lié aux applications Office et ne permet pas de réaliser des applications indépendantes de ces applications Office.

Edit
Attention J'ai corrigé une erreur (Pour désinstaller, "Application." est à supprimer

[nico63vb]

Merci d'avoir répondu si rapidement,

Ou dois-je mettre mon code d'installation et de désinstallation?

J'ai essayé de les mettre dans le workbook open et le before close mais j'ai un message.

Impossible de lire la propriete add de la classe addins.

[ouskel'n'or]

Alors tu as une erreur d'adresse dans le chemin ou une erreur dans le nom du fichier (!?!) Vérifie l'adresse au pas par pas (F8)
J'ai testé les deux syntaxes

[jkodio]

As-tu essayé :

Code :

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

AddIns(Chemin & "MaMacro.xla").Installed = True

?
Merci