VBA crée une feuille et combiner text et formule Résolu/Fermé

Question

Bonjour,

bien le bonjour,

je voudrais crée une macro qui copie une feuille qui la renomme  récapitulatif du (et la date du jour)

avec le temps j'ai fait sa

Sub ValidationMensuel()

'   declaration variable
        Dim varDate As Date
        varDate = Date
        
'   copier feuille
        Sheets("récapitulatif").Select
        Sheets("récapitulatif").Copy After:=Sheets(6)
'   renomer feuille crée
        Sheets("récapitulatif (2)").Select
        'Sheets("récapitulatif (2)").Name = "récapitulatif date"
        Sheets("récapitulatif (2)").Name = varDate
        
'   copie des donnée feuille donnée => récapitulatif
'   Worksheets("Feuille2").Range("A1").Value = Worksheets("Feuille1").Range("A1").Value
'
'

MsgBox varDate
'

End Sub

mes sa marche pas

j'ai une erreur

(erreur d'exécution 1004

vous avez tapé un nom de feuille ou de graphique non  valide. Vérifiez les points suivants :

le nom ne dépasse pas 31 caractères.

le nom ne contient aucun des caractères suivants :/\,*[]

quand je tape MsgBox varDate

02/11/2023

donc je pence que le problème est le caractère /

y a t'il en moyen de passer sa ou alors remplacer 02/11/2023 par 02 novembre 2023

merci d'avance

Windows / Chrome 118.0.0.0

cs_Le Pivert · Answer

Bonjour,

Voir ici

ccm81 · Answer

Bonjour

Sub ValidationMensuel()
'   declaration variable
        Dim varDate As String
        varDate = Format(Date, "dd_mm_yyyy")
'   copier feuille après la dernière feuille
        Sheets("récapitulatif").Select
        Sheets("récapitulatif").Copy After:=Sheets(Sheets.Count)
'   renomer feuille crée
        ActiveSheet.Name = varDate
' suite ....
End Sub

https://www.cjoint.com/c/MKcrxhtM4HB

Ctrl+k pour lancer la macro

Cdlmnt

VBA crée une feuille et combiner text et formule

2 réponses

Discussions similaires