Re : Barre de progression pendant boucle While
Bonjour et Merci tout le monde,
j'ai procédé différemment car on m'a compris qu'on peut pas faire une progression si y a pas une référence de ce progrès, du coup j'ai essayé d'utiliser un userform le temps d'attente, mais j'ai pas pu fermer cet userform à la fin du temps d'attente malgré plusieurs essais
voilà mon code :
'affichage du userform
sap.Show vbModeless
fichier_1 = "table_inventaire.txt"
fichier_2 = "table_mard.txt"
chemin = ThisWorkbook.Path & "\"
'premier temps d'attente
Set fso1 = CreateObject("scripting.filesystemobject")
While fso1.FileExists(chemin & fichier_1) = False
Wend
'deuxieme temp d'attente
Set fso2 = CreateObject("scripting.filesystemobject")
While fso2.FileExists(chemin & fichier_2) = False
Wend
'fermeture que j'ai essayé
sap.Hide
Unload sap
avec ou sans la ligne 19 (sap.hide) ça marche pas, il attend que je ferme le userform pr continuer l'exécution des lignes qui viennent parés le "Unload sap" dans ma macro
Help plz, c'est simple je devine mais ça me bloque :/
Merci