Bonjour à tous
Je possède le code pour ajouter une feuille, mais le problème c'est que le code "Plante" souvent à cet endroit.
C'est à dire que des fois le code fonctionne parfaitement sans problème, et d'autres fois il m'affiche ("La méthode add de l'objet sheet a échoué")

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
While (Not regions.EOF)
        ligne = ligneDebut
        If (nbRegion > 3) Then
            appExcel.Sheets.Add After:=Sheets(Sheets.Count) <--ICI
        End If
        appExcel.Sheets(nbRegion).Name = regions("nomPROVINCE")
        appExcel.Sheets(nbRegion).Activate
        ...
Si vous avez un bout de code qui pourrait remplacer celui-ci, et ou si vous savez quel est le problème avec celui-ci écrivez moi le

Maryse