Contrôler un logiciel portable
i
bonjour,
j'ai fait une macro il y a bien 6 mois pour contrôler un logiciel (codesoft) via VBA, j'ai un peut lutté mais j'ai réussi
mon souci c'est que maintenant je me retrouve avec le même logiciel mais en portable donc pas de vrai installation sur l'ordinateur
et depuis ma macro ne fonctionne plus, elle ne n'arrive plus a lancé le logiciel
Je vous mets le code que j'utilise :
Sub codesoft(etiquettes() As etiquette)
Dim debut As Long
Set myapp = CreateObject("lppx2.Application") 'ouverture de codesoft
debut = 1
Set mydoc = myapp.Documents.Open(etiquettes(1).modele)
For i = 1 To UBound(etiquettes)
mydoc.Close
Set mydoc = myapp.Documents.Open(etiquettes(i).modele) 'ouverture de l'étiquette correspondant au qr code
Set myvar = mydoc.Variables 'récupération des variables de l'étiquette
mydoc.Format.MarginTop = etiquettes(i).margeTop
mydoc.Format.MarginLeft = etiquettes(i).margeLeft
mydoc.Printer.SwitchTo (etiquettes(i).imprimante)
Do
mydoc.PrintLabel etiquettes(i).quantité, 1, 1, 1
i = i + 1
If i > UBound(etiquettes) Then Exit Do
Loop While etiquettes(i).modele = etiquettes(i - 1).modele
i = i - 1
Next i
'impression
mydoc.FormFeed
mydoc.Close
myapp.Application.Quit
End Subavec le logiciel portable, il me donne une erreur " une composante ActiveX ne peut pas créé d'objet" sur cette ligne
Set myapp = CreateObject("lppx2.Application") 'ouverture de codesoftauriez vous une idée de pourquoi ça ne marche plus ?
ou encore mieux une idée pour le faire refonctionné ?
merci de l'attention que vous portez à mon sujet