macro ou VBA pour "validation" multiple

Bonjour à toutes et à tous,

Je suis confronté à un (sans doute) petit souci de validation d'une boîte de dialogue à l'ouverture d'un fichier. Si quelqu'un avait un bout de code VBA me permettant de valider automatiquement ces boîtes de dialogues, ça serait TOP.
Depuis un fichier xlsm, je lance via le code ci-dessous l'ouverture d'un fichier xlsx sur lequel par la suite je vais récupérer des infos.

'Ouverture automatique du fichier Recensement.xlsx
'SendKeys "{ENTER}", False
Workbooks.Open Filename:= _
"D:\Rep1\Sous-Rep1\Dossier1\Recensement.xlsx"
Windows("Recensement.xlsm").Activate
Range("A1").Select

comme indiqué dans le code (que j'ai modifié en commentaire parceque ça ne fonctionnait pas, j'ai tenté d'utiliser SendKeys "{ENTER}", False (que je pense pourtant voir bien placé, à savoir juste avant ce qui provoque l'affichage de la boîte de dialogue).
j'ai malgré cette tentative toujours la boîte de dialogue ci-dessous qui apparaît.

Pièce jointe 655298

Est-ce que quelqu'un aurait une solution (éventuellement autre que le SendKeys) qui me permettrait de passer automatiquement (et de façon transparente) un clic manuel sur les boutons "Oui pour tout" qui apparaissent sur les x boîtes de dialogue qui s'affichent l'une après l'autre ?

Un GRAND MERCI par avance.

teste avec prudence et sur une copie de ton fichier

Code:

---

1 2 3

Application.DisplayAlerts = False 'ton code Application.DisplayAlerts = True

---

Citation:

---

Envoyé par BENNASR

teste avec prudence et sur une copie de ton fichier

Code:

---

1 2 3

Application.DisplayAlerts = False 'ton code Application.DisplayAlerts = True

---

---

Bonjour BENNASR,

Merci pour cette piste. Malheureusement, malgré la mise en place de

Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"D:\Rep1\Sous-Rep1\Dossier1\Recensement.xlsx"
Windows("Recensement.xlsm").Activate
Range("A1").Select
Application.DisplayAlerts = True


j'ai toujours les 7 (je les ai comptées lors de l'exécution du code) boîtes de dialogue indiquant que le nom "LD_xxx existe déjà" qui continuent à apparaître les unes après les autres lorsque je clique sur "Oui pour tout".

ce n'est pas recommandé par les messieurs PRO de ce site mais essaye avec

Code:

---

On Error Resume Next

---

Bonjour,
N'y aurait-il pas une plage ou une cellule nommée LD_Communication dans les deux classeurs ?
Ce qui curieux en revanche, c'est que cela se passe à l'ouverture du classeur. En général cette boîte de dialogue s'affiche lorsque l'on copie une feuille de la source vers la cible et qu'il y a un nom identique (gestionnaire des noms)

Citation:

---

Envoyé par BENNASR

ce n'est pas recommandé par les messieurs PRO de ce site mais essaye avec

Code:

---

On Error Resume Next

---

---

re-Bonjour BENNASR,

Alors c'est peut-être pas recommandé :D, mais ça fonctionne NICKEL !!!!
Du coup, je vais appliquer temporairement cette solution (le temps de trouver une façon plus "propre" de récupérer les infos présentes sur le xlsx ;-) )


Un ENORME MERCI !!!!

Bonjour,

Citation:

---

Alors c'est peut-être pas recommandé , mais ça fonctionne NICKEL !!!!

---

Qu'il n'y ait plus les messages c'est certain mais que cela fonctionne, là je n'en suis pas convaincu.

C'est un peu comme débrancher l'avertissement de passage à la réserve d'essence. Il est évident que l'on ne verra plus la lumière rouge mais la panne d'essence aura lieu avec certitude

Citation:

---

Envoyé par jeff73230

...
Depuis un fichier xlsm, je lance via le code ci-dessous l'ouverture d'un fichier xlsx sur lequel par la suite je vais récupérer des infos.
...

---

Bonjour
Quelles infos souhaitez vous récupérer dans votre fichier source ?

En effet, avec Power Query on peut récupérer des données sans avoir à ouvrir le classeur en tant que tel.

Stéphane