Onglet [Résolu]

Signaler
Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Statut
Membre
Dernière intervention
26 juillet 2011
-
jordane45
Messages postés
27588
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2020
-
Bonjour,
J'ai un classeur avec un modele.
J'actualise les données de maniere mensuel.
et je renomme l'onglet en fonction du mois.
Cependant lorsque j'execute ce code deux fois dans le mois, l'onglet porte le même nom.

Pourriez vous me dire comment faire pour soit si l'onglet existe rajouter +1 a l'onglet

Ou comment enregistree l'onglet avec le bon nom en ne gardant que la derniere version...

Merci

Sub SauvegardeParMois()
Sheets("Modèle").Select
Sheets("Modèle").Copy Before:=Sheets(1)
Cells.Select
Range("E14").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Name = Range("A38").Value
End Sub

3 réponses

Messages postés
27588
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2020
323
Bonjour,
comment faire pour soit forcer l'enregistrement, ou créer un onglet +1


Si ta feuille n'existe pas.. alors tu fais ton code "normal".
Si elle existe , tu fais ton coller et pour le nom de la feuille (si tu veux y ajouter un 1 à la fin..) tu fais :
ActiveSheet.Name = Range("A38").Value  & "1" 


Et sur l'autre sujet, tu ne me répond plus

Si si

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
Messages postés
27588
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2020
323
Bonjour,

Tu peux utiliser une fonction pour savoir si une feuille portant ce nom existe déjà ou non :
Function SheetExists(SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
End Function


Pour faire, le test (par exemple):
If SheetExists("Ma_Feuille") = True then
 ' Si la feuile existe ...
 MsgBox "La feuille existe déjà"
Else
' Sinon...
MsgBox "La feuille n'existe pas"
End If




Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Statut
Membre
Dernière intervention
26 juillet 2011

D'accord, mais comment faire pour soit forcer l'enregistrement, ou créer un onglet +1...
Et sur l'autre sujet, tu ne me répond plus ...
:( ?