Ouverture fichier Excel avec une macro (chemin universel)

Bonjour à tous,

Je voudrais ouvrir un fichier excel à l'aide d'un bouton, mais comment modifier le chemin d'accés (voir le code ) pour le rendre universel et utilisable lors du transfert du fichier sur un autre pc.

Merci

Code :

Sub Ouvre()

Dim wb As Workbook

Dim ws As Worksheet

Set wb = Workbooks.Open("C:\Users\nom.prénom\Desktop\Test\Classeur1" )

Set ws = wb.Worksheets("Répartition" )

End Sub

Bonjour,

Une syntaxe générique :

VarNom = "Dupont"
VarPrenom = "Jacques"
Set wb = Workbooks.Open("C:\Users\" & VarNom & "." & VarPrenom & "\Desktop\Test\Classeur1.xlsx" )

Possibilité d'inclure au préalable les variables dans des fonctions LCase() pour les convertir en minuscule.

Bonsoir

pour que l'adresse puisse fonctionner dans tous les PC alors il faut que le fichier à ouvrir soit dans

le même répertoire que le fichier qui contiend la macro.

Sub Ouvre()

Dim wb As Workbook

Dim ws As Worksheet

Dim chemin as string

chemin =thisworkbook.path & "\"

Set wb = Workbooks.Open(chemin & "Classeur1" )

Set ws = wb.Worksheets("Répartition" )

End Sub

Bonjour

pour le bureau de l'utilisateur connecté sous windows :

sPath = Environ("USERPROFILE") & "\Desktop"

Fred

Merci beaucoup à vous!!!

Rechercher des sujets similaires à "ouverture fichier macro chemin universel"