Je te préviens tout de suite ma méthode est fastidieuse peut être en existe t'il une plus simple.
Tu créer un tableau dans un .dot, ensuite tu te met dans un ecase et tu vas dans le menu insertion puis champs.
Dans la liste tu sélectionne "DocVariable" et tu saisi un nom.
tu repète cette opération pour tout ton tableau.
ensuite un bout de code VB commenté :
Public Sub FullEtiq(DocEtiq As String)
Dim Doc As Object
Dim i, i1, j As Integer
Dim BA, QT, AJ As String
'Initialisation des variables
BA = "": QT = "": AJ = ""
'Création de l'objet word
Set wrd = CreateObject("word.application")
'Ouverture du document DocEtiq = chemin & nom_Fichier
Set Doc = wrd.Documents.Open(DocEtiq)
'Remplissage du doc avec différentes variable
'Je n'est pas trouvé comment utilisé les nom des champs du
'.dot pour les remplir donc obligé de passer par un indice
'attention de ne pas ce trompé
Doc.Fields(1).Result.InsertBefore (Nom_FichFormule)
Doc.Fields(2).Result.InsertBefore (gFichMat)
Doc.Fields(10).Result.InsertBefore (Nom_de_la_Formule)
Doc.Fields(23).Result.InsertBefore (Date)
'Fermeture des objets document et word
If Not (wrd Is Nothing) Then
Doc.Close
wrd.Quit
Set Doc = Nothing
Set wrd = Nothing
End If
'... à toi de jouer maintenant
end sub
|
Au fait petite astuce pour ne pas modifier ton .dot par VB
'nom_modele :chemin et le nom de ton modèle
'Etiquette : chemin et nom du document apparaissant
'à l'utilisateur
FileCopy nom_modele, Etiquette
|
J'espère t'avoir été utile
Bon courage