Remplacer Chemin par le nom de la cellule

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voilà actuellement j'ai un code VBA qui contient un chemin
pour ouvrir un classeur.

J'aimerais remplacer le chemin par une cellule nommée
et donc indiquer le chemin dans la Cellule nommée.

Extrait du code:

DebutNomFichier = wshCible.UsedRange.Rows.Count + 2

Set wbkSource = Workbooks.Open("O:\SUIVI VOLUMETRIE\BASE DE DONNEES.XLS")

Set wshSource = wbkSource.Worksheets(4)

Je veux donc noter le chemin "O:\SUIVI VOLUMETRIE\BASE DE DONNEES.XLS" dans une cellule d une feuille nommée chemin.
Pour noter le nom de la cellule dans le code VBA.

Le but est de faciliter les changements, remplacer le contenu d'une cellule au lieu
de modifier l'ensemble du code.

Par avance merci

CHARLYJACK




A voir également:

2 réponses

scinarf Messages postés 1119 Date d'inscription   Statut Membre Dernière intervention   252
 
Dim chemin as String

String = ThisWorkbook.sheets("Mafeuille").cells(i,j).text
'i et j représente la ligne et la colonne que vos souhaitez.
Set wbkSource = Workbooks.Open(chemin)
0
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci scinarf tres efficace ,,,,!,,,!,,,,!
0