Discussion :

[aleximan]

Bonjour à tous,

Je cherche à créer un lien hypertexte qui doit ouvrir un répertoire ou dossier.
Mon souci vient du fait que je n'ai dans mon fichier excel que le début du nom du répertoire.
Les répertoires s'appellent tous par 000000 (n° à 6 chiffres) + un nom usuel
exemple : 234234 tartempion

J'ai essayé avec * mais c'est naïf de ma part.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE(AdresseDossiers&B1&"*";"Ouvrir le dossier")

Comment puis je faire ?
Merci d'avance

[Fvandermeulen]

Salut,
Pour être honnête avec le lien hypertexte je vois pas par contre une petite macro ferait le boulot parfaitement.
Mais veux tu ouvrir tous les fichiers XLS du dossier ou seulement un qui est renseigné grace au nombre à 6 caractères ?
Si t'es OK pour une Macro, fais signe.

[kiki29]

Salut, un exmple on ne peut plus basique , à adapter

[kiki29]

Re, via macro VBA, à toi de voir et adapter à ton contexte

[aleximan]

Merci pour vos réponses mais peut-être que ce que je souhaite faire n'est pas possible.
Les dossiers que je souhaite ouvrir sont nommés comme suit :
234234 Tartempion
234235 affaire a 2 balles
234236 dossier trucmuche

Mon souci est que dans mon fichier excel je n'ai pas le texte qui suit le numéro (de plus ce texte peut être changé par n'importe qui à n'importe quel moment).

Je pensais à une syntaxte du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE("C:\Dossiers en cours\"& cherche(B1,  );"Ouvrir le dossier")

Je ne connais pas la fonction CHERCHE ou autres et si elles sont capables de trouver le numéro et renvoyer la chaine complète du nom de dossier ?

[Fvandermeulen]

Bonjour,
J'ai pas regardé la solution Macro de Kiki29 car j'imagine qu'elle ne te convient pas et donc j'espère que je ne propose pas la même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub OuvreXLS()
Const Rep="C:\LeCheminDuDossier\" '!! le \ est important
Dim TheFile as String, RefFile as string
 
'La variable récupère le numéro stocké dans la cellule A2 de la feuil1
'On peut imaginer la récupérer par InputBox ou en utilisant la cellule active.
RefFile = Sheets("Feuil1").range("A2")
 
TheFile = Dir(Rep & "*.xls") 'Listing des fichiers .xls contenus dans le dossier
While TheFile <> "" 'Fera la boucle tant que non vide
     If Left(TheFile,6) = RefFile Then 'Si les 6 caractères de gauche = mon choix alors
     Workbooks.open(Rep & TheFile) 'Ouverture du fichier
     Exit sub 'sort du code puisque fichier trouvé
     End if
The File = Dir 'Passe au fichier suivant
Wend
End sub

J'ai pas testé, j'ai écrit le code directement, j'espère ne pas avoir fait d'erreur,

A+

[aleximan]

Merci bcp à tous les deux
j'ai fait comme j'ai pu vu mon niveau en vba et cela donne ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub OuvrirDossier()
 
Dim Chemin As String
Dim MonDossier As String
Dim CAE As String
 
Chemin = Range("AdresseDossiers")
CAE = ActiveSheet.Range("B1")
MonDossier = Dir(Chemin & CAE & "*", vbDirectory)
 
Shell "c:\Windows\Explorer.exe " & Chemin & MonDossier, vbNormalFocus
 
End Sub