Discussion :

[AidezMoiSvp]

Bonjour,

Voilà mon problème : j'ai un fichier excel avec des données me servant au publipostage. J'ai un fichier word qui reçoit les données.
Je voudrais créer un bouton dans excel qui permette de visualiser le fichier word.

J'ai donc mis ce code (attention les yeux) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim strFichier as String
Dim objWord as New Word.Application
 
Application.Quit
 
strFichier = 'chemin de mon fichier
 
objWord.Documents.Open strFichier
objWord.Visible = True
 
End Sub

Mon fichier s'ouvre correctement mais le publipostage n'est plus...
J'ai remarqué que word ne m'affiche plus la commande SQL à l'ouverture du fichier.

Merci beaucoup

[Theze]

Bonsoir,

Je peux me tromper mais est ce que le fait de quitter l'application Excel a une incidence sur le problème ? Ne vaudrait-il pas mieux la cacher ? :

Code :

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

1
2
 
Application.Visible = False

C'est juste une supposition.

Hervé.

[AidezMoiSvp]

Non ça ne change pas puisqu'au début je n'avais pas mis la ligne "Application.Quit"

[Godzestla]

Code :

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

Application.Quit

il n'empêche que cette ligne est un problème, car le code que tu exécutes tu le fermes avant d'arriver au bout.

Donc en théorie il ne va pas plus loin.

Normallement quand tu ouvres ton classeur Word, il doit ouvrir le fichier excel associé et la barre d'outil de mailmerge devrait apparaître, sinon tu peux la trouver manuellement.

[AidezMoiSvp]

Bonjour,

J'ai résolu mon problème. Je ne sais pas pourquoi je voulais fermer excel...
Enfin bref, autre question en rapport avec le sujet initial :
Je voudrais que word s'affiche quand la personne clique sur le bouton mais que cette dernière ne puisse rien modifier dans le word. Possible ?

Merci

[Theze]

Bonjour,

En déprotégeant ton document avant d'y inscrire ton texte puis en le reprotégeant à la fin :

Code :

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

1
2
3
4
5
6
 
'ôter la protection
ActiveDocument.Unprotect "MotDePasse"
'ton code...
'remettre la protection
ActiveDocument.Protect wdAllowOnlyReading, , "MotDePasse"

Hervé.