Macro de création de pages nommées

Version imprimable

Bonjour,
Voici ma macro :
Code:

1 2 3 4 5 6 7 8 9 Public Sub CreatePage(nomPage As String) Dim x As Integer x = ActiveWorkbook.Application.Sheets.Count If (IsWorksheet(nomPage)) Then GoTo ExisteDeja Sheets.Add.Move After:=Sheets(x) Sheets(x + 1).Name = nomPage ExisteDeja: End Sub
Sachanque la fonction IsWorksheet(str As String) me renvoie un boolean pour savoir si une page portant déjà ce nom éxiste.

Et voilà, lorsque je lance ma fonction (mon classeur est vide) régulièrement (pas tout le temps), il me crée les pages en les nommant par défaut, c'est-à-dire par incrémentation : Feuil7; Feuil8; etc... (au lieu du nom spécifié en paramètre).
Y-t-il une ligne de code qui me permette de "raffraichir" les pages, que le document excel se remette en mémoire les pages qu'il possède?

Merci !

05/06/2014, 12h03
Marc-L

Bonjour,

avec un code incomplet, à part dire que mieux vaut travailler avec WorkSheets
et Goto obsolète depuis au moins 25 ans ‼ …

Bonjour, et merci pour ton aide utile :applo: .

Voici tout le code.

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
 
Public Sub Prep()
 
    Call CreatePage("FF1")
    Call CreatePage("FF2")
    Call CreatePage("FF3")
 
End Sub
 
Public Sub CreatePage(nomPage As String)
    Dim x As Integer
    x = ActiveWorkbook.Application.Sheets.Count
    If (IsWorksheet(nomPage) = False) Then
        Worksheets.Add.Move After:=Sheets(x)
        Worksheets(x + 1).Name = nomPage
    End If
End Sub
 
Public Function IsWorksheet(strName As String) As Boolean
   Dim objWorksheet As Worksheet
   IsWorksheet = False
   For Each objWorksheet In ActiveWorkbook.Worksheets
      If objWorksheet.Name = strName Then
         IsWorksheet = True
         'MsgBox "La Feuille " & strName & " existe déjà"
      End If
   Next
End Function

05/06/2014, 15h51
Marc-L

Pour rappel, la qualité des réponses dépend de celle de la présentation initiale.
Et quand cette dernière est incomplète … What did you expect ?‼

Où est localisé précisément le code ?

Quant à la fonction IsWorksheet, mis à part l'inutilité de boucler sur toutes les feuilles,
peut être remplacée en une ou deux lignes de codes, le contrôle portant uniquement sur le classeur actif,
est-ce cohérent avec le classeur où sont créées les feuilles ?

Car dans le code le classeur n'est pas précisé lors de la création des feuilles …

Sinon reste à suivre le code en mode pas à pas via la touche F8 pour trouver la source du problème …