Alimenter word via Excel
Bonjour à tous,
Je cherche à automatiser la complétion de contrats via une bdd excel. Jusqu'à présent tout se passe bien avec 1 seule ligne dans la BDD.
Il me faut maintenant pouvoir utiliser la nouvelle ligne (nouveau contrat) créée dans la bdd pour générer le nouveau contrat...... et c'est là que je pêche
Voici où ça coince :
Sub GenererLeContrat()
Dim wordapp As Word.Application
Dim worddoc As Word.Document
Dim derligne As Integer
Dim F As Worksheet
Set wordapp = CreateObject("word.application")
Set worddoc = wordapp.Documents.Open("C:\Users\c6\Desktop\ContratEnseignement\ModeleContratEnseignement.docx")
Set F = ThisWorkbook.Sheets("Contrat")
derligne = F.Range("A" & Rows.Count).End(xlUp).Row
With F
worddoc.Bookmarks("Déterminée_Indéterminée").Range.Text = Range("B, derligne").ValueC'est la dernière ligne :
worddoc.Bookmarks("Déterminée_Indéterminée").Range.Text = Range("B, derligne").Valuequi me génère une erreur d'exécution
Help !!
Merci à vous
Bonjour,
Modifier et tester :
... = Range("B" & derligne).ValueA+
Tu es mon héros !!!!
Mille merci à toi, cela fonctionne parfaitement