VBA crée une feuille et combiner text et formule

Résolu
ludocraft Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
ludocraft Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -

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

A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 

Bonjour,

 Voir ici
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

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
0
ludocraft Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 

je viens de tester celuit de cs_le_pivert avec les info donner je tombe sur ce que ccm81 ma donner sa marche pas mes quand je copie colle sa marche Ducoup merci a vous 2 :) 

0

Discussions similaires

Décalage de formule
nathan01983 -
via55 -

12 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses