Discussion :

[zorian1]

Bonjour,

J'ai crée une macro VBA sur Windows-Excel 2003 qui ouvre un fichier Word et qui y copie des informations.

J'ai du l'installer sur un MAC (Word 2004 pour MAC), lorsque je l'utilise il me met l'erreur suivante :

"Erreur d'exécution 1004. La méthode 'DDEInitiate' de l'objet '_Application' a échoué"

Voilà mon code PC :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
   If Range("C6") = "Mémoire validé" Then
        channelNumber = Application.DDEInitiate( _
        app:="WinWord", _
        topic:="C:\Dossier\Fichier1.doc")
    Else
        channelNumber = Application.DDEInitiate( _
        app:="WinWord", _
        topic:="C:\Dossier\Fichier2.doc")
    End If

En étant allé voir sur MSDN, j'ai adapté mon code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   If Range("C6") = "Mémoire validé" Then
        Shell "SERVEUR:Dossier1:Dossier2:Dossier3:Fichier1"
        Do
            channelNumber = Application.DDEInitiate( _
                app:="MSWord", _
                topic:="SERVEUR:Dossier1:Dossier2:Dossier3:Fichier1")
        Loop Until TypeName(channelNumber) <> "Error"
    Else
        Shell "SERVEUR:Dossier1:Dossier2:Dossier3:Fichier2"
        Do
            channelNumber = Application.DDEInitiate( _
                app:="MSWord", _
                topic:="SERVEUR:Dossier1:Dossier2:Dossier3:Fichier2")
        Loop Until TypeName(channelNumber) <> "Error"
    End If

Mais ça indique toujours la même erreur. Quelqu'un peut-il me dépanner ?

[CristofMartins]

Salut,
Voici une réponse tardive mais peut-être que ça aidera quelqu'un d'autre.
Je sais pas si c'est la problème ou si ce n'est qu'un coïncidence, mais j'ai adapté un .Activate à mon worksheet(1) et ça marche.