Microsoft 365 VBA pour ouvrir chemin répertoire spécifique

[Anto35200]

Bonjour,

Le code suivant permet d'ouvrir le nom d'un fichier avec un nom variable.
Je ne sais pas comment insérer dans ce code le chemin du répertoire de ce fichier.

  Dim extract As Workbook, Nom_Fichier As Variant, nblig As Long
  Dim WbS As Workbook
 
  Set WbS = ActiveWorkbook
  Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsm")
  If Nom_Fichier <> False Then
   Set extract = Workbooks.Open(Nom_Fichier)
   extract.Activate
  Else
   Exit Sub
  End If

En vous remerciant de votre aide.

 

[kiki29]

Salut, à lire/adapter à ton contexte : Manipulation des fichiers en VBA

 

[patricktoulon]

Bonjour
il te faut pointer le bon disque dur et le bon dossier

    Dim extract As Workbook, Nom_Fichier As Variant, nblig As Long
    Dim WbS As Workbook

    Set WbS = ActiveWorkbook

    ChDrive ("F:") 'tu pointe le bon disque
    ChDir "F:\mondossier" 'tu pointe le bon dossier

    Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsm")
    If Nom_Fichier = False Then Exit Sub

    Set extract = Workbooks.Open(Nom_Fichier)
    extract.Activate

 

[Anto35200]

Merci beaucoup.