remplir automatiquement datatables d'une feuille à une feuille nommée après un mois en cours

Aidez-moi, je veux suivre les loggings quotidiens et mensuels de mon magasin, ma première feuille est l'endroit où j'ai enregistré tous les gains de la journée, j'ai fait un button de mise à jour qui transfère toutes datatables collectées en fin de journée à la les feuilles de travail suivantes, nommées d'après les mois.

Je l'ai fait avec succès le mois de juillet parce que je viens de taper le "Juillet" pour sélectionner la feuille de calcul où datatables seront transférées.

mais ce que je veux get est de sélectionner automatiquement la feuille de calcul en fonction du mois en cours, où les feuilles de calcul suivantes sont nommées d'après.

J'ai essayé des feuilles de calcul (format (maintenant, "mmm")). Sélectionnez

• Comment importer un document Excel par programme dans la table Azure SQL?
• Importer la barre d'adresse dans le browser vers Excel
• La macro pour plusieurs feuilles ne fonctionne pas correctement
• Le code VBA Excel to PPT Automation Écrit en Excel 2007 ne fonctionne pas dans Excel 2013
• Comment configurer une cellule Excel à la date actuelle à l'aide de VBA?

mais j'ai une erreur indiquant que je suis hors de scope

voici tout mon code:

Private Sub CommandButton1_Click ()

Si MsgBox ("Êtes-vous sûr?", VbYesNo, "Titre") = vbYes Then

Dim CtrlCDate As Ssortingng, CtrlCPSQty As Integer, CtrlCPSAmt As Integer, CtrlCPLQty As Integer, CtrlCPLAmt As Integer, CtrlCPQty As Integer, CtrlCPamt As Integer, CtrlCSQty As Integer, CtrlCSAmt As Integer, TC As Integer, TL As Integer, TS As Integer Worksheets("CTRLC Ops").Select CtrlCDate = Range("N3") CtrlCPSQty = Range("N6") CtrlCPSAmt = Range("O6") CtrlCPLQty = Range("N7") CtrlCPLAmt = Range("O7") CtrlCPQty = Range("N8") CtrlCPamt = Range("O8") CtrlCSQty = Range("N9") CtrlCSAmt = Range("O9") TC = Range("O10") TL = Range("O11") TS = Range("N13") Worksheets("July").Select Worksheets("July").Range("A3").Select If Worksheets("July").Range("A3").Offset(1, 0) <> "" Then Worksheets("July").Range("A3").End(xlDown).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = CtrlCDate ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPSQty ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPSAmt ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPLQty ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPLAmt ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPQty ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCPamt ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCSQty ActiveCell.Offset(0, 1).Select ActiveCell.Value = CtrlCSAmt ActiveCell.Offset(0, 1).Select ActiveCell.Value = TC ActiveCell.Offset(0, 1).Select ActiveCell.Value = TL ActiveCell.Offset(0, 1).Select ActiveCell.Value = TS Worksheets("CTRLC Ops").Select Worksheets("CTRLC Ops").Range("D1").Select 

Fin si

End Sub

PLS AIDEZ-MOI, j'ai essayé de faire des searchs mais je ne sais pas quelle partie est-ce que je me trompe.

• Un moyen efficace de charger des lignes excel dans une database?
• Excel VBA: fonctions personnalisées qui renvoient une gamme de données
• Recherche Excel sur plusieurs conditions
• Comment importer des données stockées Excel dans MySQL et conserver le format de la date comme aaaa-mm-jj hh: mm: ss
• Hyperliens Excel – Lien vers la rupture des files