Sujet Précédent Sujet Suivant

VBA crée une feuille et combiner text et formule

Résolu
ludocraft Messages postés 24 Date d'inscription dimanche 4 avril 2021 Statut Membre Dernière intervention 2 novembre 2023 - 2 nov. 2023 à 16:32
ludocraft Messages postés 24 Date d'inscription dimanche 4 avril 2021 Statut Membre Dernière intervention 2 novembre 2023 - 2 nov. 2023 à 20:58

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 nov. 2023 à 17:01

Bonjour,

 Voir ici
0
Réponse 2 / 2
ccm81 Messages postés 10859 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 15 mai 2024 2 406
2 nov. 2023 à 18:25

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 dimanche 4 avril 2021 Statut Membre Dernière intervention 2 novembre 2023
2 nov. 2023 à 20:58

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

je veut créer des codes
jonkiller -
Nhhi -

20 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
exo pix
Xtyller -
Raymond PENTIER -

2 réponses
créer une adresse gmail pour une autre personne
Emma33000 -
Emma33000 -

2 réponses