Ouverture Workbooks

drogba28 Messages postés 13 Date d'inscription mardi 28 septembre 2004 Statut Membre Dernière intervention 30 mars 2011 - 14 févr. 2010 à 19:13
jordane45 Messages postés 36569 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 novembre 2022 - 25 févr. 2010 à 09:45
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

1 réponse

jordane45 Messages postés 36569 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 novembre 2022 341
25 févr. 2010 à 09:45
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,
0