Liste de fichiers d'un dossier

Bonjour à tous,

je n'ai pas trouvé de post concerant ma question

Voila je ne suis pas expert en VBA mais j'ai un probleme je pense à resoudre.

J'ai une macro que je souhaite modifier :

Cette macro via 2 boites de dialoque me permet de lister des fichiers dans un repertoire et de les lister dans un fichier excel avec des liens hypertexte.

Je voudrai

• connaissant le dossier à inspecter ne pas avoir la boite de dialogue 1 qui s'affiche
• connaissant l'extension des fichiers ne pas avoir à renseigner non plus dans la boite de dialogue 2 l'extension.

De plus dans ma recherche des fichiers *.stl je voudrai si possible les dissocier.

j'ai 2 types : ---------_s.stl et ---------.stl.

je souhaite conserver uniquement les fichiers ne se terminant pas par _s.stl

voici le code VBA que je souhaite modifier.

D'avance merci beaucoup

Sub lien_hypertext_liste_fichiers()

'

' lien_hypertext_liste_fichiers Macro

' Macro enregistrée le 13/01/2007 par didus

'

Dim mess As String, mess2 As String, répertoire As String

Columns(1).Clear

Columns(2).Clear

mess = InputBox("Chemin complet du répertoire à explorer, attention, / à la fin", "Chemin du répertoire", _

"Z:\Bibliotheque_Outillages\")

mess2 = InputBox( _

"Donnez seulement le type de fichier (par exemple pdf, xls, doc, jpg ou dxf etc...)" _

, "TYPE DE FICHIER", "stl")

Application.ScreenUpdating = False

répertoire = Dir(mess & "*" & mess2, vbDirectory)

Do While répertoire <> ""

i = i + 1

Cells(i, 1) = répertoire

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=mess & répertoire

Cells(i, 2) = mess & répertoire

répertoire = Dir

Loop

End Sub

Bonjour,

essaie avec ce code :

Sub lien_hypertext_liste_fichiers()
Dim Repertoire As String
Dim Rep As String
Application.ScreenUpdating = False
Columns("A:B").Clear
Repertoire = "Z:\Bibliotheque_Outillages\"
Rep = Dir(Repertoire & "*.stl", vbDirectory)
Do While Rep <> ""
    If Mid(Rep, Len(Rep) - 5, 2) <> "_s" Then
        i = i + 1
        Cells(i, 1) = Rep
        ActiveSheet.Hyperlinks.Add Cells(i, 2), Repertoire & Rep, , , Rep
    End If
    Rep = Dir
Loop
End Sub

Bonne soirée

Bonjour !

il ne se passe malheureusement rien....

Bonjour,

As-tu bien défini le répertoire :

Repertoire = "Z:\Bibliotheque_Outillages\" 

avec le "\" à la fin?

Et l'extension :

Rep = Dir(Repertoire & "*.stl", vbDirectory) 

c'est bien "stl"?

En déroulant en mode pas-à-pas (F8), que se passe-t-il?

ça MARCHE !!!

Merci !!!

cousinhub a écrit :

Bonjour,

essaie avec ce code :

Sub lien_hypertext_liste_fichiers()
Dim Repertoire As String
Dim Rep As String
Application.ScreenUpdating = False
Columns("A:B").Clear
Repertoire = "Z:\Bibliotheque_Outillages"
Rep = Dir(Repertoire & "*.stl", vbDirectory)
Do While Rep <> ""
    If Mid(Rep, Len(Rep) - 5, 2) <> "_s" Then
        i = i + 1
        Cells(i, 1) = Rep
        ActiveSheet.Hyperlinks.Add Cells(i, 2), Repertoire & Rep, , , Rep
    End If
    Rep = Dir
Loop
End Sub

Bonne soirée

j'exploite le lien hypertexte....

dans une feuille1 j'ai une reference en colonne A

le lien hypertexte correspondant dans la colonne B (le lien fonctionne)

(resultat de la macro)

maintenant dans une feuille2

avec une rechercheV je vai rechercher le lien hypertexte :

=LIEN_HYPERTEXTE(RECHERCHEV(B45;Lienbiblioresines!A:B;2;FAUX))

j'ai bien le lien affiché en lien hypertexte

par contre quand j'ai recuperé le lien dans ma feuille2 il ne fonctionne plus :

"impossible d'ouvrir le fichier specifié"

yé comprends pas....

j'ai envoyé un exemple sur le lien suivant:

ca me fait pareil

https://www.excel-pratique.com/~files/doc2/essailien.xls

Bonjour à tous,

A la place de :

=LIEN_HYPERTEXTE(RECHERCHEV(B45;Lienbiblioresines!A:B;2;FAUX))

Mets :

=LIEN_HYPERTEXTE("http://"&RECHERCHEV(B45;Lienbiblioresines!A:B;2;FAUX))

Bonjour vba-new

ça marche effectivement pour google.

mais il semble que si je fais appel à un lecteur reseau ca ne marche pas.

j'ai retiré le http et laissé //... rien ne se passe

j'ai essayé de mettre une partie du chemin reseau ... non plus...

enfin j'ai fais le derneir ajustement....

Pour info :

=LIEN_HYPERTEXTE("file:///Z:\Bibliotheque_Outillages_ResineDossier Travail\\"&RECHERCHEV(B35;Lienbiblioresines!A:B;2;FAUX);"STL")

Il manquait l'info "file:///...."

Bonjour à tous,

Comme le dit Dan :

Dan a écrit :

PS : Si ton pb est terminé, merci de mettre RESOLU sur le fil. Explications --> https://www.excel-pratique.com/forum/viewtopic.php?t=13

Bonjour à tous,

j'ai un soucis de lenteur....

Quand j'utilise la macro dans un fichier vide, elle s'execute en 20-30secondes...

quand je l'uttilise dans mon fichier d'utilisation (10 onglets, 0.9 mo) elle peut mettre 15 minutes ?

quand je la coupe car trop longue... elle est figée sur End If.

avez vous une idée ?

merci à tous pour votre aide.

Bientot les vacances....

ReBonjour !!!!!

Probleme resolu...

enfn !

J'ai desactivé le calcul auto....

j'avais des rechercheV dans tous les sens qui me plombaient la macro !

Bon ben merci à tous pour votre participation !

" I'll be back ! "