jordane45
Messages postés37261Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention20 mars 2023341 5 juil. 2011 à 14:40
Bonjour,
Sub test()
'nb classeurs
nb_class = Workbooks.Count
'nom des classeurs
For x = 1 To nb_class
Nom_class = Workbooks(x).Name
If Nom_class Like "truc*" Then
varstring = Nom_class
End If
Next
End Sub
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI