VBA Publipostage Word avec BD excel Pb connection DDE
cs_ToShI
Messages postés3Date d'inscriptionlundi 6 janvier 2003StatutMembreDernière intervention13 mars 2010
-
12 mars 2010 à 18:04
cs_ToShI
Messages postés3Date d'inscriptionlundi 6 janvier 2003StatutMembreDernière intervention13 mars 2010
-
13 mars 2010 à 13:20
Bonjour,
Je craqueeeee :)
J'ai un doc Word 2003 : doc principal de fusion pour les Contrats
J'ai un doc Excel 2003: Base de donnée Excel avec Macro pour saisir
1 - Je souhaite ouvrir le word à partir d'une macro Excel
2 - Surtout faire la fusion en utilisant FEUILLES DE CALCUL MS EXCEL VIA UN DDE(*.xls)
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word (Fichier.doc) et effectue publipostage
Set DocWord = AppWord.Documents.Open(MyPath & NameFichierWord, ReadOnly:=True)
rep = MsgBox("Le fichier Word est lancé", vbOKOnly)
Unload Me
End Sub
Cela fonctionne mais bon ce n'est pas en connexion FEUILLES DE CALCUL MS EXCEL VIA UN DDE(*.xls) Donc pb avec les caractère type N° de sécu, Salaire Brut et j'en passe...
Avez vous une méthode pour faire cette connexion ?
Je n'arrive pas avec :
channelNumber = Application.DDEInitiate( _
app:="WinWord", _
topic:=MyPath & NameFichierWord)
Application.DDEExecute channelNumber, "[FILEPRINT]"