Enregistrer sur disque C ou D

[Blafi]

Bonjour à tous,

Voilà mon pb si quelqu'un peut m'aider :

Je suis en train de faire une macro qui devra enregistrer une des feuilles du fichier en cours dans un répertoire qui va se situer soit sur le disque C: soit sur le disque D: de l'ordinateur utilisé (le fichier en cours sera toutefois sur le même disque).

Ma question est de savoir :
1/ par quelle partie de procédure puis-je commander l'enregistrement sur le bon disque : dans le genre "si le disque utilisé est C:\ alors enregistre dans c:\mon dossier, sinon (et alors c'est D: qui est utilisé) enregistre dans D:\mon dossier".
2/ comment faire pour savoir dans chacun des cas si le dossier de destination (mon dossier dans mon exemple ici) existe et s'il n'existe pas le créer..

Merci d'avance de vos solutions et à bientôt.

[sousou]

Bonjour blafi

Sans répondre précisément à ta question, tu trouveras ci-joint un petit fichier (pour le fun)qui inspecte les fichiers de ton PC en utilisant les objets filesystem.
Tu dois pouvoir extraire les bouts de code qui pourraient te servir.

[Blafi]

Merci sousou pour ta réponse... mais je ne vois pas de fichier joint.. l'aurais-tu oublié ?

A ++

[kiki29]

Soir Bon, a adapter à ton contexte

[Blafi]

merci kiki29, code bien pris.

J'ai appliqué une méthode plus simple trouvée sur le forum : il s'agit d'extraire 2 caractères à gauche de CurDir :

Chemin= Curdir
Lecteur=left(Chemin,2) ce qui donne C: ou D: selon le cas...

puis de reconstituer ensuite le chemin voulu..

Si ça peut servir à quelqu'un...

Bon courage et à bientôt.

[sousou]

Bonjour a tous
Avec du retard, mais toujours pour infos

[Blafi]

Bonjour le forum et sousou en particulier,

Je prends connaissance de ton fichier... Même s'il arrive un peu en retard, il répond bien à la question posée et fait le point de tout ce qu'on peut obtenir sur les fichiers... félicitations..

Mais si je veux récupérer seulement le disque en cours je dois supprimer dans ta macro la boucle qui liste tous les lecteurs et comment alors afficher seulement le lecteur en cours et en particulier en face de lecteur= que dois-je mettre ?

Merci de l'info et à ++

[MJ13]

Bonjour à tous

Un bravo à sousou pour son fichier intéressant.

Pour Blafi A la question

Mais si je veux récupérer seulement le disque en cours je dois supprimer dans ta macro la boucle qui liste tous les lecteurs et comment alors afficher seulement le lecteur en cours et en particulier en face de lecteur= que dois-je mettre ?

essaies avec ce code

nomlect = Left(ActiveWorkbook.Path, 1)

[sousou]

bonjour a tous MJ13 et BLAFI
dans le même état d'esprit voilà comment récupérer le lecteur

Set file = CreateObject("scripting.filesystemobject")
chemin = ThisWorkbook.Path

lecteur = file.GetDrivename(ThisWorkbook.Path)

[sousou]

chemin est inutile

[Blafi]

J'ai bien tout pris...

Merci Mj13 et Sousou pour vos solutions...

A bientôt sur le forum..