Bonsoir à tous,
j'ai plusieurs onglets dans un classeurs. Les titres des onglets sont des codes genre : BG017,BG037.
Et sur mon premier onglet "récap", j'ai la liste de tous ces codes ainsi que la date de leur création sur la colonne d'à coté. Et je voudrais imprimer les onglets dont la date de création est la date du jour.
J'ai fait cette macro là, mais ça bugg sur le "set c ="..... Fais chier :
Sub PrintBelgique()
Dim WS As Worksheet
Dim c As Variant
For Each WS In ThisWorkbook.Worksheets
Set c = Sheets("Récap").Range("I:I").Find(WS.Name, LookIn:=xlValues).Offset(0, -2)
If Not c Is Nothing And c = Date Then
WS.PrintOut
End If
Next
End Sub
J'ai l'impression que c'est le WS.Name qui pose problème. Et puis sinon, pour les types de variable, j'my connais pas trop lol
je vous remercie pour votre futur aide.
j'ai plusieurs onglets dans un classeurs. Les titres des onglets sont des codes genre : BG017,BG037.
Et sur mon premier onglet "récap", j'ai la liste de tous ces codes ainsi que la date de leur création sur la colonne d'à coté. Et je voudrais imprimer les onglets dont la date de création est la date du jour.
J'ai fait cette macro là, mais ça bugg sur le "set c ="..... Fais chier :
Sub PrintBelgique()
Dim WS As Worksheet
Dim c As Variant
For Each WS In ThisWorkbook.Worksheets
Set c = Sheets("Récap").Range("I:I").Find(WS.Name, LookIn:=xlValues).Offset(0, -2)
If Not c Is Nothing And c = Date Then
WS.PrintOut
End If
Next
End Sub
J'ai l'impression que c'est le WS.Name qui pose problème. Et puis sinon, pour les types de variable, j'my connais pas trop lol
je vous remercie pour votre futur aide.