Commande pour faire un lien avec un champ [VB] - Programmation
Marsh Posté le 13-08-2001 à 10:07:46
Une petite aide svpl merci
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
Marsh Posté le 13-08-2001 à 15:10:17
toujours personne?
Marsh Posté le 13-08-2001 à 16:06:53
Svpl un ptti coup de pouce
Marsh Posté le 13-08-2001 à 19:03:20
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...
Marsh Posté le 14-08-2001 à 08:23:29
ok je vais aller voir
Merci
Marsh Posté le 14-08-2001 à 15:50:33
hum....j'ai rien trouver
Si qqun peu m'aider Merci
Marsh Posté le 15-08-2001 à 10:47:39
Les pro du VBA j'ai besoin de vous
Merci
Marsh Posté le 16-08-2001 à 08:11:13
par contre si qqun la ca m'interresse
Merci
Marsh Posté le 16-08-2001 à 10:10:35
Les pro du BVA une idee?
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+
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+
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
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
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
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
Marsh Posté le 17-08-2001 à 08:36:57
oula merci je vais voir ce que ca donne
Merci
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