Laisson dde

baaachar13 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
dandypunk Messages postés 832 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
salut comment etablir un connection ou laison dde entre l e word et excel quant everire l'excel sera ouvrira

2 réponses

m@rina Messages postés 23933 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

Menu Outils, Options, Général => cocher l'option "Confirmation des conversions lors de l'ouverture".

m@rina
0
dandypunk Messages postés 832 Date d'inscription   Statut Membre Dernière intervention   83
 
Il faut utiliser DDEInitiate

A la volée, le code est

Sub PiloterWordParExcel()
    Dim lCanal As Long
    
    Application.DisplayAlerts = False 'Désactive les messages d'alerte
    'Ouvre le fichier "Toto.DOC" Nb le fichier doit exister
    lCanal = Application.DDEInitiate("Winword", "E:\Documents\Toto.doc")
    'Ajoute du texte au fichier
    Application.DDEExecute lCanal, "Ce texte sera ajouté à Toto.doc"
    'Sauvegarde le fichier TOTO
    Application.DDEExecute lCanal, "[FILESAVE]"
    'Libère le canal
    Application.DDETerminate lCanal
    Application.DisplayAlerts = True
    
End Sub




0