Aleger Macro pour collect Datas via Ftp

Bonjour,

J'ai une Macro bien chargé inutillement, en effet pour chaque lien ftp j'ai crééer une macro

Avec cette commande :

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;ftp://root:Hiperlion@77.44.1763.2410.963.78.8542/usr/tec/sys.Activity/RH/DERM_machine.log.db", _
        Destination:=Range("$A$2"))

Maintenant je voudrai le basculé sur

f$ = Application.GetOpenFilename

Simplement je n'arrive pas à avoir la bonne tabulation pour que f$ s'associe au contenu d'une cellule et l'ouvre automatiquement

par exemple sur feuil2 F3

Merci de votre Aide

Daniel

Bonjour,

Je ne pense pas que GetOpenFilename soit prévu pour des serveurs ftp.

C'est pour des fichiers sur lecteurs locaux ou sur réseau local.

eric

Comment procéder aux Mieux ?

Daniel

Alors là aucune idée.

Ce n'est pas un domaine que je maitrise, je serai peut-être contredit.

Mais tu ne peux pas conserver ton QueryTables.Add et rendre variable la partie adresse ?

Merci Eriiic

j'ai rendu variable mon adresse

Maintenant j'ai une autre question, mon fichier est un .db et non un .txt

est ce que la fonction TEXT est pproprié ?

"TEXT;ftp://root:Hiperlion@77.44.1763.2410.963.78.8542/usr/tec/sys.Activity/RH/DERM_machine.log.db"

Cordialement

Daniel

Désolé, je ne saurais pas te répondre.

Teste avec ODBC, si tu n'as rien c'est que TEXT est très bien

https://msdn.microsoft.com/fr-fr/library/office/ff837764.aspx

eric

Merci Eric...

Je persèvere et reviendrai sur le forum pour la soluce

Bonsoir,

77.44.1763.2410.963.78.8542 ne me semble pas une adresse valable. confirmes-tu que tu obtiens un résultat en A2 avec l'instruction

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;ftp://root:Hiperlion@77.44.1763.2410.963.78.8542/usr/tec/sys.Activity/RH/DERM_machine.log.db", _
Destination:=Range("$A$2"))