Port USB et Clée USB

Bonjour,

J'ai conçu avec excel 2016, un classeur "Finance" contenant des fichiers (liste clients, Facturation, bilan, etc).

J'ai aussi un formulaire des nouveaux clients (Userform avec différents bouton ex: enregistrement, imprimer, et sauvegarder en PDF), inclus dans ce classeur.

L'enregistrement en PDF se fait dans un dossier externe au classeur Excel. Le tout sur une clée USB. Tout fonctionne rondement sauf lorsque je change de portable ou d'ordi. Puisque dans le code VBA du bouton "Enregistrer PDF" le chemin indique ("E") comme disque amovible, les autre portable ou ordi ont un port USB différent ex: ("F") ou ("G"), etc.

Mon problème est comment insérer un code ou autre démarche, sans modifier le code VBA à chaque fois que je change d'ordi.

Merci

Pierrescouts

Bonjour,

Votre fichier principal est donc sur une clé usb mais l'enregistrement pdf sera lui aussi sur cette même clé ?

Si oui alors il faudrait adapter le classement de vos pdf :

Exemple Adresse actuelle du fichier excel : E:\Mesdocuments\monfichiermacroexcel.xlsm

Le classement des vos pdf devra être réalisé dans un sous répertoire de "Mesdocuments"

Exemple : E:\Mesdocuments\MesPDF\

Ainsi vous pouvez modifier votre code vba afin qu'une partie de l'adresse soit retrouvée automatiquement :

Dim CHEMINENREGISTREMENT as string
CHEMINENREGISTREMENT=Thisworkbook.path &"\MesPDF\"

De cette manière si vous ouvrez sur un autre PC le "Thisworkbook.path" ira rechercher l'adresse du fichier excel actuellement ouvert. (donc la bonne lettre).

Merci Xmenpl,

Cela fonctionne très bien.

Très apprécié et très rapide pour la réponse

Pierrescouts

Rechercher des sujets similaires à "port usb clee"