Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Excel-word

M.D

XLDnaute Occasionnel
Bonsoir,

Pour faire simple, j'ai un fichier Excel qui ne sert de base de données et un fichier Word pour mon publipostage. La fusion entre excel et Word c'est bon. le tout étant sur C
Par contre , j'aimerai à partir de mon fichier excel par une macro ouvrir mon fichier Word. avec la formule suivante

Private Sub Publipostage()
'
Publipostage Macro
' Macro enregistrée le 02/05/2012 par Delage

Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String

NomBase = "C:\stage\org.xls"

Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("C:\satge\convention P.H.doc")

'fonctionnalité de publipostage pour le document spécifié
With docWord.mailMerge
'Ouvre la base de données
.OpenDataSource Name:=Crg.xls , _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & C:\stage\org.xls & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [ren]"
'Spécifie la fusion vers l'imprimante
.Destination = wdSendToPrinter
.suppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.firstRecord = wdDefaultFirstRecord
.lastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
.Execute Pause:=False
End With

Application.ScreenUpdating = True

'Fermeture du document Word
docWord.Close False
appWord.Quit
End Sub

Après lancer cette macro , j'ai comme message erreur
"Erreur de compilation"
Type défini par l'utilisateur non défini.

Je m'arrive pas à trouver pourquoi?
Parmi vous, y a-t-il une personne pour venir en aider afin de résoudre ce problême.

Merci d'avance

M.D
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…