XL 2019 Copie Valeur Feuille VBA

Et je souhaite qu'arrive dans cette feuil tout ce qu'il y a dans la feuil synthèse

Cliquez pour agrandir...

vgendron à dit:

VB:

Sub transferer()

jour = ActiveSheet.Range("A1")
NomFeuille = Format(jour, "mmmm yyyy")

If FeuilleExiste(CStr(NomFeuille)) Then
    MsgBox "la feuille existe déjà"
    Exit Sub
End If
ActiveWorkbook.Sheets("Synthèse").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


Function FeuilleExiste(NomFeuille As String) As Boolean

    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = NomFeuille Then
            FeuilleExiste = True
            Exit Function
        End If
    Next ws
End Function

Cliquez pour agrandir...

vgendron à dit:

La prochaine fois.. utilise l'enregistreur de macro pour avoir un début de code
et commence par mettre ton fichier dès le premier post..

Cliquez pour agrandir...