Discussion :

[jj bzh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Bruno2r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jj bzh]

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)

[Bruno2r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

histoire que le prochain puisse en profiter, Merci.

[jj bzh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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