bonjour a tous!

j'ai comme un prb
je voudrais voir si une une feuille (Analyse) existe, la supprimer si c'est le cas puis la créer vierge.
ensuite rentrer des données d'autre feuille ("RESUME_"&Mois).
cependant elles aussi existe ou pas

comment faire?

j'ai fait un debut de code mais il est tres aproximatif.


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
45
46
Public Function FeuilleExiste(ByVal strNomFeuille As String) As Boolean
'Retourne TRUE si strNomFeuille est le nom d'une feuille qui existe dans le classeur actif
' FALSE dans le cas contraire
FeuilleExiste = Not (IsError(Evaluate("='Analyse'!A1")))
End Function
 
Public Function Feuille2Existe(ByVal strNomFeuille As String) As Boolean
Feuille2Existe = Not (IsError(Evaluate("='RESUME_" + Mois + "'!A1")))
End Function
 
Sub reception()
Dim Mois As String, FeuilleExiste As Boolean, Feuille2Existe As Boolean
 
 
If FeuilleExiste = True Then
    Sheets("Analyse").Delete
    'créer une nouvelle feuille
    Sheets.Add.Name = "Analyse"
    Sheets("Analyse").Select
Else
    'créer une nouvelle feuille
    Sheets.Add.Name = "Analyse"
    Sheets("Analyse").Select
End If
 
    i = 0
    For i = 0 To i = 12
    i = i + 1
 
    Mois = Sheets("Parametre").Cells(i, 6)
 
        If Feuille2Existe = True Then
        Sheets("RESUME_" & Mois).Select
        Range("K2").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("Analyse").Select
    nb_ligne = Range("A1000000").End(xlUp).Row + 1
        Range("A" & nb_ligne).Select
        ActiveSheet.Paste
        Range("D" & nb_ligne) = Mois
    End If
    Next i
 
End Sub
merci de votre aide