Discussion :

[lcoder]

bonjour,
j ai creer une macro qui creer une feuille par semaine de 1 à 52 et qui insert des données à l'interieur.
La plupart du temps la creation des feuilles fonctionnent mais dans d'autre ça plante et j obtiens le message suivant :

erreur 1004:
la methode Copy de la classe Worksheet a echoué.

alors qu'il m a deja creer 15 à 20 feuilles ...

je me demandait si ca ne pouvait pas venir du nom de la nouvelle feuille creer : feuil+numero (ex: feuil10)
qui s'incremente a chaque creation.

comment puis je faire pour resoudre mon probleme !

merci d'avance

[Vesta]

Il faudrait vraiment cibler le probleme;.. C'est un peu vague... Donne nous un bout de code.. je ne sais pas moi.?

[lcoder]

voici le code qui genere des page vides... en copiant une feuille modele
( pour conserver la mise en forme...)

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
 
Dim i As Integer
Dim sem As String
 
For i = 1 To 52
sem = CStr(i)
fexiste = feuilleexiste(sem)
            If fexiste = False Then
                'ajout d'une feuille
                Sheets("Modèle").Select
                Sheets("Modèle").Copy Before:=Sheets(1)
                Sheets("Modèle (2)").Select
                Sheets("Modèle (2)").Name = sem
            End If
Next

et donc dans certain cas ... j obtiens une erreur

erreur 1004:
la methode Copy de la classe Worksheet a echoué.
...

[Vesta]

Elle en crée 52 c ca?

J'ai testé et ca a l'aire de fonctionner chez moi faudrait voir pourquoi il s'arrete,...

Je vois pas d'erreur comme ca.. Tu ne fais rien d'autre dans cette fct au niveau de la copie? Tes feuilles modeles sont bien nommées?
Il faudrai savoir pourquoi ca foire...

[Vesta]

Peu etre ca...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim i As Integer
Dim sem As String
For i = 1 To 52
sem = CStr(i)
fexiste = False
            If fexiste = False Then
                'ajout d'une feuille
 
                Sheets("Modèle").Copy Before:=Sheets(1)
                Sheets(1).Name = sem
            End If
Next

[zazaraignée]

J'ai testé ton code chez moi (et j'ai du ajouter la fonction feuilleexiste) et ça marche sans problèmes, si ce n'est que les feuilles sont créées dans un ordre un peu loufoque...

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
Sub ajouterFeuille()
    Dim i As Integer
    Dim sem As String
 
    For i = 1 To 52
    sem = CStr(i)
    fexiste = feuilleexiste(sem)
                If fexiste = False Then
                    'ajout d'une feuille
                    Sheets("Modèle").Select
                    Sheets("Modèle").Copy Before:=Sheets(1)
                    Sheets("Modèle (2)").Select
                    Sheets("Modèle (2)").Name = sem
                End If
    Next
End Sub
 
Function feuilleexiste(nom As String) As Boolean
    Dim f As Worksheet
    Dim b As Boolean
    b = False
    For Each f In ThisWorkbook.Worksheets
        If f.Name = nom Then
            b = True
            Exit For
        End If
    Next
    feuilleexiste = b
End Function

Si on remplace cette ligne

Code :

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

Sheets("Modèle").Copy Before:=Sheets(1)

par

Code :

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

Sheets("Modèle").Copy After:=Sheets(Sheets.Count)

les feuilles sont ajoutées à la fin.

[lcoder]

oui mon code fonctionne ... aux premiers lancement, (2 ou 3 fois de suite...)
mais ca plante au bout d'un moment si on efface les feuilles creer et qu'on relance la macro.

en faisant cette action a plusieurs reprise ... ca fini par planté ...

[Vesta]

Tu as peu etre une erreur dans ta fonction feuilleexiste...

Zaza t'a donné un très bon code pour ca...
Essaie...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function feuilleexiste(nom As String) As Boolean
    Dim f As Worksheet
    Dim b As Boolean
    b = False
    For Each f In ThisWorkbook.Worksheets
        If f.Name = nom Then
            b = True
            Exit For
        End If
    Next
    feuilleexiste = b
End Function

[lcoder]

voila le code de ma fonction feuille existe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function feuilleexiste(SheetName) As Boolean
 
Dim obj As Object
 
On Error Resume Next
Set obj = ActiveWorkbook.Sheets(SheetName)
feuilleexiste = True
 
If Err <> 0 Then
    feuilleexiste = False
End If
 
End Function

cette fonction marche bien et le probleme se produit meme quand il n y a aucune feuille ... et s'arrete à al feuille 12 ou 13 ...
c'est bizarre ...

[Vesta]

Ta fonction devrai marcher, mais celle de Zaza est plus disons catholique lol

Joint ton fichier ca sera plus simple.