GET DIRECTORY

T

thombar

Guest
Bonjour,

J'utilise cette fabuleuse macro disponible ici (testée OK antivirus) :
http://disciplus.simplex.free.fr/classeursxl/fc-sauvegardeauto.zip

Seulement, je lui trouve un bug et je m'arrache les cheveux (bon je suis pas un expert, je bidouille...)
Lors de l'ouverture de ce fichier la macro propose une sauvegarde automatique dans un répertoire à choisir soi-même (génial).
Mais si l'on choisit la racine d'un disque (c:, d: ou autre) la maco plante. Un problème de "\" en double lors de l'écriture.
Comment faire pour que cette macro enlève un "\" si l'on veut enregistrer sur la racine et conserve le "\" si l'on souhaite enregistrer dans un dossier créé ?

Je n'ai pas les coordonnées du créateur, merci de votre aide !!!
 
W

wally

Guest
Bonsoir thombar et le forum,

Il suffit de modifier la fonction GetDirectory() comme suit :

Remplacer la ligne

Dossier = GetDirectory & "\"

par celles-ci

If Right(GetDirectory, 1) = "\" Then
Dossier = GetDirectory
Else
Dossier = GetDirectory & "\"
End If


Slts

wally
 

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024