variable string fixe

Sub ouvrir_fichiers_specifik()
'adapté de :ListFilesWithoutSelection()
'auteur: Don Guillett
Dim Rep As String
Dim Masque_Nom_Fichier As String
Dim Nom_Fichier As String
Rep = "C:\Temp\" ' adapter ici le nom du répertoire
Masque_Nom_Fichier = "???_test"
Nom_Fichier = Dir(Rep & Masque_Nom_Fichier & "*.xls")
 r = 1
   While Nom_Fichier <> ""
    Workbooks.Open (Nom_Fichier)
    Nom_Fichier = Dir
     r = r + 1
   Wend
End Sub

Sub creation_csv()
'
' creation_csv Macro
' Macro enregistrée le 14/01/2008 par Mikaël CLEUZIOU
' 027_C015_Fichier_Enrichissement_Saisi.csv





Dim MonChantier As String * 6
Dim w As Object
Dim Rep As Object
Dim Chemin As String
Dim Suffix As String
Suffix = "_C015_Fichier_Enrichissement.xls"

Chemin = ThisWorkbook.Path
Set Rep = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each w In Rep.Files
    If w.Name <> ThisWorkbook.Name Then
        If Right(w.Name, Len(Suffix)) = Suffix And Len(w.Name) = (Len(Suffix) + 6) Then
        Workbooks.Open Filename:=w
        End If
    End If
Next
End Sub

]
code vba
[[//CODE]]

ou de sélectionner le code VBA puis de cliquer
sur #

merci!
;-)