Discussion :

[grego57]

bonsoir,

je me présente je m'appelle Grégory, je suis nouveau sur le site, je me permets de créer cette discussion pour avoir des informations et de l'aide

j'ai créer une page excel pour faciliter un inventaire dans ma caserne, cette page se compose de croix à mettre dans oui ou non et de rentrer un nom de la personne qui à fait l'inventaire.
une fois l'inventaire fini j'ai créer un bouton enregistrer.

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
End Sub
 
Private Sub en_Click()
NomF = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=NomF & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = False
 
 
End Sub

par contre lorsque je clique dessus je dois chercher le dossier ou l'enregistrer et mettre le nom. je voudrais votre aide, car je voudrais lorsque je clique sur le bouton enregistrer le page s'enregistre automatiquement avec la date du jour dans le dossier défini par moi même.


je vous remercie d'avance pour votre aide
Grégory.

[ARTURO83]

Bonjour,

Ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    ActiveSheet.Copy
    NomF = Application.GetSaveAsFilename
    If NomF <> Faux Then
        Nom = NomF & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ".xlsx"
        ActiveWorkbook.SaveAs Filename:=Nom
    Else
        ActiveWorkbook.Close
    End If
End Sub

Cdlt