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
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 Subhttps://www.cjoint.com/c/MKcrxhtM4HB
Ctrl+k pour lancer la macro
Cdlmnt
