VBA crée une feuille et combiner text et formule
Résolu
ludocraft
Messages postés
24
Statut
Membre
-
ludocraft Messages postés 24 Statut Membre -
ludocraft Messages postés 24 Statut Membre -
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:
- VBA crée une feuille et combiner text et formule
- Formule si et - Guide
- Cree un compte google - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Excel combiner texte et formule - Guide
2 réponses
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