Discussion :

[soad029]

Bonsoir tout le monde !

Je fais une appli sous Access (avec un formulaire) qui copie de nombreux graphiques provenant de fichiers Excel dans un document word. Tout marche bien, sauf que j'ai de nombreux message lors de l'éxécution de l'appli du style :

* "Voulez-vous mettre à jour les liaisons..." -> "mettre à jour" "ne pas mettre à jour"...

* "Voulez-vous enregistrer les modifications apportées" -> "oui" "non"

J'aurais aimé trouver un code qui permettrait de répondre à la place de l'utilisateur car je dois avouer que c'est assez enquiquinant de cliquer à chaque fois.

Après une recherche sur le forum et sur le Internet, j'ai trouvé la commande

sendKeys "{LEFT}" puis
sendKeys "{LEFT}" puis
sendKeys "{ENTER}" Pour sélectionner la 3ème option, mais en faite ça marche pas.

Quelqu'un aurait t'il une solution, ou un début de solution à ce problème ?

Un grand merci d'avance en tout cas !!

Aller, bonne soirée !

par e

[ThierryAIM]

Code :

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

DoCmd.SetWarnings False

c'est beaucoup mieux que d'appuyer sur les touches ou de les simuler

[soad029]

Salut Thierry ! Et merci d'avoir répondu !

En faite, je connaissais déjà cette commande, qui permet de ne pas afficher les messages généré par Access.Hors, les messages que j'ai sont généré par Excel, donc cela ne marche pas

[Megaxel]

Tu as des graphiques sous Excel que tu copies dans Word.
Que vient faire Access ici? C'est là que se trouve les données des graphiques?
Le "DoCmd" de Thierry, tu ne peux pas l'appliquer spécifiquement à ton objet "Application Excel"? Je ne sais pas trop, mais c'est peut-être possible?

[soad029]

Salut !

Mon application est faite sous Access, je code sous Acces si tu préfères. Les graphiques se trouvent dans des fichiers Excel. Docmd n'est propre qu'a Access, on ne peut l'appliquer à Excel.

Merci d'avoir répondu en tout cas !

[ThierryAIM]

alors si c'est Excel qui te génère les messages essaie avec :

Code :

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

Application.DisplayAlerts = False

[GoLDoZ]

alors si c'est Excel qui te génère les messages essaie avec :

Code :

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

Application.DisplayAlerts = False

j'allais le dire

je viens de chercher sur le net pour le même pb, et ça fonctionne impec

[SilkyRoad]

bonjour à tous

dans Excel , la propriété AskToUpdateLinks= False permet la mise à jour des liaisons automatiquement sans affichage de la boîte de dialogue

Code :

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

1
2
3
4
5
6
7
8
Sub maProcedure()
Application.AskToUpdateLinks = False
'
' ma procedure ...
'
Application.AskToUpdateLinks = True
 
End Sub

bonne journée
michel

[soad029]

Vraiment bien ce forum ! Vivement que je m'améliore pour aider un peu !

Merci à tous, ça marche nickel !!

Bon' @p'