Discussion :

[mouftie]

Bonjour,
Je dois ouvrir un gros fichier pour récupérer des données. Malheureusement ma macro n'attend pas l'ouverture effective du fichier pour continuer son travail.
J'ai essayé DoEvents, mais cela ne fonctionne pas.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
Workbooks.Open (ChemBo & "Requete BO.xlsx")
    DoEvents
    Set WbBo = ActiveWorkbook
With Sheets("NIR Sans suite")
    .ListObjects.Add(xlSrcRange, .Range("$C$9").CurrentRegion, , xlYes).Name = "TbBoSource"
    .ListObjects("TbBoSource").TableStyle = "TableStyleMedium5"
End With

Du coup la partie with... n'est pas traitée.

Merci de votre aide

[BENNASR]

bonsoir
tant que ton code est placé sous l’événement Workbooks.Open donc c'est tout à fait normal qu'il s'exécute à l'ouverture
tu peux donc déplacer sous code sous un bouton de commande et comme ça le code s'exécute que au moment de clic sur le bouton

[mouftie]

Bonjour BENNASR,
Merci pour ta réponse, mais cela n'est pas possible. C'est dans le cadre d'une procédure, ou l'on doit ouvrir un fichier pour y récupérer des données, puis un autre pour les mettre dedans, puis un autre...
Donc, il ne faut pas interrompre la macro.

[mfoxy]

Hello,

Je pense que tant que ton classeur est en cours d ouverture, il est est readonly
Peut-être donc en bouclant sur cette propriété, des que plus readonly mais acces en écriture poursuivre la macro ?

Un truc du genre ( non testé)

Code :

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

1
2
3
4
5
6
7
 
 
Do Until wb.ReadOnly = False 'wb étant ta variable workbook
 
 Application.Wait Now + TimeValue("00:00:01") 
 
Loop

[mouftie]

Bonsoir mfoxy,

Merci pour ta réponse, mais non cela ne fonctionne toujours pas, les procédures suivantes démarrent, avant que ce fichier soit ouvert