Discussion :

[awa123]

Bonjour,

le fichier joint me permet de copier le contenu d'une feuille et me change le nom de cette feuille en ajoutant 1 à chaque fois. Les noms des feuilles représentent les jours du mois prédéfini à la feuille "mensuel1". Je voudrais trouver le code VBA qui me permettra d'arrêter d'ouvrir une nouvelle feuille si j'ai déjà atteint la fin du mois, prédéfinit sur la feuille "mensuel1". Par exemple je ne veux pas me retrouver avec une feuille nommée "32" si le mois n'a que 31 jours.

je vous joints le fichierARRETE FIN DE MOIS.xlsm

merci

[SfJ5Rpw8]

Bonjour,

montre nous le code que tu utilise pour définir le nom de ta feuille ( entre balises [CODE][/CODE] )

[Theze]

Bonjour,

Une piste :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub Recup()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim NomFeuille As String
    Dim Derlig As Long
    Dim LaDate As Date
 
    With Worksheets(ActiveSheet.Name)
 
        'définie la plage a` recopier dans l'onglet de base
        Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
 
    End With
 
    Derlig = Worksheets("mensuel1").Range("B" & Rows.Count).End(xlUp).Row
 
    With ActiveSheet.Range("F1")
 
        LaDate = "01/" & Month(.Value) & "/" & Year(.Value)
 
    End With
 
    NomFeuille = Val(ActiveSheet.Name) + 1
 
    If CInt(NomFeuille) > Day(DateSerial(Year(LaDate), Month(LaDate) + 1, 1) - 1) Then
 
        MsgBox "Le dernier jour du mois est atteint !"
        Exit Sub
 
    End If
 
    Sheets.Add Before:=Sheets("mensuel1")    'créer un nouvel onglet qui sera placera juste avant l'onglet "mensuel"
    ActiveSheet.Name = NomFeuille
 
    With Worksheets(NomFeuille)
 
        'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
        Plage.Copy .Range("A1")
 
    End With
 
End Sub

Hervé.

[mortad123]

Bonjour;

tu dois que tu recalcul le Derlig avec

Code :

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

Derlig = Worksheets("mensuel1").Range("B" & Rows.Count).End(xlUp).Row - 6

et tu ajoute le if et goto

Code :

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

1
2
3
4
If NomFeuille > Derlig Then
      MsgBox " Vous ne pouvez pas ajouter cette journée..."
      GoTo annul:
      End If

Voila le code complet:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    Sub Recup()
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim Derlig As Long
 
 
     feuilleinitiale = CStr(Val(ActiveSheet.Name))
 
      With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
       Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
 
       Derlig = Worksheets("mensuel1").Range("B" & Rows.Count).End(xlUp).Row - 6
 
      End With
 
      NomFeuille = CStr(Val(ActiveSheet.Name) + 1)
 
      If NomFeuille > Derlig Then
      MsgBox " Vous ne pouvez pas ajouter cette journée..."
      GoTo annul:
      End If
      Sheets.Add Before:=Sheets("mensuel1")    'créer un nouvel onglet qui sera placera juste avant l'onglet "mensuel"
     ActiveSheet.Name = NomFeuille
 
 
 
 
      With Worksheets(NomFeuille)
        'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
       Plage.Copy .Range("A1")
      End With
 
 
annul:
    End Sub

bn chance