je suis deja aller sur les forum special Vb mais rien
Pitie c quoi une action OLE !!!!!!
Bendes
La seul idée que j'ai c'est d'aller voir sur quelques sites s'il y a pas la même question...
navarro
snifff :cry:
Bendes
Moi, j'ai plus d'idées...
navarro
une idee alors ?
navarro
en fait avec ma methode j ai reussi a ouvrir un .doc tout simple mais le .doc que j'ai a ouvrir contiens des publipostage et ca ca va pas ...alors ruser comme je suis je ve faire une copie de ce .doc avec publipostage et ouvrir cette copie ... pour cela il me fo me lancer une macro (qui lance cette copie du .doc sans publipustage) et j'ai cette macro et j arrive lancer une macro de Word a partir d'excel mais tt ca avec un document simple en fait le pb c'est qu il ouvre le .doc puis execute la macro ce qu il fo faire dc c'est executer la macro SANS ouvrir le .doc mais ca j'y arrive pas si j'ouvre ce putain de .doc avec publipostage il dit qu il attends la fin d une action OLE
commet faire pour executer une macro ss ouvri le .doc?
navarro
efin je veux dire pas Word en tt cas
navarro
non justement j'ai excel comme choix mais rien d autre
Bendes
Ca m'étonne parce que j'ai essayé sous les deux outils (VBA et VB) et ça marche, ou bien il doit te manquer des librairies. Ce qui m'étonnerait étant donné que t'as Office d'installer...
En fait, quand tu écrit "Dim w as ", il te donne "Word" dans la liste des choix ???
navarro
en fait il connait pas la syntaxe
Dim w as Word.Application
avec le new ce sera pareil il manque encore qqch mais quoi ???
Bendes
J'corrige :
Dim w as Word.Application Set w = New Word.Application w.Documents.Open FileName, ...
navarro
Merci je vais voir ce que ca donne
Bendes
J'suis pas sûr mais j'me souviens d'un truc du style en VB:
Code :
Dim w as Word.Application
Set w = Word.Application
w.Documents.Open FileName, ...
J'espère que ça peut t'aider...
navarro
svpl pk ca marche pas ca
navarro
Le document Word en question possede des publipostage
j'ecris ca moi :
Set Wdoc = GetObject(, "Word.Application" ) Set Wdoc = GetObject(ThisWorkbook.Path + "\" + "document.doc" )
Wdoc.Application.Visible = True
