Remplacer Chemin par le nom de la celluleRésolu/Fermé

Question

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




Configuration: Windows XP / Firefox 3.6.24

scinarf · Answer

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)

CHARLYJACK · Answer

Merci scinarf tres efficace ,,,,!,,,!,,,,!

Remplacer Chemin par le nom de la cellule

2 réponses

Newsletters