Bonjour,
j'ai fait un petit code qui fait du "publipostage"
Mon problème est que l'impression se fait sans respecter les marges de Word, du coup mon édition se fait sur 2 feuilles et en plus les en-tetes et pieds de pages du doc Word ne sont pas imprimés.
Bien sur si j'imprime le doc word directement de Word, le fichier s'imprime correctement.
Voici le code :
Si quelqu'un a une idée.
j'ai fait un petit code qui fait du "publipostage"
Mon problème est que l'impression se fait sans respecter les marges de Word, du coup mon édition se fait sur 2 feuilles et en plus les en-tetes et pieds de pages du doc Word ne sont pas imprimés.
Bien sur si j'imprime le doc word directement de Word, le fichier s'imprime correctement.
Voici le code :
Si quelqu'un a une idée.
Code:
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