pou pouille
XLDnaute Nouveau
bonjours ,
je souhaiterais solliciter les connaissances du forum pour m'aider dans l'écriture d'une macro.
j'ai déja écrit le début mais bien sure toute amélioration est bonne à prendre.
je souhaite enregistrer un fichier avec un indice (*_A;*_B...) s'il n'existe pas d'indice le crée a partir de A,
s'il éxiste le faire évoluer.
j'éxplique l'algorithme de cette macro
1: demander le nom du fichier (inputbox de préférence),avec la case préremplie = variable(TheFile)
1.1: boucler sur l'étape 1 tant que le nom du fichier demandé est vide (TheFile="")
1.2: afficher un message demandant de remplir le nom du fichier
2: regarder si le fichier existe déja (dans le répertoire "C:\toto\") avec l'extention *_A.smd
3.1: si oui faire évoluer l'indice (ex: *_A -> *_B ; *_B -> *_C ; *_C -> *_D ...)
3.2: Si non faire évoluer TheFile=TheFile & "_A"
4: message box : MsgBox (le fichier à été enregistrer sous le nom : TheFile)
(je sais enregistrer le fichier nommé TheFile.smd )
par avance je vous remercie.
Pou Pouille
je souhaiterais solliciter les connaissances du forum pour m'aider dans l'écriture d'une macro.
j'ai déja écrit le début mais bien sure toute amélioration est bonne à prendre.
je souhaite enregistrer un fichier avec un indice (*_A;*_B...) s'il n'existe pas d'indice le crée a partir de A,
s'il éxiste le faire évoluer.
j'éxplique l'algorithme de cette macro
1: demander le nom du fichier (inputbox de préférence),avec la case préremplie = variable(TheFile)
1.1: boucler sur l'étape 1 tant que le nom du fichier demandé est vide (TheFile="")
1.2: afficher un message demandant de remplir le nom du fichier
2: regarder si le fichier existe déja (dans le répertoire "C:\toto\") avec l'extention *_A.smd
3.1: si oui faire évoluer l'indice (ex: *_A -> *_B ; *_B -> *_C ; *_C -> *_D ...)
3.2: Si non faire évoluer TheFile=TheFile & "_A"
4: message box : MsgBox (le fichier à été enregistrer sous le nom : TheFile)
(je sais enregistrer le fichier nommé TheFile.smd )
par avance je vous remercie.
Pou Pouille