Discussion :

[emclocheau]

Bonsoir,

En espérant que je poste ce message au bon endroit, j'aimerais comprendre pourquoi est-ce que la fonction import marche avec version 9 d'excel (2000) et pas avec la version 10 (2002). Puis je faire autrement ? Voila le code en question (j'importe 1 userform nommé "UserForm2_event.frm" placé dans même répertoire que mon programme):

adresse = ActiveWorkbook.FullName
Application.VBE.ActiveVBProject.VBComponents.Import Left(adresse, Len(adresse) - 13) & "UserForm2_event.frm"

Merci pour votre réponse

[frenchwarez]

Donne nous un peu plus de code stp ...

[emclocheau]

Voila l'essentiel de mon code :

Private Sub enregistrer_Click()

'déf. nom du nv classeur = fName (mon code n'est pas intéressant / sujet)

adresse = ActiveWorkbook.FullName

ActiveWorkbook.Sheets(2).Copy

Application.VBE.ActiveVBProject.VBComponents.Import Left(adresse, Len(adresse) - 13) & "UserForm2_event.frm"

On Error Resume Next
Workbooks(Workbooks.Count).SaveAs Filename:=fName, FileFormat:=xlNormal
'ensuite le reste du code prend en compte l'annulation de cette procédure d'enregistrement...

End Sub

Cela t'aide t il ?

[frenchwarez]

Hmm ... VB6 et moi ... C'est une longue histoire .. lol


En .Net ... cela est assez simple somme toute mais en VB6 .. je sèche ...

poste plutot ton code dans la rubrique appropriée ...

Dsl de ne pas pouvoir t'aider plus ...

[emclocheau]

ok, merci qd meme