transfert FTP

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à mon
besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de passe
et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien ne
fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur et
rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le but)
If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur
sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la session
ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande ftp


End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à mon
besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de passe
et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien ne
fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur et
rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le but)
If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur
sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la session
ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande ftp


End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à mon
besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de passe
et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien ne
fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur et
rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le but)
If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur sur
le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent être
saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la session
ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que l'on
vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande ftp


End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

Bonjour
Que veux tu faire ?
récupérer un fichier sur le serveur ou mettre un fichier en ligne ?
La macro originale sert à transférer un fichier depuis ton PC sur le
serveur ce que tu sembles vouloir...
Alors pourquoi chager le pu en get ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 03/12/2004 13:54:

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à
mon

besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de
passe

et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien
ne

fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur
et

rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le
but)

If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur
sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la
session

ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande
ftp

End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

Salut

mon but est bien de mettre un fichier que excel genere sur mon serveur
ftp.

Tu voudrais dire que le get sert à envoyer le fichier sur le serveur et
que

je me serai trompé en lisant trop vite le commentaire?

merci.

"Misange" <misange@devinez-ou.net> a écrit dans le message de
news:%23K%23l%23pX2EHA.3392@TK2MSFTNGP10.phx.gbl...

Bonjour
Que veux tu faire ?
récupérer un fichier sur le serveur ou mettre un fichier en ligne ?
La macro originale sert à transférer un fichier depuis ton PC sur le
serveur ce que tu sembles vouloir...
Alors pourquoi chager le pu en get ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 03/12/2004 13:54:

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à
mon

besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de
passe

et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais
rien

ne

fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur
et

rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le
but)

If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id
utilisateur

sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de
passe,

toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la
session

ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande
ftp

End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

Bonjour
Que veux tu faire ?
récupérer un fichier sur le serveur ou mettre un fichier en ligne ?
La macro originale sert à transférer un fichier depuis ton PC sur le
serveur ce que tu sembles vouloir...
Alors pourquoi chager le pu en get ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 03/12/2004 13:54:

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à
mon

besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de
passe

et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien
ne

fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur
et

rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le
but)

If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur
sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la
session

ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande
ftp

End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________

un tas de méthodes pour transférer des fichiers sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#transfert_ftp



"Elicend_News" <inconicoAfreePOINTfr> a écrit dans le message de news:
41b07133$0$4219$636a15ce@news.free.fr...

Bonjour
sur Excel labo j'ai trouvé cette source qui répondrait parfaitement à
mon

besoin ! Je l'ai modifiée pour qu'elle saisisse elle meme mon mot de
passe

et mon identifiant sur free ce qui donne la macro en fin de message.
j'ai changé l'instruction get en put pour envoyer le fichier et non le
recevoir, j'ai mis ftpperso.free.fr ou ftp://ftpperso.free.fr mais rien
ne

fonctionne.
Le pb c'est que comme l'auteur le dis, il n'y a aucun message d'érreur
et

rien ne se passe : je n'obtiens aucun fichier chez free...

quelqu'un apercoit il une erreur dans ma modification ?

d'avance merci!

Private Sub OK_Btk_Click()

' contrôles d'usage (pas vraiments poussés ici, mais là n'est pas le
but)

If Origine = Empty Then
MsgBox "Nom fichier origine invalide"
End If

If IP = Empty Then
MsgBox "Adresse ip invalide"
End If

If Destination = Empty Then
MsgBox "Nom fichier destination invalide"
End If

' recherche du répertoire "temp"
' attention faire référence à Mricrosoft Scripting Runtime dans
Outils/Références
Set fso = CreateObject("Scripting.FileSystemObject")
Repert_Temp = fso.GetSpecialFolder(TemporaryFolder)

' Ouverture du fichier texte qui contient les instructions ftp
Open Repert_Temp & "transfert.txt" For Output As #1

' Mise en place des instructions
Print #1, TextBox1.Value '"USER nom_utilisateur" ' Id utilisateur
sur

le site distant
Print #1, TextBox2.Value '"mot_de_passe" ' mot de passe,
toujours sur la ligne 2 après l'ID
' Bien sur ces données peuvent
être

saisies sur le formulaire

' ensuite les instructions ftp normales
Print #1, "put " & Origine & " " & Destination ' mise en forme de
l'instruction get ou put
Print #1, "quit" ' Fermeture de la
session

ftp

' Fermeture du fichier texte
Close #1

' Lancement de la commande ftp qui fait référence au fichier texte que
l'on

vient de créer
Exec = Shell("ftp -v -n -s:" & Rep_Temp & "transfert.txt " & IP, 1)
' attention, pas de message d'erreur en cas de plantage de la commande
ftp

End Sub
________________________

Attention adresse e-mail :
inconicoAfreePOINTfr
A = @
POINT = .
________________________