Discussion :

[melouille56]

Bonjour à tous,

Et bonne année 2008 !!!

J'ai besoin de votre aide.
J'ai un classeur contenant une feuille sommaine puis plusieurs feuilles datées de la forme "dd.mm.yy".

Je souhaite copier la dernière feuille datée (la plus récente) et la renommer avec la date du jour.

Mon problème se pose lorsque je souhaite effectuer cette opération plusieurs fois dans la journée. Dans ce cas, j'aimerais que la feuille soit nommée avec la DateDuJour suivie de "-2" si la date du jour existe déjà, avec "-3" si "DateDuJour" et "DateDuJour-2" existent déjà et ainsi de suite.

Vérifier si une feuille existe, pas de problème, mais comment effectuer une boucle pour vérifier si DateDujour existe, puis DateDuJour-2, puis DateDuJour-3 etc. et ainsi renommer ma feuille copiée correctement ?

Merci pour votre aide précieuse.

Mél

[conconbrr]

Salut,

Tu pourrais faire une boucle "For Each" sur toutes tes pages et incrémenter un compteur à chaque fois qu'une page contient la date du jour.

A la fin de ta boucle, si le compteur vaut 0 alors tu mettras juste date du jour, sinon tu mettras "date du jour" & compteur+1.

Voilà je pense que ça devrait répondre à tes attentes

P.S: Si tu veux une aide technique plus détaillée (structure du For Each, ou du test de chaîne...), n'hésites pas je me ferais un plaisir de te répondre, je n'ai pas détaillé pour faire plus court et parce que je ne connaissais pas ton niveau en VBA

[melouille56]

Salut,

Tu pourrais faire une boucle "For Each" sur toutes tes pages et incrémenter un compteur à chaque fois qu'une page contient la date du jour.

A la fin de ta boucle, si le compteur vaut 0 alors tu mettras juste date du jour, sinon tu mettras "date du jour" & compteur+1.

Voilà je pense que ça devrait répondre à tes attentes

P.S: Si tu veux une aide technique plus détaillée (structure du For Each, ou du test de chaîne...), n'hésites pas je me ferais un plaisir de te répondre, je n'ai pas détaillé pour faire plus court et parce que je ne connaissais pas ton niveau en VBA

Alors super, merci pour vos conseils éclairs. Bon j'ai d'abord essayé le code de Wilfried (adapté à mon cas, puisque ma feuille est la seconde, et je n'insère pas de nouvelle feuille mais copie simplement la plus actuelle), mais il ne fonctionne qu'à hauteur de 2 essais par jour.

Du coup, j'ai repris l'idée du compteur de conconbrr (sympa le nom), et ca marche super bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
nom = Sheets(2).Name
 
Today = Format(Now, "dd.mm.yy")
 
compteur = 0
 
For Each feuille In Worksheets
    If Left(feuille.Name, 8) = Today Then
    compteur = compteur + 1
    End If
Next
 
Sheets(2).Copy After:=Sheets(1)
 
If compteur = 0 Then
    ActiveSheet.Name = Today
ElseIf compteur > 0 Then
    ActiveSheet.Name = Today & "_" & compteur + 1
End If

Merci encore !!! A une prochaine peut être.

Mél

[wilfried_42]

re:

C'est bizarre ca, j'en ai fait 5 de feuilles sur la meme journée et ca fonctionne, la seule obligation comme je l'ai dit, toujours la derniere feuille

[melouille56]

re:

C'est bizarre ca, j'en ai fait 5 de feuilles sur la meme journée et ca fonctionne, la seule obligation comme je l'ai dit, toujours la derniere feuille

Beh c bizarre, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If num = 1 then num = 2

donc pas d'autre choix, num ne dépassera pas 2.
Mais peut être que je me trompe aussi.

[wilfried_42]

re:

donc tu n'as pas essayé

if num =1 then num = 2 est une initialisation, car dans ta demande, tu n'as pas de feuille _1, tu as uniquement la date, j'ai tout simplement suivi ta demande

fais l'essai, je ne gere aucun compteur, je travaille directement sur le nom de la derniere feuille avec une analyse du nom

[wilfried_42]

bonjour

Si c'est la derniere feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub creerfeuille()
Dim wdat As Date, wnum As Integer
Dim nom As String, rec As Integer
nom = Sheets(Sheets.Count).Name
rec = InStr(nom, "_")
If rec = 0 Then
   wdat = CDate(nom)
   num = 1
Else
   wdat = CDate(Left(nom, rec - 1))
   num = Val(Mid(nom, rec + 1, Len(nom) - rec)) + 1
End If
    Sheets.Add After:=Sheets(Sheets.Count)
If wdat = Date Then
   If num = 1 Then num = 2
   Sheets(Sheets.Count).Name = Format(Date, "dd-mm-yy") & "_" & num
Else
   Sheets(Sheets.Count).Name = Format(Date, "dd-mm-yy")
End If
 
End Sub

Meilleurs voeux