Chemin relatif

Bonjour à tous

J'ai un fichier dans un dossier avec une macro qui lance un fichier dans un autre dossier.

Depuis mon pc, cela marche très bien, mais dés qu'un autre pc lance le fichier il ne se passe rien.

Je pense sans trop m'y connaître qu'il y a un problème de chemin

voici le code qui s'exécute

 Sub ouvrirfichiersF()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook

   Chemin = "C:\Users\frter\Google Drive\MATRICES RSST\1 CRM\_BdD\" 'Chemin du dossier depuis un pc
   Fichier = Dir(Chemin & "*.xlsm") 'type de fichier ici .xlsm
   Do While Fichier <> ""
   Set Wb = Workbooks.Open(Chemin & Fichier)
   Set Wb = Nothing
   Fichier = Dir
   Loop

End Sub

Que dois je réaliser pour pour la macro marche depuis tous les pc ?

Merci de votre aide

bonjour

pourquoi une macro alors qu'il est si facile d'ouvrir un fichier dans Windows ?

si besoin tu peux créer des raccourcis pour l'avoir toujours sous la main

simple et robuste

au pire tu mets un lien hypertexte, avec un chemin en 2 parties (liées par un & ) la 1ere partie sera le début du chemin (propre à chaque PC)

à l'insatallation, tu paramètres cette 1ere partie sur le PC. Le tour est joué !

pas de VBA non plus

amitiés

Effectivement simple et efficace, j'y avait pas pensé.

Merci JMD

Bonjour,

En vba, ça donnerait ...

Sub ouvrirfichiersF()
Dim Fichier, Chemin, Client As String
Dim Wb As Workbook

Client = Environ("username")
   Chemin = "C:\Users\" & Client & "\Google Drive\MATRICES RSST\1 CRM\_BdD\" 'Chemin du dossier depuis un pc
   Fichier = Dir(Chemin & "*.xlsm") 'type de fichier ici .xlsm
   Do While Fichier <> ""
   Set Wb = Workbooks.Open(Chemin & Fichier)
   Set Wb = Nothing
   Fichier = Dir
   Loop
End Sub

ric

Merci RIC

Nickel