Remplacer Chemin par le nom de la cellule

Résolu/Fermé
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 - 23 mai 2013 à 10:35
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 - 5 juin 2013 à 21:41
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




2 réponses

scinarf Messages postés 1098 Date d'inscription samedi 18 novembre 2006 Statut Membre Dernière intervention 25 septembre 2014 291
23 mai 2013 à 11:06
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 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 1
5 juin 2013 à 21:41
Merci scinarf tres efficace ,,,,!,,,!,,,,!
0