VBA crée une feuille et combiner text et formule
RésoluBonjour,
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
-
Contributeur
-
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
