Private Sub CommandButton_OK_Click()
Dim WordDoc As Word.Document
Dim WordDoc2 As Word.Document
Dim WordApp As Word.Application
Dim Texte As String
Dim NomWord As String, NomWord2 As String
Dim NomExcel As String, Ligne As Long, Chemin As String
'On Error GoTo Erreur:
' Ligne de départ des données du fichier Excel est 5
Ligne = 5
Chemin = Me.TextBox_Chemin & "\"
NomExcel = Me.TextBox_Nom_Excel
NomWord = Me.TextBox_Nom_Word
Windows(NomExcel).Activate
Do While Cells(Ligne, 1) <> ""
Texte = Cells(Ligne, 1) & " " & Cells(Ligne, 2) & " " & Cells(Ligne, 3) & " " & Cells(Ligne, 4) & " " & Cells(Ligne, 5)
Set WordApp = CreateObject("Word.Application")
Set WordDoc = GetObject(Chemin & NomWord)
WordDoc.Range.Select
WordDoc.Content.Copy
WordApp.Documents.Add.Activate
WordApp.Visible = False
NomWord2 = WordApp.ActiveDocument.Name
Set WordDoc2 = GetObject(NomWord2)
WordApp.Selection.Paste
WordDoc2.Bookmarks("texte").Range.Text = Texte
WordDoc2.PrintOut
WordDoc2.Close SaveChanges:=wdDoNotSaveChanges 'Ferme le doc actif sans l'enregistrer
'ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges 'Ferme la fenêtre active sans l'enregistrer
Ligne = Ligne + 1
Loop
UserForm_PubliWord.Hide
End
'Erreur:
'MsgBox "Erreur du programme, vérifiez l'extension des fichiers saisis dans le masque de saisie, le chemin, attention, le chemin ne doit pas finir par \. Sinon contactez Vincent LANDI : vincent@landi.biz"
'
End Sub