j'ai eu le même cas récemment si la solution de mdvs31 ne marche pas j'ai fait une macro mettre les fichiers dans le même répertoire générer une liste avec commandes dos (dir > liste.txt) créer conversion.txt sur la base de liste.txt avec excel "fichier1.dgn","fichier1.dwg" "fichier2.dgn","fichier2.dwg" "fichier3.dgn","fichier3.dwg" ... Sub main Open "c:\conversion.txt" For input As #1 do while eof(1)=0 Input #1,dgn$,dwg$ MbeSendCommand "rd=c:/"+dgn$ '(chemin ou sont stockés les dgn) MbeSendCommand "DIALOG SAVEAS " MbeSetAppVariable "MGDSHOOK", "tcb->graphicsFileType", 4& MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.dwg" MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\voyer\dwg\" MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd "&dwg$ MbeSendCommand "MBE1 CLOSEMODAL OK" MbeSendCommand "MBE1 CLOSEMODAL OK" loop End Sub