Sub A_Extraire_DICOM() 'macro qui crée des fichiers .txt
Dim RetVal As Long, FSO As New FileSystemObject, NbFichiers1&, Doss2 As Folder
Dim NOMDOSSIER$
NOMDOSSIER = ThisWorkbook.Path & "\ENTETESDICOM"
RetVal = Shell("D:\DICOMParser -fD:\IMAGESDAT -s -o" & NOMDOSSIER) 'durée d'exécution notable et aléatoire
'pour temporiser, j'avais pris l'idée de comptabiliser le nombre de fichier du dossier source, et tant qu'il n'existe pas autant de fichier .txt, on do events, .. avant d'executer la macro de renommage, mais
NbFichiers1 = FSO.GetFolder("D:\IMAGESDAT").Files.Count
Set Doss2 = FSO.GetFolder("D:\ENTETESDICOM")
Do
DoEvents
Loop Until Doss2.Files.Count >= NbFichiers1
bExe = True 'pour enchainement macro
B_Renommer_avec_dateheure_creation 'macro suivante
End Sub