Discussion :

[capmicro]

Bonjour,
je recherche l'instruction en VBA Access équivalente du "application.displayAlerts= false" d'Excel afin de supprimer le message apparaissant
lors de la fermeture d'une fenêtre Word après avoir fais par VBA Access un copier coller d'image de word a access

[Jean-Philippe André]

Salut,

Code :

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

DoCmd.SetWarnings False

[capmicro]

Effectivement, je connais cette instruction pour les messages d'alerte d'Access,
MAIS le message que je veux faire disparaître est celui du presse paier
j'explique :
sous access, j'ai mon programme qui ouvre un document Word, sélectionne 1 image et effectue la copy dans un control de mon formulaire
pas de problème , par contre quand je ferme le doc Word, sa fenêtre ne se ferme pas a cause de ce message du presse papier
vous avez placé une grande qté.... réponse par oui ou non

et le setwarnings n'y fait rien....

[Jean-Philippe André]

2 solutions possibles:
1 /Cote WORD :

Code :

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

wdapp.DisplayAlerts =wdAlertsNone ' = 0

2/ tu vides le presse papiers avant de fermer word

[capmicro]

Désolé, mais cela ne marche toujours pas, peut être que je n'utilise pas les bonne fonction, voici mon programme

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
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub openWord(repfich)
    Dim wApp As New Word.Application, dc As Object
    DoCmd.SetWarnings False
    wApp.Documents.Open (repfich)
    wApp.Visible = True
 
    Set dc = wApp.ActiveDocument
    EmptyClipboard
 
    dc.InlineShapes(2).Select
    Selection.Copy
    Me!image1.SetFocus
    DoCmd.RunCommand acCmdPaste
 
    dc.InlineShapes(3).Select
    Selection.Copy
    Me!image2.SetFocus
    DoCmd.RunCommand acCmdPaste
 
    EmptyClipboard
 
    wApp.DisplayAlerts = wdAlertsNone ' = 0
 
    dc.Close
    wApp.Quit
    DoCmd.SetWarnings True
End Sub

[Jean-Philippe André]

Humk OK,

essaie a la place de ton EmptyClipboard un bout de code comme :

Code :

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

1
2
3
Dim oData   As New DataObject 
oData.SetText Text:=Empty 'Vide
oData.PutInClipboard 'vide la presse papiers

[capmicro]

ce type

Code :

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

As New DataObject

fait partie de quelle librairie ?

[Jean-Philippe André]

Si je ne dis pas de betises :
Microsoft Forms 2.0 Object Library

[capmicro]

oui mais cette référence n'existe pas dans la liste sous Access

[Jean-Philippe André]

En utilisant Google, tu aurais pu trouver seul la reponse, non ?

Fichier FM20.DLL de ton dossier system32.

[capmicro]

Ok ça marche désormais encore merci pour ton aide
pour résumé, le DLL FM20 n'existait sur ma machine
je l'ai téléchargé, dans outils références par parcourir, j'ai pu installer Microsoft forms et donc la compile ne donnait plus d'erreur

encore merci pour ta disponibilité

PAR CONTRE, j'ai un 2eme problème, si je boucle sur plusieurs documents, j'aile message suivant sur l'instruction selection erreur 462 serveur distant non dispo, beaucoup de réponses mais aucune sur access satisfaisante

Code :

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

1
2
3
4
5
 
dc.InlineShapes(2).Select
    Selection.Copy
    Me!image1.SetFocus
    DoCmd.RunCommand acCmdPaste