Affecter le contenu inputbox à un doc word
educhemann
Messages postés
30
Statut
Membre
-
educhemann Messages postés 30 Statut Membre -
educhemann Messages postés 30 Statut Membre -
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
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
2 réponses
-
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 -
