bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 24 oct. 2008 à 03:32
Salut,
ce que tu pourrais faire c'est de creer une petite sub routine dans ton fichier excel pour afficher le userform du style :
Sub AfficherForm ()
Load Userform1
Userform1.Show
End Sub
et dans word si on reprend ce qui a deja ete fait:
Dim Applixls As Object, MonWBK As Object
Set Applixls = GetObject(, "Excel.Application") 'ici on essaye de recuperer une session excel existante
If Nothing Is Applixls Then 'si pas de process excel en cours
Set Applixls = CreateObject("Excel.Application") 'on lance excel
Set MonWBK = Applixls.Workbooks.Open(c:\blablabla...xls)
else
On Error Resume Next
Applixls.Workbooks("blablabla...xls).Activate
if not err = 0 then
Set MonWBK = Applixls.Workbooks.Open(c:\blablabla...xls)
else
set MonWBK = Applixls.ActiveWorkbook
End if
End if
Applixls.Run "AfficherForm"
3dflix
Messages postés43Date d'inscriptiondimanche 9 mars 2003StatutMembreDernière intervention20 février 2013 24 oct. 2008 à 23:01
Je confirme, tu as réussi!
Mais voila qu'un nouveau probleme apparait!
En réalité j'execute le userform Excel depuis Catia V5 (Conception 3d assistée par ordinateur) avec une macro en vbscript.
Donc ça fonctionne aussi sauf que j'ai besoin de mettre le parametre ShowModal du userform a false. Et quand je fais ça le VBS affiche le userform poursuit son chemin (puisque jsuis en non modal). la macro VBS ce termine et là ça ferme mon userform... ??? c'est normal? ça fait pas ça avec Excel et Word.
3dflix