Discussion :

[galopin01]

Bonjour,
Je travaille actuellement sur un traitement relativement simple de multiples fichiers (environ 900) au sein d'une arborescence.
Le processus
-Ouverture du fichier
-Traitement
-Fermeture du fichier
...est résolu dans une boucle sur un classeur témoin. (vide : 16 ko)
Dans ce contexte, l'ensemble du processus et le traitement lui-même du classeur témoin est instantané .

Le problème est que dans la réalité chaque fichier (.xlsx) cible fait 18 Mo...
Même en mode de "Calcul sur ordre" l'ouverture, puis l'enregistrement puis la fermeture de chaque classeur prend une petite minute...
J'imagine assez facilement que la lecture de la totalité mon programme sera largement terminé avant même que le premier fichier soit complètement ouvert...
Je vais donc certainement être obligé d'intégrer dans ma boucle une (ou plusieurs...) instructions DoEvents permettant d'attendre :
Que le classeur soit ouvert
puis ...
Que le classeur soit enregistré et fermé avant de continuer le traitement.
Ce que je conceptualise de la manière suivante (en pseudo code) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Workbooks.Open("blabla.xlsx")
While "le classeur n'est pas prêt"
    DoEvents
Wend
...Traitement proprement dit puis :
 
While "le classeur actif n'est pas enregistré et fermé"
    DoEvents
Wend
Next ouverture de classeur.

La question est :

Comment conditionner l'exécution des boucles DoEvents jusqu'à ce que la macro puisse se poursuivre.
C'est à dire en étant certain qu'aucun processus en cours ne bloque l'exécution...

Hum... Suis-je clair ?

[patricktoulon]

bpnjour

transforme ta sub en fonction renvoyant un signal tu n'aura pas besoins de do loop

Code :

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

1
2
3
4
5
6
7
8
sub test()
chemin="c:\blablabla\"
fichier=dir(chemin &"*.xl"&"*")
do while fichier<>""
x=tafonction(chemin & fichier)
fichier=dir
loop
end sub

Code :

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

1
2
3
4
5
6
7
8
9
function fonction(chemin)as boolean
 
set wb=workbook.open(chemin)
'travail dessus
'...
wb.save
 
tafonction=true
end function

bien sur ajouter des gestion d'erreur dans ton code au cas ou il y aurait un problème avec un fichier
de cette manière le fichier2 ne sera en aucun cas ouvert avant que le fichier1 soit fermé car x attend la réponse de ta fonction

[galopin01]

Bonjour,
La gestion d'erreur c'est déjà fait...
Donc je pourrai éventuellement essayer de boucler avec DoEvents sur cette erreur précise mais j'aurai préféré prévenir en amont.
Que puis-je mettre comme Fonction m'indiquant que la voie est libre et que je peux ouvrir un nouveau fichier.
Un flag True juste après le Save me parait un peu short compte tenu du temps de sauvegarde et de fermeture...
Et pour le délai de chargement ?
Je pensais pouvoir tester que Excel est en position prêt... avec ReadyState ?
Bon je vais tester toutes ces idées... avec les méga-fichiers !
Merci
A+

[patricktoulon]

re
a croire que mon Français n'est pas correcte

je la fait courte

le fait de séparer le traitement dans tes fichiers dans une fonction de la boucle fera exactement ce que tu souhaite
puisque le tour suivant attend le retour de la fonction
c'est pas difficile a comprendre

[galopin01]

Oui, oui ça j'avais compris mais je trouvais que renvoyer un True juste après .save ça me semblait vraiment court pour laisser la sauvegarde passer et le déchargement du fichier se dérouler.
Mébon, j'avais tort sur tous les tableaux en fait je viens de tester sur mes méga-fichiers de la mort qui tuent mais le prog s'en fout : il encaisse sans broncher, il attend tout seul que le fichier soit ouvert, qu'il soit sauvegardé, qu'il soit bien refermé pour poursuivre le traitement...
Bon c'est un peu longuet au moins 40 secondes par fichier selon la mise à jour à effectuer.
Avec 900 fichiers ça me laisse une bonne nuit de repos...
YA juste à mettre la clim en route pour refroidir le PC et la pièce : Le ventilo tourne plein pot !
Bon ben... Je clos le sujet !
Merci

[Patrice740]

Bonjour,

Dans cas cité, avec une seule instance d'Excel, la boucle en cours (ouverture, traitement, sauvegarde) qui n'attends pas d'intervention utilisateur, DoEvents est totalement inutile !

DoEvents sert à stopper temporairement l'exécution du VBA, à un moment précis, pour rendre la main au système d'exploitation afin qu'il traite d'autres taches (par exemple un autre programme en cours d'exécution ou une lecture clavier, ....).

Cependant, le système est multitâche, il assure donc les tâches en cours (mais pas forcement au moment voulu).
Par contre, dans une procédure donnée, VBA n'exécute pas une instruction avant d'avoir terminé la précédente.

Le DoEvents est à utiliser avec parcimonie, il peut générer des problèmes, notamment au cours des procédures évènementielles.