Discussion :

[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.

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

[EricDgn]

Bonjour,

A tester, remplacer les dernières lignes de Sub ftp() par ceci:

Code :

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

1
2
3
4
5
Sub ftp()
    ' ... ...
    'annoncer le résultat de l'opération
    MsgBox résult, , "Pour info"
End Sub

et regarder ce que cela donne.

Cordialement.