Fichier dont nom et chemin sont dans 2 cellules différentes

Bonjour,

Tout d'abord, bravo pour ce forum qui est très bien fait.

N'ayant trouvé de solution à mon problème dans les différents sujets, je vous pose ici ma question.

Grace à ce forum et à l'enregistrement automatique de macro, j'ai réussi à réaliser un petit programme qui va chercher dans un classeur fermé une feuille, la renomme et la colle dans mon classeur actif.

Le nom du fichier source est situé dans un menu déroulant que je sélectionne. Par contre le chemin d'accès est figé dans le programme avec la fonction ChDir_ et j'aimerais pouvoir le lier à une cellule comme pour le nom de fichier qui est en C8.

Pourriez vous m'aider ?

Voici ci-dessous mon programme :

Private Sub CommandButton2_Click()

'

' Remplacer_donnéesBF17 Macro

'

'

Sheets("Données BF17").Select

Sheets("Données BF17").Name = "OldDonnées BF17"

ChDir _

"G:\PRODUITS - JBB\Budget produits\Budget produits 2015\Suivi d'avancement du budget\Fichiers Bf17"

Workbooks.Open Filename:=Range("C8").Value

Sheets("Page1_1").Select

Sheets("Page1_1").Copy Before:=Workbooks( _

"V6 Copie de Fichier de préparation du budget.xlsm").Sheets(1)

Sheets("Page1_1").Select

Sheets("Page1_1").Name = "Données BF17"

Sheets("Macros").Activate

End Sub

En vous remerciant pour votre aide,

Cordialement,

JB

Hello,

Bienvenue sur le forum.

Pense à bien baliser le code que tu fournis pour en faciliter la lecture (et donc, augmenter les chances de réponse).

Essaie le code suivant, en remplaçant [Ta cellule] par la ref

Private Sub CommandButton2_Click()
'
' Remplacer_donnéesBF17 Macro
'

'
Sheets("Données BF17").Select
Sheets("Données BF17").Name = "OldDonnées BF17"
ChDir  trim(cstr(Range("[Ta cellule ici"]))

Workbooks.Open Filename:=trim(cstr(Range("C8")))
Sheets("Page1_1").Select
Sheets("Page1_1").Copy Before:=Workbooks( _
"V6 Copie de Fichier de préparation du budget.xlsm").Sheets(1)
Sheets("Page1_1").Select
Sheets("Page1_1").Name = "Données BF17"
Sheets("Macros").Activate
End Sub

Pour info : Cstr() transforme le contenu en STRING (texte), TRIM supprime les espaces superflus

Bonjour,

Merci pour la réponse. Peux tu m'indiquer comment baliser le code ? J'ai le message d'erreur suivant : Erreur de compilation : erreur de syntaxe sur la ligne :

ChDir trim(cstr(Range("[D24"]))

Nb: mon chemin d'accès est situé en D24

Cordialement,

Pour baliser le code, sur les forums phpBB (du moins), tu as un bouton "Code", ou alors tu les ajoutes manuellement : "[ code]" au début, "[ /code]" à la fin.

Pour ton problème :

ChDir trim(cstr(Range("D24"))

Les "[" "]" étaient pour délimiter l'emplacement où tu devais insérer ta ref de cellule. Mais ce n'était pas très clair, mea culpa

Merci pour cette modif, mais j'ai toujours le même code d'erreur de compilation : erreur de syntaxe.

J'ai trouvé l'erreur de syntaxe, il manquait une parenthèse à la fin. Merci beaucoup pour l'aide.

JB

Je me disais aussi