[VB] Commande pour faire un lien avec un champ

Commande pour faire un lien avec un champ [VB] - Programmation

Marsh Posté le 13-08-2001 à 08:24:45    

Bonjour,  
Dans Word il y a une option CHAMPS  pour inserer par exemple la date, le nom de l'utilisateur....
J'aimerais connaite le commande en vb qui accede a ce champ.
pour pouvoir lui donner la valeur que je veux.
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 08:24:45   

Reply

Marsh Posté le 13-08-2001 à 10:07:46    

Une petite aide svpl  merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 12:10:29    

En fait c'est pour palier le probleme du publipostage que j'avais
Merci a ces qu'ils peuvent me renseigner


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 15:10:17    

toujours personne?


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 16:06:53    

Svpl un ptti coup de pouce


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 19:03:20    

:hello: je ne connais pas la réponse mais essaye d'aller sur le
sites
 
www.vbfrance.com
 
et qui sait tu trouveras ton aide, car j'avoue ne pas connaitre... [:macray]

Reply

Marsh Posté le 14-08-2001 à 08:23:29    

ok  je vais aller voir
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 14-08-2001 à 15:50:33    

hum....j'ai rien trouver  
Si qqun peu m'aider  Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 15-08-2001 à 10:47:39    

Les pro du VBA j'ai besoin de vous
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 08:11:13    

par contre si qqun la  ca m'interresse
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 08:11:13   

Reply

Marsh Posté le 16-08-2001 à 10:10:35    

Les pro du BVA  une idee?


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 10:25:55    

Je crois me souvenir qu'il faut utiliser les fonctions relatives aux signets pour lire les valeurs des champs en VBA.
Si je retrouve qqchose de + précis je reviendrais.
A+

Reply

Marsh Posté le 16-08-2001 à 10:37:43    

Je reviens sur ce que j'ai écrit + haut: rien à voir avec les signets si tu utilses Word97 & +
 
Un exemple de code pour voir les codes de champs de ton doc.
 
Dim fld As Field
     
For Each fld In ActiveDocument.Fields
   Debug.Print fld.Code
Next
 
Tu trouveras les méthodes et propriétés liées tout seul je pense
A+

Reply

Marsh Posté le 16-08-2001 à 11:37:06    

Si tu connais l'indice de ton champ word (par ordre de création)
alors:temp=activedocument.fields(1).result '  ( 1 est l'indice)
'temp contient la valeur du champ

Reply

Marsh Posté le 16-08-2001 à 11:50:45    

hummm....merci  les amis  je m'occupe de ca et je vous tiens au courrant
 
Je termine l'histoire du chemin
 
Franchement Merci a tous


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 13:42:09    

Sylderon a écrit a écrit :

Je reviens sur ce que j'ai écrit + haut: rien à voir avec les signets si tu utilses Word97 & +
 
Un exemple de code pour voir les codes de champs de ton doc.
 
Dim fld As Field
     
For Each fld In ActiveDocument.Fields
   Debug.Print fld.Code
Next
 
Tu trouveras les méthodes et propriétés liées tout seul je pense
A+  




 
nur:en fait les champs que j'ai sont prefaits et je ne connais pas l'ordre mais je retiends ta solution tt de meme
 
Sylderon:je pense que c bon mais en fait moi je dois ecrit ds un champs de word  en fait recopier  une case d'excel ds un champ  
et ton exemple permet juste de lire le contenu des champs. Moi je dois ecrire dedans
Comment je peux faire cela?
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 16:16:36    

pour trouver l'indice de ton champ une petite fonction:
 
function trouveindex(temp) as integer
dim afields()
fcount=activedocument.fields.count
redim afields(fcount)
trouvechamp=false
i=1
do
if activedocument.fields(i).result="toto" then trouvechamp=true
i=i+1
loop while trouvechamp=false
i=i-1
trouveindex=i
end function   'toto etant le texte de ton champ
 
 
 
MAINTENANT SI TU VEUX REMPLACER LE CONTENU DE TON CHAMP PAR AUTRE CHOSE JE CROIS QUE TU NE PEUT PAS LES CHAMPS ETANT E LECTURE SEULE MAIS ON PEUT PROCEDER AUTREMENT EN EFFACANT LE CHAMP PUIS EN EN CREANT UN AUTRE AVEC LE NOUVEAU CONTENU :
si tu veux que le champ "toto" soit remplacer par le champ "coucou"
 
sub jj
temp="coucou"
activedocument.fields(trouveindex(toto)).delete
selection.fields.add_ range:=selection.range,type:=wdfieldusername,_ text:=temp,preserveformatting:=true  
end sub

Reply

Marsh Posté le 17-08-2001 à 08:36:57    

oula  merci  je vais voir ce que ca donne
Merci


---------------
Une ptite aide en VB et jVBien
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed