Bonjour VPM, le fil, h2so4,,
@VPM
Puisque tu as l'air de "bien" type tes variables;.. Une suggestion :
Sub GetNomFichier()
Dim Fichier As String
Dim i, j, k As Integer
' Dim Base As Object
Dim Base As Worksheet
Dim newS As Boolean
Fichier = Dir("W:\Services\Qualite\Public\Communication\Note d'information atelier TEST\")
i = 1
j = 1
k = 1
Set Base = Worksheets("Base")
@h2so4
Et je suis on ne peux plus d'accord avec toi, et sur les 2 poins !