Bonjour,
J'ai écrit la macro suivante :
Private Sub xxxx()
For Each feuille In Worksheets
tmp = feuille.Name
If InStr(tmp, "Poste_") = 1 And Len(tmp) > 6 Then
delete_sheet feuille.Name
End If
Next
For poste_ref = 1 To 10
nb = Sheets.Count
Worksheets("Poste base").Copy After:=Worksheets(1)
Sheets(nb + 1).Select
ActiveSheet.Name = "Poste_" & poste_ref
Next
End Sub
elle est censée supprimer toutes les feuilles dans le nom commence pae Poste_ et va copie la feuille "Poste base" en Poste_1 Pose_2 .....
Si je l'exécute la première fois ça fonctionne. Mais dès que je l'éxécute plusieurs fois j'ai le message
La méthode Copy de la classe Worksheet a échoué
Si j'enregistre le fichier, je quitte excel, j'ouvre à nouveau le fichier, ça fonctionne uniquement à la première exécution.
Avez vous eu ce problème
Pour info je travaille avec la version 2003
Merci
J'ai écrit la macro suivante :
Private Sub xxxx()
For Each feuille In Worksheets
tmp = feuille.Name
If InStr(tmp, "Poste_") = 1 And Len(tmp) > 6 Then
delete_sheet feuille.Name
End If
Next
For poste_ref = 1 To 10
nb = Sheets.Count
Worksheets("Poste base").Copy After:=Worksheets(1)
Sheets(nb + 1).Select
ActiveSheet.Name = "Poste_" & poste_ref
Next
End Sub
elle est censée supprimer toutes les feuilles dans le nom commence pae Poste_ et va copie la feuille "Poste base" en Poste_1 Pose_2 .....
Si je l'exécute la première fois ça fonctionne. Mais dès que je l'éxécute plusieurs fois j'ai le message
La méthode Copy de la classe Worksheet a échoué
Si j'enregistre le fichier, je quitte excel, j'ouvre à nouveau le fichier, ça fonctionne uniquement à la première exécution.
Avez vous eu ce problème
Pour info je travaille avec la version 2003
Merci