Bonjour,

J'ai créé ce début de programme ci dessous.
L'objectif est de récupérer les données d'un classeur x et de les copier dans le classeur y en les triant. C'est à dire que les données de l'onglet OCTOBRE du classeur x doivent se coller dans la feuille 10 du classeur y.
Mais parfois j'aurais besoin de remettre à jour les données du classeur y (pour des cas de saisie en retard dans le classeur x).

Ce début de programme a pour objectif de demander à l'utilisateur du classeur y sur quel mois on travaille.
Si la feuille existe déjà car les données ont déjà été importées dans y je souhaite tout supprimer pour dans la suite du programme faire un nouveau collage.
Si la feuille n'existe pas je souhaite en créer une portant le mois (ex : 10 pour octobre)
Le problème est que le programme bug mais je ne vois pas pourquoi. Parfois il me crée une feuille sans renommer avec le mois mais par exemple Feuil10.
Merci de m'aider à trouver l'erreur de programmation.
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
 
Sub Copier_Suivi()
 
Dim FWS As Worksheet
Dim Mois As String
Dim NomFle As String
 
'Mois à mettre à jour
Worksheets("Bilan").Activate
Mois = InputBox("Mois (mm)")
Cells(2, 2) = Mois
 
'Suppression si feuille existante (Mois) puis création d'une nouvelle feuille
Dim Wsh As Worksheet
 
Application.DisplayAlerts = False
 
For Each Wsh In ActiveWorkbook.Worksheets
    If Wsh.Name = Mois Then
        Wsh.Delete
        Sheets.Add
        ActiveSheet.Name = Mois
    End If
Exit For
 
Next
Application.DisplayAlerts = True
 
Sheets.Add
ActiveSheet.Name = Mois
 
ActiveWorkbook.Save
La suite du programmme consistera à coller les donner dans la cells(3,1) de la feuille créée.