Onglet [Résolu]

Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Statut
Membre
Dernière intervention
26 juillet 2011
- - Dernière réponse : jordane45
Messages postés
25762
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 juin 2019
- 29 nov. 2010 à 13:47
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
25762
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 juin 2019
312
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 126 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jordane45
Messages postés
25762
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 juin 2019
312
0
Merci
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
Commenter la réponse de jordane45
Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Statut
Membre
Dernière intervention
26 juillet 2011
0
Merci
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 ...
:( ?
Commenter la réponse de RichRich59