Petite question sur DoEvents non trouvée sur le forumRésolu

Question

Re !

Dans mon code vba, j'ai cela : 
Workbooks.Open Filename:= _
        "S:\RHcommun\Greg\STAGE\base.xls"

Cette feuille &#224; son lancement execute un logiciel de requete : query, qui permet de la mettre &#224; jour. Or en la lan&#231;ant par ici, c'est &#224; dire depuis une autre feuille, elle se lance et la suite du code de la feuille principale tourne du coup ce qu ema feuille appell&#233;e doit faire ne se fait pas. J'ai pens&#233; &#224; un DoEvents juste apr&#233;s mon : 
Workbooks.Open Filename:= _
        "S:\RHcommun\Greg\STAGE\base.xls"
DoEvents

Mais &#231;a ne marche pas...
Help pleaseee ^^

Polack77 · Accepted Answer

Pense &#224; ajouter une ligne "on error resume next" avent ton test car je pense que si tu ne met pas de date dans ta cellule tu risque d'avoir une erreur de compatibilit&#233; de type. A moin que tu ne test &#231;a avent avec isdate()
ex :
IsDate (Cells(i, 17)) then
    If CDate("28/02/2006") < Cells(i, 17) And Cells(i, 17) < CDate("30/03/2006") Then
        blablabla....
    end if
end if

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Ca ne serait pas un probl&#233;me avec la securit&#233; office (onglet outils/macro/s&#233;curit&#233;) car je viens de faire un test et pas de probl&#233;me chez moi???

 D'oh! Nuts!
 Mmmmm...
 DONUTS

DarkRider26 · Answer

Non j'ai tous les droits mais &#231;a ne fonctionne pas ... Je viens de v&#233;rifier, c'est bizarre quand m&#234;me !

En enregistrant une macro, je l'ai fait &#224; la main voici son code : 

Workbooks.Open(Filename:="S:\RHcommun\Greg\STAGE\essai.xls").RunAutoMacros _
        Which:=xlAutoOpen
    Application.Run Range("ScOnWindow")
    Application.Run Range("ScOnData")
    
 

    Range("A2").Select
    Windows("ReportingRomans 2006.xls").Activate
    Application.Run Range("ScOnWindow")
    Range("I1").Select

Seulement, je lance et &#231;a plante sur :     Application.Run Range("ScOnWindow")  qui entre nous est un truc qui m'est totalement inconnu lol !!!

Polack77 · Answer

A vrais dire je ne sait pas &#224; cois serv  "Application.Run Range("ScOnWindow")" et "Application.Run Range("ScOnData")".
Quel version d'office utilise tu? Moi 2003. Peut &#234;tre un bug offce??????????
Les action sur ton fichier "enfant" sont bien d&#233;fini dans "ThisDocument" avec "Private Sub Document_Open()" comme d&#233;finition de proc&#233;dure?

 D'oh! Nuts!
 Mmmmm...
 DONUTS

DarkRider26 · Answer

oula je n'est pas tout &#231;a moi lol !! Tu me perds l&#224; ... ^^

Polack77 · Answer

Ques qui te pose probl&#233;me????
Quel version d'office utilise tu? Moi 2003. Peut &#234;tre un bug offce?????????? (la je pense que tu comprend)
Les
action sur ton fichier "enfant" sont bien d&#233;fini dans "ThisDocument" (nom du truc qui resemble &#224; un module dans l'explorateur de projet)
avec "Private Sub Document_Open()" (nom de la proc&#233;dure) comme d&#233;finition de proc&#233;dure?
Je ne voie pas ce qui te pose probl&#233;me????

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Les action sur ton fichier "enfant" (j'entand par fichier enfant le fichier que tu ouvre en code)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

DarkRider26 · Answer

Oui mais &#231;a c'est tout bon, mais en fait je me rend compte que c'est impossible ce que je veux faire ... :(
Completement &#224; part de mon code entier j'ai juste mis de quoi lancer mon fichier qui la &#231;a marchait me demand&#233; si je voulais rafraichir ou conserver les donn&#233;es par le requeteur ShowCase Strategy Query. Je voulais automatiser l'appuis sur enter afin de rafraichir mais &#231;a ne marche pas le send key ne se fait pas car c'est pas vmt une boite de dialogue dans excel puisque c'est &#224; Strategy ... En gros c'est un gros bazarre lol !!!!

Polack77 · Answer

Je n'ai rien mais alors rien compris &#224; ton dernier message???????????????????????????????

 D'oh! Nuts!
 Mmmmm...
 DONUTS

DarkRider26 · Answer

lol ! En gros ma feuille pere lance une feuille fils qui a son lancement récupere grace au logiciel ShowCase Strategy Query des données dans une base et les met dans cette feuille fils. Le pere aura pour objectif de pouvoir piocher dedans. Query se lance pas avec une macro ou autre mais c'est configuré par un menu d'Excel qui s'ajoute quand on installe la suite ShowCase. Le fils au lancement demande si on veut ou non mettre a jour ses données, enfin c'est une boite de dialogue Query qui le demande mais c'est ce que je voulais automatiser en simulant des touches mais c'est apparement pas possible donc je laisse tombé. Par contre est ce que tu saurais pourquoi ça ça marche : If CDate("28/02/2006") < Cells(i, 17) And Cells(i, 17) < CDate("30/03/2006") Then If Cells(i, 27) <> "S" Then nbPersonne = nbPersonne + 1 MsgBox (Cells(i, 6)) End If End If Et pas ça lol : If CDate("28/02/2006") <= Cells(i, 18) And Cells(i, 18) < CDate("30/03/2006") And Cells(i, 27) <> "S" Then nbPersonne = nbPersonne + 1 MsgBox (Cells(i, 6)) End If

Polack77 · Answer

Tes formats de cellule sont bien en date (si non test en rajoutant cdate() partout)?

Pour ton code il n'est pas possible de cr&#233;e une DDE pour faire se que tu veut????

Exemple de DDE pour Excel
Dim MyXl As Object    ' Variable devant contenir la r&#233;f&#233;rence &#224; Microsoft Excel.
Set MyXl = GetObject(, "Excel.Application") 'Recu de l'adrs d'excel
Set MyXl.Application.Workbooks(1).ActiveSheet = Nothing  ' Lib&#232;re la r&#233;f&#233;rence &#224; l'application et &#224; la feuille de calcul.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

DarkRider26 · Answer

ouep c'est tout bon &#231;a marche ! merci beauuucouuup !!!!

Petite question sur DoEvents non trouvée sur le forum

12 réponses

Discussions similaires