Affecter le contenu inputbox à un doc word

Fermé
educhemann Messages postés 30 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 30 décembre 2018 - 29 juin 2006 à 15:18
educhemann Messages postés 30 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 30 décembre 2018 - 1 juil. 2006 à 02:38
VBA_word
j'ai esaayé plusiuers fomules pour insere le contenu d'un input box ds un formulaire word, par exemple:
Private Sub permis_Click()
Dim pc As String
pc = InputBox("précisez")
If pc = true Then
ActiveDocument.FormFields("pc").resulte (pc)
Else
End If
End Sub

ca ne foctionne toujours pas!
ou est l'erreur?
merci d'avance
A voir également:

2 réponses

byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 63
29 juin 2006 à 15:58
Salut,

je crois que l'eereur ce situe au niveau du test
If pc = true Then (pc est déclarée String et ne peut être comparée à une valeur logique: true)
un autre point je n'ai pas compris ce que tu désire faire du texte saisie et je pense que ActiveDocument.FormFields("pc").resulte (pc) générera une erreur et que signifie pc .

Bref, J'ai essayé ce code qui inserre à la fin la saisie dans un inputbox.

Private Sub permis_Click()
Dim pc As String
pc = InputBox("précisez")
If pc <> "" Then
ActiveDocument.Words.Last.InsertAfter pc
End If
End Sub

Bonne chance
0
educhemann Messages postés 30 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 30 décembre 2018
1 juil. 2006 à 02:38
ok merci

A+
0