input Box : j'ai honte [Résolu]

[liop49]

Bonjour,

j'ai honte mais comme cela fait une heure que je perds mon temps je viens vers vous en espérant avaoir une réponse

J'ai créé une imput box mais je n'arrive pas à écrire la valeur donnée par l'utilisateur dans le document word !!

Voici le code:

Code :

1
2
3
4
5
Sub Lot()
Dim Lot As String
   Lot = InputBox("Entrez un n° de Lot", "N° de lot")
 
End Sub

Je voudrais afficher Lot sur une ligne précise dans word !!!

Je n'y arrive pas

Merci pour votre aide

Nini la loose

[COCONUT2]

je relance le sujet car ca m'interresse aussi.

Merci d'avance pour vos réponses

[zazaraignée]

Il suffit d'ajouter un petit Selection.Text

Code :

1
2
3
4
5
Sub Lot() 
Dim Lot As String
  Lot = InputBox("Entrez un n° de Lot", "N° de lot") 
  Selection.text = Lot 
End Sub

[COCONUT2]

Merci

Mais ca permet d'écrire le numéro de lot
mais comment faire pour choisir la ligne sur laquelle on va écrire ce numéro?

[zazaraignée]

Si tu dois toujours mettre cette info dans la même cellule, la A1 par exemple, tu utilises un objet Range

Code :

1
2
3
Sub Lot()
    Range("A1").Value = InputBox"Entrez un n° de Lot", "N° de lot")
End Sub

Edit : Oups! Je me pense encore dans le forum VBA Excel... Je regarde ça de plus près et je reviens.

[zazaraignée]

Le mieux c'est de mettre des signets aux endroits stratégiques du document. Place le curseur à l'endroit où devra s'insérer l'identifiant du lot et insère un signet. Tu peux faire ceci dans un modèle de document pour assurer que le signet existera pour les documents suivants.

Code :

1
2
3
4
Sub Lot()
    ActiveDocument.Bookmarks("lot").Select
    Selection.Text = InputBox("Entrez un n° de Lot", "N° de lot")
End Sub