Discussion :

[drangip]

Bonjour ,

J'ai 2 petits problèmes avec le code ci-dessous, qui permet d'aller chercher et d'ouvrir un fichier word dans une appli access
1 comment ouvrir la fenêtre wdDialogFileOpen vers un répertoire précis ?
2 après ouverture du fichier je voudrais donner à l'utilisateur la possibilité de confirmer l'enregistrement : la msgbox s'ouvre (et fonctionne) mais reste "sous" le fichier word. Comment la faire apparaitre dessus ?

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set wdapp = CreateObject("Word.application")
    With wdapp
        .Visible = True
        ' on demande à l'utilisateur de rechercher un fichier, puis on l'enregistre selon le chemin prévu
        .Dialogs(wdDialogFileOpen).Show
         response = MsgBox("Voulez-vous sauvegarder ce fichier ?", vbYesNo)
        If response = vbYes Then
            .ActiveDocument.SaveAs (NomComplet)
        Else
            Exit Function
        End If
    End With
   Set wdapp = Nothing

[ouskel'n'or]

Hello,

Un peu tardive, la réponse mais mieux vaut tard...etc

Ton problème provient du fait que ton msgbox est placé dans une macro de ton fichier qui ouvre word (ici Access).
Mais je ne comprends ce que tu veux faire : Si le fichier word est modifié, word posera automatiquement la question sur son enregistrement. Si tu veux en faire une copie, alors il suffit de faire "Engegistrer sous"
Quel intérêt de poser la question par un msgbox ?

Si tu y tiens vraiment, tu as deux solutions : Ou tu mets ta question sans Word dans Document_Close, ou tu fais

Code :

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

1
2
    With wdapp
        .Visible = False

Mais comme tu as fait le contraire, on en revient à la première solution.

Si tu nous expliquais...

A+

[ouskel'n'or]

Re
Je viens de trouver un lien pour qu'un form soit placé en premier plan.
http://www.developpez.net/forums/vie...light=#1962380

Bien sûr cette solution imposera le remplacement de ton msgbox par un userform

Mais j'ai pas mieux

A+