Call sub à la fermeture d'un formulaire

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

Bonjour Raymond C,

Pour qu'une procédure s'exécute à la fermeture du fichier ... il faut la placer dans ... "ThisWorkbook" ... "Workbook_BeforeClose" ...

Teste cela ...

ric

Salut ric,

j'ai fais ceci :


```
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call ftp

End Sub

```

Çà ne fonctionne pas

Bonjour Raymond C,

La procédure FTP est dans le module4 ... essai ainsi ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Module4.ftp
End Sub

ric