script coreldraw X3

bonjour a tous,
malgre de nombreuses heures de recherche je n ai pa trouvé de reponses a mes questions ....j utilise coreldrawX3 et je voudrais importer un fichier grace a une reponse donnée a une "inputbox"

en gros j ai un dossier avec 10 000 fichier en .cdr ..... une fenetre s ouvre en demandant quel fichier je veux ouvrir ,je reponds par ex "animal56" et le script importe le fichier animal56.cdr

en fait je souhaite que le script remplace les XXXXX dans la commande ci dessous par le texte tapé dans la fentre inputbox

ActiveLayer.Import "D:\dossier\XXXXX.cdr", cdrCDR

merci a tous de prendre le temps de repondre ou simplement de le lire

Bienvenue sur DVP, exemple de

Code:

---

1 2 3 4 5 6 7 8

dim reponsefichier dim repdestination ' dim repmasque repmasque = "D:\dossier\X.cdr" reponsefichier = "MonFichierEnReponse" repdestination = replace(repmasque,"X", reponsefichier) msgbox repdestination 'ActiveLayer.Import repdestination , cdrCDR

---