Recherchev vers word
m
Bonjour à tous,
j'ai une base de données et j'aimerais générer automatiquement une lettre type qui contiendrait l'ensemble des éléments d'une ligne de ma base de données (dates,adresses, dénomination etc...). Il s'agirait en fait d'une sorte de recherchev avec pour cible un document word... Je ne sais pas si cela est possible...
Merci pour vos conseils!
d
Bonjour massimo
Ci-dessous un morceau de code que j'avais utilisé dans une application RH
Cette procédure, inscrivait dans un fichier word "fiche générique" des information venant du fichier excel et passées en argument. (utilisation des bookmarks word)
Tu peux sans doute t'en inspirer
'Ouverture du fichier type word et écriture des signets
Sub word(matricule, nom, prénom, Direction, responsable, classification, qualification, critère1, critère2, critère3, cheminfichier)
chemin = ThisWorkbook.Path & "\"
Set doc = w.documents.Open(chemin & "fiche générique.doc")
doc.bookmarks("nom").Range = nom
doc.bookmarks("prénom").Range = prénom
doc.bookmarks("critère1").Range = critère1
doc.bookmarks("critère2").Range = critère2
doc.bookmarks("critère3").Range = critère3
doc.bookmarks("Direction").Range = Direction
doc.bookmarks("Classification").Range = classification
doc.bookmarks("Qualification").Range = qualification
doc.bookmarks("Responsable").Range = responsable
Set fso = CreateObject("scripting.filesystemobject")
If fso.folderexists(chemin & "doc\" & responsable) = False Then
fso.createfolder (chemin & "doc\" & responsable)
End If
'MsgBox chemin & "doc\" & responsable & "\" & matricule & ".doc"
doc.SaveAs (chemin & "doc\" & responsable & "\" & matricule & ".doc")
doc.Close
End Subm
n'existe-t-il pas une solution sans VBA?
d
Re
Voir avec word et publipostage, mais je ne connait pas suffisament