Bonjour ŕ tous.

J'utilise un moyen de connection FTP pour transférer des fichiers.
J'utilise la déclaration private en haut de mon sub
Je fais clic droit sur mon fichier excel ouvrir avec --> Bloc note.

Et dans ses lignes de codes, j'ai encore mes identifiants qui apparaissent en clair.
Voici mon script :
Code : Sélectionner tout - Visualiser dans une fenętre ŕ part
1
2
3
4
5
6
7
8
9
10
11
12
Private identifiant_ftp As String
Private mdp_ftp As String
sub test_ftp()
 
'On envoi le fichier PDF au serveur distant
    identifiant_ftp = "id"
    mdp_ftp = "mdp"
    EnvoiVersFtp "www.monadresse.fr", "" & identifiant_ftp & "", "" & mdp_ftp & "", _
       "C:\Resultat\n\" & sNom & "", _
       "/www/resultats/", "" & sNom & ""
 
End sub
Comment faire ?
Comment fonctionne private ?