zesuila
XLDnaute Occasionnel
Bonjour à tous
Ca y est les vacances c'est fini :angry:
Il faut se remettre au boulot dans la joie et la bonne humeur. Heureusement XLD est là
Voici mon problème : ci joint le code (que j'ai trouvé sur XLD bien sûr, merci à ...euh je ne sais plus qui, désolé !)
Private Sub Worksheet_Activate()
Dim Direction As String
Dim Lig As Variant
Dim Trouve As Variant
Range('A7:C1000').ClearContents
Direction = Sheets('chercher').Range('C3').Value
Lig = 7
Cells(Lig, 1) = 'Chemin fichier'
'Cells(Lig, 2) = 'Taille'
'Cells(Lig, 3) = 'Date/Heure'
Range('A7:C7').Font.Bold = True
Lig = Lig + 1
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Direction
.Filename = '*.' & Sheets('chercher').Range('C1').Value
.SearchSubFolders = True
.Execute
For Trouve = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Lig, 1), Address:=.FoundFiles(Trouve)
'Cells(Lig, 2) = FileLen(.FoundFiles(Trouve))
Cells(Lig, 3) = FileDateTime(.FoundFiles(Trouve))
ActiveSheet.UsedRange.EntireColumn.AutoFit
Lig = Lig + 1
Next Trouve
End With
End Sub
Il marche parfaitement bien, mais je voudrais n'avoir que le nom du fichier et non pas le nom du disque, du répertoire etc..
Par exemple il m'affiche actuellement :
e:\\xld\\archives\\help.xls (et là magie il est sous forme de lien donc cliquable pour l'ouvrir !!!)
je voudrais seulement help.xls car après les utilisateurs peuvent cliquer sur des petits boutons pour faire une recherche affinée .
Allez zou je repars bosser,(quoique là finalement je bosse )
Bonne journée à tous !
Ca y est les vacances c'est fini :angry:
Il faut se remettre au boulot dans la joie et la bonne humeur. Heureusement XLD est là
Voici mon problème : ci joint le code (que j'ai trouvé sur XLD bien sûr, merci à ...euh je ne sais plus qui, désolé !)
Private Sub Worksheet_Activate()
Dim Direction As String
Dim Lig As Variant
Dim Trouve As Variant
Range('A7:C1000').ClearContents
Direction = Sheets('chercher').Range('C3').Value
Lig = 7
Cells(Lig, 1) = 'Chemin fichier'
'Cells(Lig, 2) = 'Taille'
'Cells(Lig, 3) = 'Date/Heure'
Range('A7:C7').Font.Bold = True
Lig = Lig + 1
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Direction
.Filename = '*.' & Sheets('chercher').Range('C1').Value
.SearchSubFolders = True
.Execute
For Trouve = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Lig, 1), Address:=.FoundFiles(Trouve)
'Cells(Lig, 2) = FileLen(.FoundFiles(Trouve))
Cells(Lig, 3) = FileDateTime(.FoundFiles(Trouve))
ActiveSheet.UsedRange.EntireColumn.AutoFit
Lig = Lig + 1
Next Trouve
End With
End Sub
Il marche parfaitement bien, mais je voudrais n'avoir que le nom du fichier et non pas le nom du disque, du répertoire etc..
Par exemple il m'affiche actuellement :
e:\\xld\\archives\\help.xls (et là magie il est sous forme de lien donc cliquable pour l'ouvrir !!!)
je voudrais seulement help.xls car après les utilisateurs peuvent cliquer sur des petits boutons pour faire une recherche affinée .
Allez zou je repars bosser,(quoique là finalement je bosse )
Bonne journée à tous !