Erreur d'execution '1004' sur un FTP

Fermé
Françoise - 19 août 2011 à 12:08
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 22 août 2011 à 08:19
Bonjour,

j'ai changé de version excel (de 2002 sp3 on est passé à 2003 sp3) et depuis j'ai un problème sur les transfert ftp :

Erreur d'execution '1004'
Microsoft Office Excel ne peut accéder au fichier :
" ftp://serveur/repertoire/nom_fic"

cette macro fonctionnait très bien en vesion 2002 et plus en version 2003.
par le ftp normal j'y arrive sans souci, sous macro non

manque t-il quelque chose à l'instal ?

Françoise
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
19 août 2011 à 12:23
Bonjour,
Dans :
" ftp://serveur/repertoire/nom_fic"
nom_fic est une variable?
Si oui alors il faut utiliser :
" ftp://serveur/repertoire/" & nom_fic
0
merci Pijaku pour ta réponse

voici mon code :
Workbooks.OpenText Filename:="ftp://CLST5" & monCode, Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

& monCode étant mon nom de fichier.

je penche de plus en plus vers un pb d'install car cette macro fonctionne bien avec ma version précédente.
l'inconvénient est que je ne trouve pas où le bat blesse ! (et cela me prend la tête !)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
Modifié par pijaku le 22/08/2011 à 08:19
Bonjour,
Essaye un simple :
Workbooks.OpenText Filename:="ftp://CLST5" & monCode
Attention toutefois à bien vérifier que tout, j'ai bien tout est bon dans la variable monCode.
Elle doit :
- être déclarée As String
- comporter tous les éléments du chemin, y compris le "/" qui doit suivre le nom de répertoire CLST5

exemple :
NE FONCTIONNE PAS :
Dim monCode As String 
monCode = "NomDuFichier.doc" 
Workbooks.OpenText Filename:="ftp://CLST5" & monCode

FONCTIONNE :
Dim monCode As String 
monCode = "NomDuFichier.doc" 
Workbooks.OpenText Filename:="ftp://CLST5" & "/" & monCode

Ok?
0