Chemin d'un fichier dans le classeur pour une utilisation VBA

Bonjour,

J'ai une procédure qui permet d'exporter les données de mon classeur dans une base de données Excel. Il y a, dans cette procédure, le chemin où se trouve ma base de données.

Sub Transfert_VAE()
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  'Nom de la feuille à exporter
  Set Ws = Sheets("VAE")

  'Chemin du classeur où mettre l'export
  Chemin = "C:\Users\Kévin\Desktop\Pointe LC 2.2\Export\Data\"
  'Nom du fichier d'export
  Fichier = "VAE.xlsm"

  If Dir(Chemin & Fichier) = "" Then
    MsgBox "Le fichier " & Fichier & " est introuvable"
    Exit Sub
  End If

  With Workbooks.Open(Chemin & Fichier)
    'Feuil de destination dans fichier export
    With .Sheets("VAE")
      'Plage a exporter du fichier source // Colonne du début de l'export dans fichier réception .Range(".." & Rows.Count)
      Ws.Range("A6:U150").Copy .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End With
    'Enregistrement
    .Close savechanges:=True
  End With
End Sub

La ligne concernée :

Chemin = "C:\Users\Kévin\Desktop\Pointe LC 2.2\Export\Data\"

J'aimerais, que ce chemin soit indiqué dans une cellule de mon classeur Excel plutôt que d'être implémenté directement dans le code. Est-ce possible ?

Je vous joins un fichier test où j'ai isolé le code ci-dessous.

A vous relire,

Horusbk

Bonjour,

Un essai ...

Chemin = Ws.Cells(3, "B").Value

ric

Bonjour ric

Merci pour ton retour !

Si j'ai bien compris le code Ws.Cells(3, "B").Value il s'agit d'aller chercher la cellule 3 de la colonne B dans la feuille de classeur en cours d'utilisation ? Est-il possible de préciser la feuille où aller chercher l'adresse du fichier ?

Horusbk

Bonjour,

Set Ws = Sheets("VAE") Ws indique la feuille.

Chemin = Ws.Cells(3, "B").Value dans ce cas-ci, cellule B3 de la feuille VAE.

L'on peut aussi indiquer directement la feuille

Chemin = Worksheets("VAE").Cells(3, "B").Value

Ou

Chemin = Worksheets("VAE").Range("B3").Value

Il y a à adapter au besoin.

ric

Autant pour moi !

Merci pour ces astuces Ric ! Je passe en résolu du coup.

Horusbk