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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub CommandButton2_Click()
    Call ftp
 
End Sub
Par contre je voudrais appeler cette procédure lorsque je ferme le fichier.

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
18
19
20
21
22
23
24
25
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