valeur de DisplayAlerts

Version imprimable

27/04/2009, 16h48
datametric

valeur de DisplayAlerts

Bonjour,

j'utilise

Code:

Application.DisplayAlerts = False

pour ne pas avoir une fenêtre qui s'ouvre dans mon petit programme mais je découvre avec fureur que si une réponse est nécessaire, Microsoft Excel utilise systématiquement la réponse par défaut.

La fenêtre me demande si je suis sûr de ma source web mais la réponse par défaut est non. Comment faire pour que cela soit OUI qui soit pris en compte ?

Merci.
27/04/2009, 17h29
DeaD78

Bonjour,

J'ai bien ma petite idée là-dessus mais prenons les choses dans l'ordre sinon on ne va pas avancer.

Quelle est la "fonction" ou le bout de code ouvrant cette fenêtre ? Par exemple, vient-elle d'un SaveAs ?
27/04/2009, 22h25
datametric

que de suspens :mrgreen:

Je créé, via une tierce application, des fichiers HTML avec des extensions XLS. Lorsque je les ouvre j'ai une fenêtre me demandant de confirmer les liaisons car chaque onglet est une feuille HTML. La valeur par défaut est Non et par conséquent, le fichier contient les onglets mais vide.

Cela rejoint mon post

http://www.developpez.net/forums/d73...ment-fichiers/
27/04/2009, 22h35
ucfoutu

Bonsoir,

Application.DisplayAlerts (utilisé dans VBA/Excel) ne gère que les affichages de Excel, bien évidemment.
27/04/2009, 22h45
datametric

C'est une boîte Excel il me semble. Quand je l'utilise, les boîtes n'apparaissent pas mais la valeur par défaut dans celle-ci est NON au lieu de OUI. Donc ca fonctionne quelque peu.

Avez-vous une solution de contournement dans ce cas ?
27/04/2009, 23h08
ucfoutu

Ah...

le beurre et l'argent du beurre...

Bon ... on va essayer ;) (mais fais vite pour me répondre car je commence à sentit le sommeil et des frissons...).

enlève le DisplayAlerts = False (de sorte à voir ta boîte) et dis-moi l'ordre des boutons (tous) qu'elle montre (exemple : 1 OUI - 2 NON ) de gauche à droite.
Et précise moi lequel a le focus.

Edit :
Je crois comprendre que tu es allé dormir
A demain, donc (je vais en faire autant !)
28/04/2009, 09h35
datametric
:king: gagné

la boîte donne justement
Code:

1 2 3 4 Microsoft Excel Si vous êtes sûr de cette page Web, cliquez sur oui Oui Non Annuler
Le focus est donc sur "Non" ce qui est ennuyeux puisque le displayAlert prend ce "Non" par défaut.
28/04/2009, 10h12
DeaD78

Bonjour,

Mince, au temps pour moi, datametric :cry:

Tout d'un coup, je n'ai plus d'idée sur le sujet 8O Au début, je pensais à un post sur le forum qui faisait référence au même problême... à quelques détails près.

Désolé :oops:

PS : au cas où, cela n'arrive-t-il que quand tu ouvres ton fichier ?
28/04/2009, 10h19
DeaD78

Bon, 3 choses !

1) Je ne suis pas si bête ! :yaisse2:

2) Oui, ça ne peut arriver que quand tu ouvres ton fichier.

3) Je te mets un petit copié/collé de l'aide quand tu tapes :f1: Tu vas voir, tu vas aimer. Alors, voilà ce qu'on a pour la méthode Open :roll:

Citation:

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Je te propose accessoirement de t'attarder sur le paramètre UpdateLinks :

Citation:

UpdateLinks Argument de type Variant facultatif. Spécifie la façon dont les liens du fichier sont mis à jour. Si vous ne spécifiez pas cet argument, l'utilisateur est invité à indiquer comment les liens doivent être mis à jour. Dans le cas contraire, cet argument a l'une des valeurs répertoriées dans le tableau suivant.

Valeur Signification
0 Ne met à jour aucune référence
1 Met à jour des références externes mais pas des références distantes
2 Met à jour des références distantes mais pas des références externes
3 Met à jour des références distantes et des références externes

Si Microsoft Excel ouvre un fichier au format WKS, WK1 ou WK3 et si l'argument UpdateLinks a la valeur 2, Microsoft Excel génère des graphiques à partir des diagrammes attachés au fichier. Si l'argument a la valeur 0, aucun graphique n'est créé.

Mamamia, ne serait-ce pas la solution à ton problème ? :mouarf: Allez, va donc mettre un petit "3" dans les arguments de ta méthode :yaisse2:

Bonne chance pour la suite !

Effectivement c'est ce que je fais j'y avais pensé. Mais cela n'empêche pas la boîte d'apparaître.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Do While Fich1 <> "" Complet1 = Chemin1 & Fich1 Complet2 = Chemin2 & Fich1 'Application.DisplayAlerts = False 'Application.ScreenUpdating = False Workbooks.Open Complet1, 3 ActiveWorkbook.SaveAs Complet2, xlExcel9795 Workbooks.Close Fich1 = Dir() Loop
J'ai voulu essayé Application.AsktoUpdate = False mais il ne connaît pas (Erreur 438). Je ne sais pas pourquoi non plus.

28/04/2009, 11h10
DeaD78

Bon, ben on y arrive je pense. Teste ça pour voir :

Code:

ActiveWorkbook.UpdateLink

ou

Code:

ActiveWorkbook.UpdateLinks

De plus, jette un oeil par ici : http://msdn.microsoft.com/en-us/libr...ffice.11).aspx. Regarde ce que le UpdateState donne comme résultat.

On doit bien pouvoir la retrouver cette méthode !!! :evilred:

Re coucou...
montre-moi (dans ton code précédent) quelle est la dernière ligne exécutée juste avant l'apparition de ta boîte de message.
(en d'autres termes : intercale une ligne commenbtée disant ' c'est ici...) ;)
En n'utilisant bien évidemment pas displayalerts = False, hein ...
Je vais lui jouer un tour ucfoutien....

Commence par essayer ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Do While Fich1 <> "" Complet1 = Chemin1 & Fich1 Complet2 = Chemin2 & Fich1 ' (on ne touche pas à Application.DisplayAlerts = False '(on ne touche pas à Application.screenupdation = False SendKeys "+{TAB}", False SendKeys "{ENTER}", False Workbooks.Open Complet1, 3 ActiveWorkbook.SaveAs Complet2, xlExcel9795 Workbooks.Close Fich1 = Dir() Loop

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Do While Fich1 <> "" Complet1 = Chemin1 & Fich1 Complet2 = Chemin2 & Fich1 ' (on ne touche pas à Application.DisplayAlerts = False '(on ne touche pas à Application.screenupdation = False ' c'est ici. Workbooks.Open Complet1, 3 ' je pense que c'est à l'appel que la box apparaît ActiveWorkbook.SaveAs Complet2, xlExcel9795 Workbooks.Close Fich1 = Dir() Loop
Mais les deux SENDKEYS arrive avant la boîte et ensuite la boîte apparaît. Je les ai mis après la ligne OPEN mais la boîte arrive donc avant et attend que je clique.

Concernant ActiveWorkbook.UpdateLinks ou bien ActiveWorkbook.UpdateLink j'obtiens Variable objet ou variable bloc With non définie (erreur 91)

28/04/2009, 13h09
ucfoutu

La boîte étant modale, c'est bien avant son ouvertrre que les sendkeys doivent être envoyés (celà marche ainsi avec une msgbox que je provoque...)
Essaye à nouveau, pour voir, en ajoutant un DoEvents juste avant les 2 SendKeys
28/04/2009, 13h56
DeaD78

Au temps pour moi :

Code:

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

Ca correspond à aller dans Edition/Liaisons. Peut-être que ça peut marcher.

EDIT : Peux-tu aussi tester d'aller dans Outils/Options/Modification et décocher Confirmation de la mise à jour automatique des liens ?

EDIT2 : Si ça ne marche toujours pas, j'abandonne cette piste. Il doit forcément y avoir une méthode ou quelque chose intégré à Excel qui utilise cet argument. Cela ne peut pas venir de nul part. Il faudrait trouver ça mais il y a trop de possibilités. De plus, la solution de ucfoutu marchera à coup sûr (le

Code:

SendKeys "%{s}", True

).
28/04/2009, 20h21
datametric

SendKeys "%{s}", True
Doevents

C'est ... noté :?

je plante sur ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

et les DoEvents avec sendkeys arrive avant la boîte, puis la boîte s'affiche

Code:

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
    Do While Fich1 <> ""
 
    Complet1 = Chemin1 & Fich1
    Complet2 = Chemin2 & Fich1
 
    DoEvents
 
 
    'ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
    'SendKeys "%{s}", True
    'ActiveWorkbook.UpdateLinks
    'Application.AsktoUpdate = False
    'Application.DisplayAlerts = False
    SendKeys "+{TAB}", False
    SendKeys "{ENTER}", False
    'Application.ScreenUpdating = False
 
    Workbooks.Open Complet1, 3
    ActiveWorkbook.SaveAs Complet2, xlExcel9795
 
    Workbooks.Close
 
    Fich1 = Dir()
 
    Loop