andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 mai 2011
-
2 juil. 2006 à 18:11
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
2 juil. 2006 à 22:36
bonjour j'ai une erreur 5825 sur mon code vba
j'ai fait une macro pour automatiser les numéro des devis sur word je vous donne le code, j'ai beau chercher je trouve pas la solution je pense que c'est une erreur de variable sur la ligne en couleur
Sub AutoOpen()
Dim vPremierNuméro As Single
Dim vNuméro As Single
Dim vNumérotation As String
Dim vNomDocument As String
Dim vChemin As String
For Each vVar In ActiveDocument.VariablesIf vVar.Name "note" Then vIndex aVar.Index
Next
If vIndex = 0 Then
ActiveDocument.Variables.Add Name:="note", Value:=54
Else
ActiveDocument.Variables(vIndex).Value = 54
End If
If Variables.Count > 0 Then
ActiveDocument.Variables("note").Delete
End If
End Sub
Sub SupprimerVariables()
Dim vVar
For Each vVar In ActiveDocument.Variables
vVar.Delete
Next
End Sub