Message d'erreur de création d'onglet

Bonjour à tous,

Nous utilisions une macro VBA pour créer automatiquement des onglets à partir d'une liste.

Cette dernière fonctionnait très bien jusqu'à tout récemment.

En pièce jointe la macros et le message d'erreur.

quelqu'un a-t-il une idée pour contourner ce message d'erreur qui nous a obligé à cliquer OK une bonne 350taine de fois.

C'est sûr que dans le fichier que je vous envoie, la macro fonctionne à merveille

Mais peut-être que quelqu'un à une idée je dois regarder quoi.

Merci même si ce n'est pas trop clair

Bonne soirée

Bonjour,

Ta macro Sub TEST_AjouteFeuilles() fonctionne bien ici.

As-tu redémarré ta machine et tester par la suite ?

ric

Bonjour,

Bonjour Ric,

Pas de soucis non plus à l'exécution de la procédure.

J'ai cependant revu la procédure :

Sub TEST_AjouteFeuilles()
Dim Ws As Worksheet, i As Long
    Application.ScreenUpdating = False
    Set Ws = Worksheets("CA Macro")
    For i = 1 To Ws.Cells(Rows.Count, 1).End(xlUp).Row
        If Not FeuilleExiste(Ws.Cells(i, 1).Value) Then
            Worksheets("Modele").Copy after:=Worksheets(Worksheets.Count)
            With ActiveSheet
                .Name = Ws.Cells(i, 1).Value
                .Cells(2, 1).Value = ActiveSheet.Name
                '.UsedRange.Value = .UsedRange.Value ???
                .Tab.Color = 49407
            End With
        End If
    Next i
    Ws.Activate
End Sub
Function FeuilleExiste(Nom As String) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(Nom).Name <> ""
End Function

BOnjour,

Merci pour la réponse,

Je reviens de vacances, je jette un œil d'ici peu et je vous reviens. Nous testerons le changement.

PS.: Désolé pour le délai de réponse, j'ai vraiment décroché du boulot pendant quelques semaines.

Bonjour,

Bizarre comme message d'erreur.

L'onglet "Modèle" sur ton fichier original possède des "noms de formule"; des "noms de cellule" ??

Qu'est qui pourrait contenir un nom pareil ? "Z_384...… _wu.Cols ? la zone d'impression ?