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]

Re : Enregistrer sur disque C ou D

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]

Re : Enregistrer sur disque C ou D

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

A ++

 

[kiki29]

Re : Enregistrer sur disque C ou D

Soir Bon, a adapter à ton contexte

 

[Blafi]

Re : Enregistrer sur disque C ou D

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]

Re : Enregistrer sur disque C ou D

Bonjour a tous
Avec du retard, mais toujours pour infos

 

[Blafi]

Re : Enregistrer sur disque C ou D

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]

Re : Enregistrer sur disque C ou D

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]

Re : Enregistrer sur disque C ou D

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]

Re : Enregistrer sur disque C ou D

chemin est inutile

 

[Blafi]

Re : Enregistrer sur disque C ou D

J'ai bien tout pris...

Merci Mj13 et Sousou pour vos solutions...

A bientôt sur le forum..