Alex069
Messages postés3Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention 7 août 2003
-
7 août 2003 à 11:59
nagattaque
Messages postés230Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention 5 juin 2007
-
8 août 2003 à 10:04
Bonjour tout le monde,
Dans un document word, je souhaiterais faire passer le résultat d'un calcul réalisé avec VBA.
Je suppose qu'il faut utiliser un champ (DOCVARIABLE "nom") dans la page Word pour afficher le résultat issus de VBA mais je n'en suis pas certain (un avis là dessus ?)
Ensuite, comment faire passer mon résultat VBA au champ (DOCVARIABLE "nom") de mon doc Word ? quelle commande utiliser ?
Je ne trouve rien à ce sujet dans l'aide en ligne.
J'utilise Office XP et je suis débutant en VBA
nagattaque
Messages postés230Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention 5 juin 2007 7 août 2003 à 15:40
tu mets un champ sur ton doc word, pour cela, tu fais un clique droit sur la zone grise de la bare d'outils et tu affiches la barre d'outils "Formulaires". La tu choisis le premier outils : "ab|" et tu inseres le champs a l'endroit ou tu veux. Tu doubles cliques dessus et tu as les propriétés qu'il te faut.....
Bon courage et si tu as d'autres pb, n'hésite pas !
Alex069
Messages postés3Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention 7 août 2003 7 août 2003 à 16:30
Merci de ta réponse, MAIS :
Comment lier le contenu de cette 'zone formulaire' à VBA ?
En fait, je ne veux rien saisir dans ce champs, je veux juste qu'il m'affiche le résultat d'un calcul fait avec VBA.
De plus à l'impression, cette zone est grisée (ce qui ne vas pas).
Peux tu encore me donner un coups de main STP ?
merci d'avance
nagattaque
Messages postés230Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention 5 juin 2007 8 août 2003 à 10:04
bon tu ne m'as pas envoyé de mail !!!!!
Donc voici comment passer les parametres :
tu mets 3 champs dans ta feuille word, qu tu appelles "a", "b", et "res".... puis un bouton et tu ecris ca :
Private Sub CommandButton1_Click()
Dim num1 As Integer
Dim num2 As Integer
num1 = InputBox("Entrez le premier nombre :")
num2 = InputBox("Entrez le second nombre :")
MsgBox "Vous allez calculer " & num1 & " + " & num2, vbInformation
FormFields("a").Result = num1 'pour ecrire ds le champ A
FormFields("b").Result = num2 'pour ecrire ds le champ B