Bonjour à tous,
Je me permets de solliciter votre aide en tant que novice en vba.
J'ai modifié une macro récupérée sur le net dans le but de lister les fichiers disponibles dans un dossier.
Le nom des fichiers se présente toujours sous la forme :
N°xxx_Ulysse_2010(Moisxxx)_Clientxxx.xls
Le soucis c'est que je souhaite récupérer les infos figurant dans le nom du fichier et le répartir de la manière suivante :
A5 = N°xxx
B5 = Clientxxx
C5 = lien vers le fichier
D5 = Moisxxx
puis
A6 = N°xxx
B6 = Clientxxx
C6 = lien vers le fichier
D6 = Moisxxx
etc ...
Problème rencontré : le code fonctionne jusqu'à la ligne 12 puis m'informe d'un bug sur la ligne :
Vous trouverez ci-dessous le code que j'ai modifié.
Merci d'avance pour votre aide.
Je me permets de solliciter votre aide en tant que novice en vba.
J'ai modifié une macro récupérée sur le net dans le but de lister les fichiers disponibles dans un dossier.
Le nom des fichiers se présente toujours sous la forme :
N°xxx_Ulysse_2010(Moisxxx)_Clientxxx.xls
Le soucis c'est que je souhaite récupérer les infos figurant dans le nom du fichier et le répartir de la manière suivante :
A5 = N°xxx
B5 = Clientxxx
C5 = lien vers le fichier
D5 = Moisxxx
puis
A6 = N°xxx
B6 = Clientxxx
C6 = lien vers le fichier
D6 = Moisxxx
etc ...
Problème rencontré : le code fonctionne jusqu'à la ligne 12 puis m'informe d'un bug sur la ligne :
Code:
Cells(i + 4, 1) = Mid(Chaine, 1, InStr(1, Chaine, "_Ulysse") - 1)
Vous trouverez ci-dessous le code que j'ai modifié.
Code:
Sub Liste_des_fichiers()
'
' lien_hypertext_liste_fichiers Macro
'
Dim mess As String, mess2 As String, répertoire As String
mess = "\\Mariepierre\AAA_Tarifs Clients en vigueur\"
mess2 = "xls"
Application.ScreenUpdating = False
répertoire = Dir("\\Mariepierre\AAA_Tarifs Clients en vigueur\" & "*" & "xls", vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i + 4, 3) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 4, 3), Address:=mess & répertoire
répertoire = Dir
Loop
End Sub
Sub Num_Ulysse()
Dim mess As String, mess2 As String, Chaine As String
mess = "\\Mariepierre\AAA_Tarifs Clients en vigueur\"
mess2 = "xls"
Application.ScreenUpdating = False
Chaine = Dir("\\Mariepierre\AAA_Tarifs Clients en vigueur\" & "*" & "xls", vbDirectory)
Do While Chaine <> ""
i = i + 1
Cells(i + 4, 3) = Chaine
Cells(i + 4, 1) = Mid(Chaine, 1, InStr(1, Chaine, "_Ulysse") - 1)
Cells(i + 4, 2) = Mid(Chaine, InStr(Chaine, ")_") + 2)
Chaine = Dir
Loop
End Sub
Merci d'avance pour votre aide.