Pb création de page [Résolu]

[prisci2785]

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 :

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.

[carden752]

Bonjour,

Le End For ne devrait pas se trouver dans le IF?
Tu fais deux fois de suite ajouter une feuille si elle existe déjà et elle ne peut pas la deuxième être renommée avec le même nom.

Code :

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
 
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
'Suppression si la feuille Mois existe
For Each Wsh In ActiveWorkbook.Worksheets
    If Wsh.Name = Mois Then
        Wsh.Delete
         Exit For
    End If 
Next
Application.DisplayAlerts = True
'Création de la nouvelle feuille Mois
Sheets.Add
ActiveSheet.Name = Mois

[prisci2785]

Cela ne fonctionne toujours pas.
J'ai ce message d'erreur : "Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur référencé par Visual Basic"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each Wsh In ActiveWorkbook.Worksheets
    If Wsh.Name = Mois Then
        Wsh.Delete
        Sheets.Add
        ActiveSheet.Name = Mois
       Exit For
    End If
 
Next
Application.DisplayAlerts = True
Sheets.Add
ActiveSheet.Name = Mois
ActiveWorkbook.Save

Le code ActiveSheet.Name = Mois situé après le Next crée un bug (surlignage en jaune)

[ZebreLoup]

Applique le code de carden752, tu as remis l'ajout de deux fois la feuille avec le même nom.

[prisci2785]

Ah oui. Merci. J'avais pas vu toutes les modifs à faire.