Discussion :

[Florian17000]

Bonjour,

Je ne m'y connais pas du tout dans les macros, VBA, etc. Je travaille en hôtellerie et à mon ancien travail, un collègue avait créé une macro pour enregistrer le fond de caisse. Je m'explique.
Il avait créé un bouton sur Excel pour sauvegarder le document qui s'enregistrait tout seul avec un petit pop-up genre "la caisse est enregistrée" (vive la magie haha) à une date précise (ex : il y avait un fichier 2024, puis un fichier par mois de l'année et si on était le 08 juin, le document s'enregistrait en juin) et le fichier se renommait automatiquement avec la date du jour et si c'était le service du matin, soir ou nuit. Puis ce document se fermait automatiquement et lorsqu'on le réouvrait c'était de nouveau vierge.

J'aimerai faire ça à mon nouveau travail mais j'avoue que c'est un peu galère... Si quelqu'un peut m'aider ça serait avec plaisir !!!!

Merci beaucoup et belle journée,

Florian

[deedolith]

Salut,

Heu ...
C'est extrêmement flou.
Pour te répondre, il faut connaitre exactement les données manipulées, les fonctionnalités attendues ect ...
Bref, une expression du besoin en bon et due forme.

De plus, selon la taille du projet, il faudra peut être envisager de t'adresser à un free-lance.

[Florian17000]

test.xlsm

Je ne sais pas si le dossier est visible.

Le but est lorsqu'on clique sur le bouton "enregistrer", le document s'enregistre dans un fichier de l'année et du mois en cours. Le nom du fichier se met automatiquement à la date du jour avec le type de service (matin, soir ou nuit). On reçoit un pop-up disant "La caisse est bien enregistrée" et le document se ferme automatiquement.

[deedolith]

Quelque chose comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Dim Ws As Excel.Worksheet
    Set Ws = ThisWorkbook.Worksheets("Feuil1")
 
    Dim Service As String
    Services = Ws.Range("F5").Value
 
    Dim Path As String
    Path = "M:\Ouistreham\OUISTREHAM - HOTEL\Florian\Caisse\"
    Path = Path & Format(Date, "dd/mm/yyyy") & " - " & Service & ".xlsm"
 
    Dim DisplayAlerts As Boolean
    DisplayAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Path, xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = DisplayAlerts
 
    MsgBox "La caisse est bien enregistrée", vbOKOnly Or vbInformation, "Enregistrement terminé"

[Florian17000]

Je retourne à l'hôtel, j'essaie et te dis ça !

[Florian17000]

Il me met : "Erreur d'exécution '1004' :
La méthode 'saveas' de l'objet '_wortbook' a échoué