[VBA-E]probleme lors de la creation de feuille

Version imprimable

13/06/2006, 17h03
lcoder

[VBA-E]probleme lors de la creation de feuille

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
13/06/2006, 17h09
Vesta

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

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

Code:

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é.
...

13/06/2006, 17h33
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...

Peu etre ca...

Code:

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

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:

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:

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

par

Code:

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

les feuilles sont ajoutées à la fin.

14/06/2006, 08h20
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é ...

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

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

Code:

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

voila le code de ma fonction feuille existe
Code:

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 ...

15/06/2006, 19h51
Vesta

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

Joint ton fichier ca sera plus simple.