Discussion :

[RAIDER21]

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

[ProgElecT]

Bienvenue sur DVP, exemple de

Code :

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

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