Discussion :

[jeff73230]

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.



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.

[BENNASR]

teste avec prudence et sur une copie de ton fichier

Code :

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

1
2
3
Application.DisplayAlerts = False
'ton code
Application.DisplayAlerts = True

[jeff73230]

teste avec prudence et sur une copie de ton fichier

Code :

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

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".

[BENNASR]

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

Code :

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

On Error Resume Next

[Philippe Tulliez]

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)

[jeff73230]

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

Code :

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

On Error Resume Next

re-Bonjour BENNASR,

Alors c'est peut-être pas recommandé , 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 !!!!

[Philippe Tulliez]

Bonjour,

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

[Raccourcix]

...
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