Onglet [Résolu]

RichRich59
Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Dernière intervention
26 juillet 2011
- 29 nov. 2010 à 11:26 - Dernière réponse : jordane45
Messages postés
23236
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
15 novembre 2018
- 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 

Votre réponse

3 réponses

Meilleure réponse
jordane45
Messages postés
23236
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
15 novembre 2018
- 29 nov. 2010 à 13:47
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

Merci jordane45 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de jordane45
jordane45
Messages postés
23236
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
15 novembre 2018
- 29 nov. 2010 à 12:01
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
RichRich59
Messages postés
35
Date d'inscription
jeudi 23 septembre 2010
Dernière intervention
26 juillet 2011
- 29 nov. 2010 à 13:05
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.