Ouverture fichier excel avec une macro ( chemin universel) Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
b
bibo007
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 4 octobre 2019
Version d'Excel : 2016

Message par bibo007 » 27 janvier 2020, 16:48

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
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'934
Appréciations reçues : 401
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 27 janvier 2020, 17:13

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.
Modifié en dernier par Pedro22 le 27 janvier 2020, 17:33, modifié 1 fois.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'762
Appréciations reçues : 194
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 27 janvier 2020, 17:17

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
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'229
Appréciations reçues : 47
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 27 janvier 2020, 17:49

Bonjour
pour le bureau de l'utilisateur connecté sous windows :
sPath = Environ("USERPROFILE") & "\Desktop"
Fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
b
bibo007
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 4 octobre 2019
Version d'Excel : 2016

Message par bibo007 » 28 janvier 2020, 16:38

Merci beaucoup à vous!!!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message