[VBA]utiliser une variable récupérée par inputbox

bonjour,
un utilisateur me demande une chose qui ne me semblait pas trop compliquée :
pouvoir à chaque rafraichissement saisir le nombre de jours ouvrés et l'exploiter ensuite dans son document.

Comme cette info n'est n'est nécessaire que pour 1 utilisateur, je ne vais pas alourdir l'univers d'un énieme objet. et comme j'ai de très mauvais souvenirs des objets personnels je ne vais pas exploiter cette solution non plus.

Donc
j'ai commencé par créer un inputbox pour poser la question

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sNbre Dim iNbre As Integer   Private Sub Document_BeforeRefresh(Cancel As Boolean)     sNbre = InputBox("Quel nombre ?", , iNbre) iNbre = CInt(sNbre)   End Sub

---

et ensuite je bloque car je ne sais pas comment récuperer dans le document la valeur de la variable iNbre !
Quelqu'un peut m'aider ?

Je ne discuterai pas de la méthode choisie ....

Pour la suite de ton VB il te faut créer une variable équivalente à Définir une Variable ou Ajouter une Varable.

Code:

---

Add(Formula As String, [Name As String],) As DocumentVariable

---

Merci pour cette réponse, a partir de ton exemple j'ai pu me remettre sur les rails.

j'ai brodé un peu autour pour gérér la création de la variable et ensuite sa modification à chaque raffraichissement.

ça marche nickel.

(mr le directeur va être content) :mrgreen:

Merci d'avoir pensé au :resolu:
Pourrais tu ta broderie autour de

Code:

---

ADD(Formula AS String, [Name AS String],) AS DocumentVariable

---

histoire que le prochain puisse en profiter, Merci.

voila mon code , il y a tout de meme un disfonctionnement :
entre la création de la variable et le 1er raffraichissement , j'ai été obligé de fermer le document pour que la variable change à chaque raffraichissement :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim sNbre   Private Sub Document_BeforeRefresh(Cancel As Boolean)   Dim cI As Integer Dim cJ As Integer   sNbre = InputBox("Quel nombre ?", , sNbre) 'le nombre de variables cI = Application.ActiveDocument.DocumentVariables.Count 'on boucle pour trouver notre variable cJ = 0 For i = 1 To cI: 'on met a jour la formule If Application.ActiveDocument.DocumentVariables.Item(i).Name = "NbreDeJourOuvre_VBA" Then cJ = 1 Application.ActiveDocument.DocumentVariables.Item(i).Formula = "= " + sNbre End If   Next 'la 1ere fois on créé la formule If cJ <> 1 Then Application.ActiveDocument.DocumentVariables.add "= " + sNbre, "NbreDeJourOuvre_VBA" End If     End Sub

---