disparition d'objet

[Lionel]

Bonjour,

Je suis développeur de Macro excel pour la gestion des horaires d'une piscine
J'utilise certain composant. Mais etant donné que je travaille sur plusieurs fichiers j'ai été obligé d'intégrer le composant "CommonDialog" dans mes forms de présentation.
Cependant lorsque les fichiers Excel sont copiés le composant disparait et les erreurs apparaissent...
Connaissez vous ce probleme ? voyez-vous une solution pour parer a cela ?
Cordialement
ps : il est fort possible que les versions d'excel ne soit pas les mêmes sur tous les ordinateurs. est -ce que le probleme peut provenir de cela ??? Merci d'avance

 

[Zon]

Salut,

Commondialog est un controle VB à l'origine il me semble, donc il ne sera pas disponible sur toutes les machines.
Tu mets le fichier "comdl32.ocx"dans le même repertoire que ton appli. Ensuite tu le références:

sub Ref()
regocx activeworbook.path & "\","comdl32.ocx"
end sub

Sub RegOcx(Chemin$, Optional NomOcx$)'Zon
Dim CheSyS$
If Dir(Chemin) = "" Then Exit Sub
CheSyS = RepertoireSyS
If Dir(CheSyS & NomOcx) = "" Then FileCopy Chemin, CheSyS & NomOcx
Shell CheSyS & "regsvr32.exe " & NomOcx & " /s", 0
End Sub

Function RepertoireSyS$()
With CreateObject("Scripting.FileSystemObject")
RepertoireSyS = .GetSpecialFolder(1) & "\"
End With
End Function


Par contre, si c'est pour ouvrir un fichier tu as application.getopenfilename (voire L'api du même nom) qui peut faire l'affaire. La collection dialogs pour l'évènement printer application.dialogs(xldialogprint).show ....

A+++