Chemin non mis à jour dans Excel Résolu/Fermé

Question

Bonjour, 

Je fais mes premiers pas en vba et j'ai fait une macro sous Excel 2010 qui appelle différents chemins pour sélectionner des dossiers/fichiers stockés sur un réseau de mon boulot. C'est important que les chemins soient présélectionnés car d'autres utilisateurs travailleront avec cet outil et ne doivent pas avoir à sélectionner l'emplacement des fichiers.
Comme je travaille aussi de chez moi, j'ai doublé les liens avec les chemins correspondant à mon ordi. J' active les uns et désactive les autres en mettant une apostrophe si je dois retoucher et tester la macro chez moi ou au boulot (je sais c'est pas très propre).
Ex :
Chemin=C:\diane\maison\dossier
´Chemin=Z:\diane	ravail\dossier

Et justement cette technique n'est pas top car j'ai tout le temps des erreurs quand je "change l'apostrophe" ("aucun fichier dans le dossier C:\bidule" ou autre). Notamment j'ai toujours une erreur dans un "MoveFile". Je suis pourtant sûre de tout mettre à jour et qu'il n'y a pas d'erreur.
Precision : au boulot c'est excel 2010 et chez moi 2013.

D'où mes questions:
- est-ce que si j'obtiens ces erreurs c'est que j'ai quand même des erreurs dans le code ?
- avez-vous déjà observé ce genre de problème ?
- comment le résoudre ?
- avez-vous une meilleure technique que les apostrophes ? Des chemins "relatifs" ("\dossier") utilisables n'importe où ?

Merci d'avance pour votre aide. Je peux envoyer la macro si besoin.

Diane

Configuration: Windows 10

f894009 · Answer

Bonjour,

Pour eviter les aller/retour des chemins, vous pouvez creer sur votre PC perso un disque virtuel Z: auquel vous attacherez le repertoire de votre disque C: ou vous aurez mis tous les fichiers utiles a votre appli excel

(ici XP, mais valable pour tout OS windows)
https://www.pcastuces.com/pratique/astuces/1966.htm

pour le supprimer (ici W7, mais vous pourrez trouver pour votre OS)
http://www.libellules.ch/disque_virtuel_supp.php

pijaku · Answer

Bonjour,

Le plus simple étant d'utiliser une fonction personnélisée qui test si Z renvoie une erreur alors C...

Très simple car  vous n'évez que deux choix :

Function Disk_C_Ou_Z() As String
    On Error GoTo ErreurSurZ
    ChDrive "Z:"
    Disk_C_Ou_Z = "Z:\diane	ravail\dossier"
    Exit Function
ErreurSurZ:
    Disk_C_Ou_Z = "C:\diane\maison\dossier"
End Function

Sub MaMacro()
Dim Chemin As String
Chemin = Disk_C_Ou_Z & "\Mes Documents"
End Sub 
 
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je