Discussion :

[nas5_1984]

salut

j'ai un petit problème avec automation WORD pilotage

j'ai un fichier "modèle001.doc"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
word est un objet OLE "Word.Application"
word>>Documents>>Open(SysRep(srProgramFiles)+"\GPCNAC\MODELS\modèle001.doc")
word>>Selection>>Find>>Execute("<DOSSIER>",Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,Promoteur.N_dossier,2)
word>>Selection>>Find>>Execute("<NOM>",Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,Promoteur.Nom,2)
word>>Selection>>Find>>Execute("<PRENOM>",Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,Promoteur.Prénom,2)
word>>Selection>>Find>>Execute("<NPNR>",Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,Promoteur.npnr,2)

a la fin de ce code je veux ajouter une table de mon application

comment je le fait ???

[EDM-TAHITI]

Hello,
regarde vers tableversword (fonction Windev). Toutefois, je ne sais pas car jamais utilisée si cela se fait en automation...
Donnes nous le résultat de tes tests, d'avance merci...

[nas5_1984]

salut
bonjour

exportation avec la fonction "tableversword" je peux l'utiliser quand j'ai un document *.doc vierge mais dans mon cas le document est rempli et encore plus je veux la table au position précise.

merci pour votre aide

[miripesage]

Bonjour, si vous voulez exporter la table vers word, essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sFic est une chaîne
sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ...
"Fichiers Word (*.rtf) *.rtf", "rtf", fselCrée+fselExiste)
TableVersWord(NomTable, sFic, taColonneOrdreAffiché)

[jurassic pork]

bonjour,

tu peux aussi utiliser le pressepapier. Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
WordObj est un objet OLE dynamique
WordObj = allouer un objet Automation "Word.application"
SignetObj est un objet OLE dynamique
TableauObj est un objet OLE dynamique
WordObj>>Visible = Vrai 
//on ouvre le document
WordObj>>Documents>>Open("F:\MonDoc.doc") //Fichier Word
SignetObj = WordObj>>ActiveDocument>>Bookmarks("LeSignet")>>Range
// on se positionne à l'endroit du signet
SignetObj>>Select
// on crée un tableau dans word avec le nb de lignes (+1 avec titres) et de colonnes de la table
TableauObj = WordObj>>ActiveDocument>>Tables>>Add(WordObj>>Selection>>Range,... 
TableOccurrence(Table_MonFich,toTotal) + 1, TableOccurrence(Table_MonFich,toColonne))
// on copie la table dans le pressepapier avec les titres de colonnes
TableVersPressePapier(Table_MonFich,taTitreColonnes)
// on colle le pressepapier dans le tableau dans Word
TableauObj>>Select
WordObj>>Selection>>Paste()

Ami calmant, J.P

[kinansoag]

salut,


tu peux aussi aller directement en imposant le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sFic est une chaîne
sFic = repertoire complet + .....\NomFichier.doc
TableVersWord(NomTable, sFic, taColonneOrdreAffiché

pour ouvrir

Lanceappli (Fic) // ou Lanceappliassocié (Fic) //

dans certains cac tu doit préciser le répertoire dans Lanceappli()

a plus

[nas5_1984]

salut
bonjour

merci a vous

le code de monsieur jurassic pork fonctionne très bien mais la table exporte sans bordures

comment j'ai les ajoute ??

bonne journée

[jurassic pork]

bonjour,
qu'entends-tu par "sans bordures" ?

le copier coller ne copie que le contenu. Dans mon exemple on crée un tableau dans word (avec bordure) et on colle le contenu de la table dedans.

Ami calmant, J.P

[nas5_1984]

salut
bonjour

merci jurassic pork ça marche avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TableauObj>>AutoFormat(16)
TableauObj>>AutoFitBehavior(1)

je vous remercie jurassic pork

bonne journée

[ACOIdev]

Je me permets d'attirer votre attention sur le post que je viens d'émettre :
http://www.developpez.net/forums/d13...ord-depuis-wd/

Sachant que vous avez manipuler Automation pour Word.

Merci

[Nicolas_Jeanneau]

Le post date de 2011 et était résolu !!!

[Robert le débutant]

bonjour,

tu peux aussi utiliser le pressepapier. Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
WordObj est un objet OLE dynamique
WordObj = allouer un objet Automation "Word.application"
SignetObj est un objet OLE dynamique
TableauObj est un objet OLE dynamique
WordObj>>Visible = Vrai 
//on ouvre le document
WordObj>>Documents>>Open("F:\MonDoc.doc") //Fichier Word
SignetObj = WordObj>>ActiveDocument>>Bookmarks("LeSignet")>>Range
// on se positionne à l'endroit du signet
SignetObj>>Select
// on crée un tableau dans word avec le nb de lignes (+1 avec titres) et de colonnes de la table
TableauObj = WordObj>>ActiveDocument>>Tables>>Add(WordObj>>Selection>>Range,... 
TableOccurrence(Table_MonFich,toTotal) + 1, TableOccurrence(Table_MonFich,toColonne))
// on copie la table dans le pressepapier avec les titres de colonnes
TableVersPressePapier(Table_MonFich,taTitreColonnes)
// on colle le pressepapier dans le tableau dans Word
TableauObj>>Select
WordObj>>Selection>>Paste()

Ami calmant, J.P

Cher Monsieur,
Bravo !