Ouverture Workbooks

Question

Bonjour,

J'ai crée un userform sur lequel j'ai placé 2 boutons qui me permettent de chercher manuellement 2 fichier sur mon disque dur. Après avoir selectionné ces fichiers, leurs liens s'affichent directement dans un textbox( c:\....\classeur1).
Ma question est de savoir comment je peux designer la cellule A1 d'un fichier sachant que le nom du fichier ne sera jamais le même (je ne peux donc utiliser workbooks("classeur1").sheets...)

Merci

jordane45 · Answer

Bonjour,
Il va falloir manipuler un peu les chaines de caracères...
Le plus simple à mon gout est : 

'inverser la chaine contenant le lien vers ton classeur
'Rechercher le \
'Recupérer le nom du classeur et réinverser le tout...
Chem_Inverse = StrReverse(textbox1.value)
Cherche_Slash = InStr(1, Chem_Inverse, "")
MonClasseur = StrReverse((Left(Chem_Inverse, Cherche_Slash-1)))


Ensuite, tu peux utiliser ta variable MonClasseur ..

Workboos(MonClasseur).range("A1").select



voili voilou ^^

Cordialement,
Jordane,

Ouverture Workbooks

1 réponse

Votre réponse

Discussions similaires