Saisie d'une valeur via un fenêtre stype Pop'up

[Asenka-92]

Bonjour,

Je n'ai pas trouvé de solution à ma question sur ce forum et sur le web. Si cette question a déjà été posée, je vous prie d'accepter toutes mes excuses.

Je travaille sous Office 2003 et j'aimerai automatiser un document word ... à ce jour, j'ai réussi mais il me manque le petit quelque chose suivant :

Lors de l'ouverture du document, j'aimerai qu'une fenêtre style pop'up s'affiche pour y entrer une valeur (un chiffre compris entre 0 et 100), cette valeur s'affichera sur une ligne précise du document word (il s'agit d'un document bancaire). Je ne sais pas si c'est possible, si ça l'est, avait vu une idée ou solution ?

Cette solution me permettrait ensuite de verrouiller la totalité du document puisque il s'agit de la seule variable à saisir, le reste étant automatisé.

Merci pour votre réponse ...

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Ce que tu cherche s'appelle un InputBox.

Code :

1
2
3
4
5
6
 
Sub Document_Open()
dim sttemp as String
sttemp = InputBox ("entrez votre Valeur ", "Valeur à entrer")
Selection.Range.TypeText sttemp
End Sub

Essaie dans un document.

Alt + F11
Tu colles ce code, tu sauvegarde le document.
Tu ouvres le document.

Racontes !

[Asenka-92]

Merci pour cette réponse très rapide ... (7 minutes)

J'ai essayé et ré-éssayé mais je tombe toujours sur le même message d'erreur : "Erreur de compilation. Membre de méthode ou de données introuvables" et lorsque je clique sur OK, le code "Sub Document_Open()" est surligné en jaune.

Merci de votre aide.

[Heureux-oli]

J'ai omis de dire que c'était dans un module du document qu'il fallait mettre le code.

Pour me faire pardonner, j'ai mis un exemple.

Dans l'exemple, j'ajoute le texte à l'endroit où se trouve le curseur.

Mais on peut insérer le texte sur un signet.

[jouclar]

Bonjour,

Je souhaite élargir la question posée par Asenka-92 car je n'ai pas trouvé de solution. Dans mon cas, je souhaite qu'une fenêtre de type pop up s'ouvre et me permette de saisir plusieurs champs qui lorsque je cliquerai sur le bouton OK de cette fenêtre mettra tous les champs (une dizaines) de mon document WORD à jour.

Merci.

[Sepia]

Salut,

Si tu as une version de Word avant 2007, le moyen le plus simple est de faire définir un signet différent pour chaque élément qui peut être modifié puis de créer une boite de dialogue personnalisée, pour cela utilise l'aide de VBA avec le mot-clé userform.

Lorsque tu as récupére tes valeurs de ta boite, il suffit de remplacer les valeurs des signets par les valeurs de la boite, puis de sélectionner ton document et de lancer la commande "Mettre à jour les champs"

[jouclar]

Merci,

J'ai avancé en utilisant UserForm, maintenant je souhaite coller une Image dans UserForm et là je coince

[Heureux-oli]

Tu insères un contrôle image et tu définis une image pour ton contrôle.

Si tu cliques sur le bouton avec trois petits points tu ouvrira une boîte de dialogue permettant de choisir une images dans les images acceptées.

[jouclar]

Merci pour vos réponses, mais pour un newbe comme moi, c'est un peu light, j'ai besoin de plus de détails pour mettre le tout en musique :

- En utilisant UserForm, comment mettre une valeur par défaut dans une TextBox ?

- Comment récupérer la valeur et l'envoyer dans mon document WORD ?

Merci

[CoinCoin351]

Bonjour,

Je cherche à faire quelque chose dans le même genre.
J'ai créé un document word et j'aimerai qu'à son ouverture, un pop-up me permette de saisir du texte et qu'après validation le texte soit inséré dans le document Word à un endroit précis et avec une mise en fore définie.
Je souhaiterai que la zone de texte puisse contenir plusieurs lignes.

Merci pour votre aide.

CoinCoin351

[jouclar]

Bonjour,

Je n'ai toujours pas trouvé la solution concernant les valeurs par défaut d'un TextBox dans une UerForm.

Merci de m'aider

[Heureux-oli]

Un exemple pour deux questions.

[jouclar]

Merci Heureux_Oli,

J'ai récupéré un document *.dot avec une macro utilisant userform pour mettre à jour des champs du document. Mais dans la fenêtre utilisant la userform, il y a des valeurs par defaut, je pense que ces valeurs sont récupérées depuis le document. Voici une partie du code, peux tu me dire ce qu'il en est :

Code :

1
2
3
4
    Selection.GoTo What:=wdGoToBookmark, Name:="numero_d_appel"
    Selection.MoveStart Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=True
    If Selection.Text <> " " Then appel.Text = Selection.Text

Merci de ton aide

[Heureux-oli]

C'est du code enregistré.

Pour récupérer le contenu d'un signet, il y a plus simple.

Code :

1
2
stTemp = ActiveDocument.Bookmarks("Num_d_appel").Range.Text
If stTemp <> "" Then .....

Mais avec un si petit bout de code, ce n'est pas très facile.

[CoinCoin351]

Bonjour,

Et comment faire pour que la valeur saisie dans la pop-up soit placée à l'endroit d'un signet ?

CoinCoin351

[Heureux-oli]

En affectant la valeur au signet.

Code :

1
2
3
4
 
Dim maVariable as String
MaVariable = InputBox("Entrez un texte !")
ActiveDocument.Bookmarks("MonSignet") = maVariable

Pour autant que le signet soit présent sur le document.

[CoinCoin351]

Envoyé par Heureux-oli

En affectant la valeur au signet.

Code :

Pour autant que le signet soit présent sur le document.

J'ai créé un signet Titre et j'ai mis le code suivant :
--------------------------

Code :

1
2
3
4
5
6
7
8
9
Sub document_Open()
 
Dim maVariable As String
maVariable = InputBox("Entrez un texte !")
ActiveDocument.Bookmarks("Titre") = maVariable
 
MsgBox "Ok"
 
End Sub

--------------------------
J'ai une erreur de compilation à l'exécution sur Bookmarks("Titre").
Je suis sous Word 2007.

CoinCoin351

[Heureux-oli]

C'est pas le bon jour, désolé.

Code :

ActiveDocument.Bookmarks("Titre").Range.text

[CoinCoin351]

Envoyé par Heureux-oli

C'est pas le bon jour, désolé.

Code :

ActiveDocument.Bookmarks("Titre").Range.text

Merci beaucoup.
Celà fonctionne à merveille.

CoinCoin351