Discussion :

[devalender]

Bonsoir a tous
voulant insérer des éléments a un endroit exact dans un document word, je me suis inspirer d'un code pris sur un forum.
J'ai insérer un signet sur la position voulue que j'ai nommé NUMEROC. Voici le code en question:

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
 
xl est un objet OLE dynamique = ObjetActif("Word.application")
// Allocation d'un objet Excel si non-trouvé
SI xl=Null ALORS 
	xl=allouer un objet OLE "Word.application"
	SI xl=Null ALORS
		Erreur("Impossible de lancer WORD")
		RETOUR
	FIN
	SI xl <> Null ALORS
xl>>Documents>>Open("C:\DELIBER.doc") //Fichier Word
xl>>Visible = Faux
xl>>Selection>>GoTo(-1,0,0,"NUMEROC")
xl>>selection>>Typetext ("21/10/2009") 
xl>>Quit()   // Fermeture d'Excel
libérer xl 
FIN
FIN

Mais la fonction GoTo donne une message d'erreur:

Erreur à la ligne 12 du traitement Clic sur BTN_SansNom2.
Vous avez appelé la méthode Automation 'GoTo'.
En tentant d'invoquer la méthode <GoTo> ou de lire la propriété <GoTo>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A162E : Impossible de trouver le signet spécifié.'
En tentant d'invoquer la méthode <GoTo>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A162E : Impossible de trouver le signet spécifié.'
En tentant de lire la propriété <GoTo>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A16E6 : 'GoTo' n'est pas une propriété.'
En tentant d'écrire la propriété <GoTo>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'

Ya t'il un autre moyen de le faire ?

Merci à tous

[jurassic pork]

hello,
pourquoi n'utilises-tu pas bookmarks pour sélectionner le signet comme ceci :

Code :

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

1
2
xl>>ActiveDocument>>Bookmarks("NUMEROC")>>Select
xl>>selection>>Typetext ("21/10/2009")

Ami calmant, J.P

[devalender]

il faut dire que j'ai pas de doc sur les option, donc j'ignorai cette option. Je test et je fais un retour. Merci

[devalender]

Je viens de tester et ça marche ! Merci