Simuler un clic vbYesNo

Bonjour,

Mon but est de copier une plage de celulles de plusieurs fichiers dans un global.

Comme je ne peux copier les plages en laissant fermer les classeurs puisqu'ils sont protégés par un Pass, je dois les ouvrir un par un (lourd). Mais le problème que je rencontre est que je dois "simuler" le clic sur trois boutons(vbYesNo, dans mon cas sur Non) lors de leurs ouvertures.

Pouvez-vous m'aider ou me diriger sur une piste.

Merci !!

Bonjour,

Essais avec ceci en début de code

Code:

---

Application.DisplayAlerts = False

---

et ceci en fin de code

Code:

---

Application.DisplayAlerts = True

---

Bonne journée.

Non ce n'est pas çà.
Il faudrait que la valeur envoyée soit No.

bonsoir

Citation:

---

Mais le problème que je rencontre est que je dois "simuler" le clic sur trois boutons(vbYesNo, dans mon cas sur Non) lors de leurs ouvertures.

---

A quoi correspondent ces boites de dialogues ?

bonne soirée
michel

Bonjour,

Mon système est quelque peu compliqué mais je vais essayer d'être le plus clair possible.

Les fichiers Excel sont extraits d'un outil.
Sur ces fichiers je dois réaliser plusieurs mises en forme et automatisations.

Dans ce cas mon but est de récupérer des valeurs d'un tableau et de les placer dans une colonne sur une feuille cachée. Dans cette colonne il est possible d'ajouter manuellement des valeurs. Cette colonne est la source d'une liste déroulante dans le tableau de départ.

Donc pour en revenir à la question, à chaque ouverture du fichier excel je demande à l'user s'il souhaite mettre à jour les colonnes (c'est à dire supprimer les valeurs saisies manuellement et donc de n'avoir que les valeurs du tableau).

Si il n'y a pas de solution je peux remplacer l'évenement ouverture par des boutons même si j'aimerai éviter.

Merci

Bonjour,

donc si j'ai bien compris la réponse à la question à michel

Citation:

---

A quoi correspondent ces boites de dialogues ?

---

la boite de dialogue, c'est une instruction Msgbox dans l'événement _open de tes classeurs de donneés ?

Oui exactement.

Bonjour

Une possibilité serait de migrer le code de la macro workbook_open vers une macro Auto_Open d'un module standard.

La macro auto_open a la particularité d'être exécutée lors d'une ouverture manuelle du fichier, mais pas lorsque le fichier est ouvert par code.

Citation:

---

Envoyé par squall62

Oui exactement.

---

dans l'immédiat la solution simple que je vois et de modifier la fonction _open de tes classeurs de données de façon à tester si ton classeur de "Recap" et ouvert ,

du genre (code crée directement en ligne à tester )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Workbook_Open() Dim yaRep if Not yaClasseur("Recap.xls") then yaRep = Msgbox("Votre choix") else yaRep = vbNo end if ' ' utilise ensuite yaRep end sub   end sub function yaClasseurOuvert ( yaName as string) as boolean On Error Resume next YaClasseurOuvert= IsObject (Workbooks(yaName)) end function

---

tu dis quoi..

[Edit]:oups: croisement avec pierre et finalement sa solution semble plus simple... je laisse cela quand même...

Je ne connaissais pas cette macro mais c'est super, merci beaucoup Pierre.

Merci aussi à toi JAck, je garde ton code en mémoire au cas ou !

:king: