Call sub à la fermeture d'un formulaire

[Raymond_C]

Bonjour à tous,

j’ai réalisé un formulaire de saisie qui génère un fichier que je voudrais enregistrer sur un serveur ftp.

J’ai écris un code qui fonctionne lorsque je l’exécute seul.

Private Sub CommandButton2_Click()
    Call ftp

End Sub

Par contre je voudrais appeler cette procédure lorsque je ferme le fichier.

Private Sub BtnExit_Click()
    ' Bouton Quitter formulaire

    Unload Ajout
    ' Sauvegarder fichier xls et Sauvegarder ProductsData.mod
    Sheets("ListeProduits").Visible = True
    Sheets("ProductsData").Visible = True
    Sheets("ProductsData").Select
    Sheets("ProductsData").Activate
'    Range("A1").Select
    Columns("A:A").EntireColumn.AutoFit
    Application.DisplayAlerts = False
    ChDir "C:\Test"
    ActiveWorkbook.SaveAs FileName:="C:\Test\ProductsData.mod", _
                          FileFormat:=xlTextPrinter, _
                          CreateBackup:=False
    Sheets("ProductsData").Select
    Sheets("ProductsData").Activate
'    Range("OrigineTableau").Select
    ActiveWorkbook.Save
    Sheets("SaisieListeProduits").Activate
    Call ftp
    ActiveWorkbook.Close
    Application.Quit
End Sub

J’ai essayé mais je n’y suis pas parvenu.

Une idée ?

Merci

Test Liste.xlsm (253,1 Ko)

[Mimimathy]

bonjour

@Raymond_C

Par contre je voudrais appeler cette procédure lorsque je ferme le fichier.

Quand on ferme un fichier et que l’on veut la gestion d’une macro,
on effectue une opération sur le ThisWorkbook( Before close)

[Raymond_C]

Salut Mimimathy,

j’ai fais ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Call ftp

End Sub

Çà ne fonctionne pas