OVH Cloud OVH Cloud

Ouvrir un document Word

3 réponses
Avatar
xem
Bonsoir au forum,

Voici un bout de code copié dur exelabo adapté à
un bouton de commande:

Private Sub CommandButton1_Click()
Dim appWD As word.Application <--- ici exel me signale une erreur de
compilation : Type défini par l'utilisateur non défini

Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="D:\Documents and Settings\Mes_
documents\adres.doc"
vbMaximizedFocus
End Sub

Merci d'avance pour votre aide

Xem

3 réponses

Avatar
Nicolas B.
Salut,

Dans VBA, OutilsRéférences, cocher :
Microsoft Word X Object Library


A+
Nicolas B.

Bonsoir au forum,

Voici un bout de code copié dur exelabo adapté à
un bouton de commande:

Private Sub CommandButton1_Click()
Dim appWD As word.Application <--- ici exel me signale une erreur
de compilation : Type défini par l'utilisateur non défini

Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="D:Documents and
SettingsMes_ documentsadres.doc"
vbMaximizedFocus
End Sub

Merci d'avance pour votre aide

Xem


Avatar
michdenis
Bonjour Xem,

Dim appWD As word.Application

Pour utiliser ce type de déclaration, il faut que la référence à Word ait été faite .

Fenêtre VBE, barre d'outils / outils / référence / et tu coches "Microsoft Word"

Cependant, sans cocher cette référence, tu peux utiliser ceci :

Dim AappWd as Object et tout fonctionnera ...


Salutations!


"xem" a écrit dans le message de news: %
Bonsoir au forum,

Voici un bout de code copié dur exelabo adapté à
un bouton de commande:

Private Sub CommandButton1_Click()
Dim appWD As word.Application <--- ici exel me signale une erreur de
compilation : Type défini par l'utilisateur non défini

Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="D:Documents and SettingsMes_
documentsadres.doc"
vbMaximizedFocus
End Sub

Merci d'avance pour votre aide

Xem
Avatar
xem
Re,

Merci, bonne nuit

Xem

"michdenis" a écrit dans le message de news:

Bonjour Xem,

Dim appWD As word.Application

Pour utiliser ce type de déclaration, il faut que la référence à Word ait
été faite .

Fenêtre VBE, barre d'outils / outils / référence / et tu coches
"Microsoft Word"

Cependant, sans cocher cette référence, tu peux utiliser ceci :

Dim AappWd as Object et tout fonctionnera ...


Salutations!


"xem" a écrit dans le message de news:
%
Bonsoir au forum,

Voici un bout de code copié dur exelabo adapté à
un bouton de commande:

Private Sub CommandButton1_Click()
Dim appWD As word.Application <--- ici exel me signale une erreur de
compilation : Type défini par l'utilisateur non défini

Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="D:Documents and SettingsMes_
documentsadres.doc"
vbMaximizedFocus
End Sub

Merci d'avance pour votre aide

Xem