Bonjour à tous,
J'ai posté il y a quelque temps un problème pour copier le contenu des feuilles qui appartienent aux jours de la semaine.
Mais voilà, si je n'ai qu'une feuille avec une date de la semaine il me copie les données 5 fois. Je souhaite donc que pendant la boucle il passe au jour suivant si la feuille n'existe pas. J'ai essayé de faire cette manip sans grande réussite.
Merci encore pour vos réponses.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For I = 1 To 5 'copie les données de la semaine Set Ws = ThisWorkbook.Worksheets(Format(Date - JourSem + I, "dd-mm-yyyy")) If Not existe(Ws) Then 'ligne ajoutée Next I 'ligne ajoutée End If 'ligne ajoutée ligne = Ws.Range("A" & Range("A:A").Rows.Count).End(xlUp).Row Ws.Range("A1:B" & ligne).Copy .Range("A1").Insert Shift:=xlDown Next I
Bonne journée.
Cordialement
Partager