Discussion :

[dbouchy]

Bonjour,

Via un ERP, j'exporte des données pour établir mes devis sous word. Des signets sont définis dans un modèle de document..

J'exporte le N° du client, son nom, le N° du devis et la version du devis

Mon problème est le suivant : j'aimerai exploiter les valeurs des signets insérées dans le devis pour l'enregistrer en suivant un chemin bien précis: "C:\Clients\Numeroclient-nomclient\DevisTEContrats\numerodedevis\" avec le nom de fichier suivant : "DV numerodedevis-numerodeversion.docx"

Exple : DV 2045-7.docx enregistré dans "C:\Clients\46-TOTO\DevisTEContrats\2045\


J'ai essayé pas mal de chose mais le code me renvoie systématiquement des valeurs nulles.

Voici mon code :

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
Sub Enregistrer_devis()
'
' Enregistrer_devis Macro
Dim champ1 As String, champ2 As String, champ3 As String, champ4 As String
champ1 = ActiveDocument.Bookmarks("codeclient").Range.Text
champ2 = ActiveDocument.Bookmarks("NomClient").Range.Text
champ3 = ActiveDocument.Bookmarks("NumDevis").Range.Text
champ4 = ActiveDocument.Bookmarks("numeroversion").Range.Text
 
ChangeFileOpenDirectory "C:\Clients\" & champ1 & "-" & champ2 & "\DevisTEContrats\" & champ3 & "\"
 
 ActiveDocument.SaveAs2 FileName:="DV " & champ3 & "-" & champs4 & ".docx", FileFormat:= _
      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
      SaveAsAOCELetter:=False, CompatibilityMode:=15
 
 
End Sub

Pouvez-vous m'aider ? Je vous remercie d'avance pour le temps que vous m'accorderez.

[dbouchy]

Un petit up...
SVP...
A l'aide.