Crée Fichier pour chaque moi avec onglet jour

Bonjour à tous,

Merci déja pour prendre le temps de m'aider,

Je m'occupe d'un bar, et pour l'instant j'ai une matrice de caisse, qui me permet de rentrer mes espèce mes CB et qui soustrait mon fond de caisse pour avoir mon chiffre d'affaire journalier (ci joint le fichier) .

Ce que j'aimerai c'est d'avoir toutes mes fiche de caisse dans un onglet différent qui porterai la date du jour, un fichier par mois.

J'ai déja essayer pas mal de code qui permet de crée des onglets avec la date du mois mais je n'ai pas trouver comment copier ma matrice sur 30 ou 31 onglet, sachant que je suis ouvert tout les jours sauf rare exception, comment crée d'avance tout mes fichier de l'année ?

Pouvez vous m'aider ?

Cordialement,

Stéphane

Bonjour,

Avec un tout nouveau fichier, tu peux tester le code suivant

Sub ConstruireMois()
    Dim J As Integer
    Dim K As Integer
    Dim sDay As String
    Dim sTemp As String
    Dim iTarget As Integer
    Dim dBasis As Date

    iTarget = 13
    While (iTarget < 1) Or (iTarget > 12)
        iTarget = Val(InputBox("Merci de saisir le Mois: 1 pour Janvier, 2 pour Février, etc ..."))
        If iTarget = 0 Then Exit Sub
    Wend

    Application.ScreenUpdating = False
    sTemp = Str(iTarget) & "/1/" & Year(Now())
    dBasis = CDate(sTemp)

    For J = 1 To 31
        sDay = Format((dBasis + J - 1), "dddd dd-mm-yyyy")
        If Month(dBasis + J - 1) = iTarget Then

            If J <= Sheets.Count Then
                If Left(Sheets(J).Name, 4) = "Feuil" Then
                    Sheets(J).Name = sDay
                Else
                    Sheets.Add.Move after:=Sheets(Sheets.Count)
                    ActiveSheet.Name = sDay
                End If
            Else
                Sheets.Add.Move after:=Sheets(Sheets.Count)
                ActiveSheet.Name = sDay
            End If
        End If
    Next J

    For J = 1 To (Sheets.Count - 1)
        For K = J + 1 To Sheets.Count
            If Right(Sheets(J).Name, 10) > _
              Right(Sheets(K).Name, 10) Then
                Sheets(K).Move Before:=Sheets(J)
            End If
        Next K
    Next J

    Sheets(1).Activate
    Application.ScreenUpdating = True
End Sub

J'espère que cela t'aidera ...

Bonjour à tous,

une suggestion james :

si le mois demandé est inférieur au mois en cours créer sur l'année suivante.

Ca éviterait de devoir attendre le 01/01 pour avoir janvier

eric

bonjour à tous

pourquoi faire un onglet par jour ? pour imiter les fiches de papier ?

une gestion de caisse (entrées/sorties) en informatique se fait sur un unique onglet, le même durant des années. Il sera long, on te le souhaite.

en colonne A tu mets la date, en B le montant+, en C le montant -, en E le type de règlement (espèces, CB...), en F la banque (si retrait ou dépot) etc.

ensuite Excel te propose tout un tas d'outils pour faire des vues de bilans par jour, mois, années etc. et tous les comparatifs que tu veux.

un des plus puissants et très facile et tout automatique ce sont les TCD.

Bonjour à tous

Une autre proposition, à tester.

Bye !

James007 a écrit :

Bonjour,

Avec un tout nouveau fichier, tu peux tester le code suivant

J'espère que cela t'aidera ...

Merci James pour ton aide, mais ton code me renvoie une erreur "Division par Zéro"

Celà vient peut étre de ma version d'excel je suis sur la version 2011 mac

Cordialement,

Stéphane

jmd a écrit :

bonjour à tous

pourquoi faire un onglet par jour ? pour imiter les fiches de papier ?

une gestion de caisse (entrées/sorties) en informatique se fait sur un unique onglet, le même durant des années. Il sera long, on te le souhaite.

en colonne A tu mets la date, en B le montant+, en C le montant -, en E le type de règlement (espèces, CB...), en F la banque (si retrait ou dépot) etc.

ensuite Excel te propose tout un tas d'outils pour faire des vues de bilans par jour, mois, années etc. et tous les comparatifs que tu veux.

un des plus puissants et très facile et tout automatique ce sont les TCD.

J'ai un comptable à l'ancien qui ne prend que du papier c'est juste pour que ce soit plus lisible pour lui, et aussi par mes employer

gmb a écrit :

Bonjour à tous

Une autre proposition, à tester.

Bye !

Merci pour ton aide, j'aime bien le principe, mais je souhaiterai avoir un bouton qui me permettrai de crée le mois entier, pour mes employer.

Cordialement,

Stéphane

Bonjour à tous

GrimFTW a écrit :

... je souhaiterai avoir un bouton qui me permettrai de crée le mois entier, pour mes employer.

Nouvel essai :

Bye !