Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic ADO, Serveur UNIX et fichiers plats

ADO, Serveur UNIX et fichiers plats

1 réponse
Avatar
MOUSPI
Bonjour,



Ces fichiers texte (.txt) étant stockés sur un serveur UNIX (dans un réseau
local); je les transfère d'abord par ftp dans l'environnement Windows, puis
le code ci-dessous me permet de les importer dans un classeur EXCEL :



' Create the connection string.

szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & dTextSource & ";" & _

"Extended Properties=""Text;HDR=No"""



' Create the SQL statement.

szSQL = "SELECT * FROM " & fTextSource & " ;"



Set rsData = New ADODB.Recordset

rsData.Open szSQL, szConnect, adOpenForwardOnly, _

adLockReadOnly, adCmdText



sExcelCible.Range("A1").CopyFromRecordset rsData



Quelqu'un saurait-il comment coder le Data Source de la chaîne de connexion
pour que celle-ci pointe directement sur le répertoire UNIX (et m'éviter
ainsi la phase ftp)?



Merci de vos lumières



Mouspi
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christine HENNEQUIN
Pour faire cela, il faut que ton système UNIX accepte les partages réseaux
compatibles Windows

Je crois que c'est le role de SAMBA ou qqch comme ça

"MOUSPI" a écrit dans le message de news:
OQDH$
Bonjour,



Ces fichiers texte (.txt) étant stockés sur un serveur UNIX (dans un


réseau
local); je les transfère d'abord par ftp dans l'environnement Windows,


puis
le code ci-dessous me permet de les importer dans un classeur EXCEL :



' Create the connection string.

szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & dTextSource & ";" & _

"Extended Properties=""Text;HDR=No"""



' Create the SQL statement.

szSQL = "SELECT * FROM " & fTextSource & " ;"



Set rsData = New ADODB.Recordset

rsData.Open szSQL, szConnect, adOpenForwardOnly, _

adLockReadOnly, adCmdText



sExcelCible.Range("A1").CopyFromRecordset rsData



Quelqu'un saurait-il comment coder le Data Source de la chaîne de


connexion
pour que celle-ci pointe directement sur le répertoire UNIX (et m'éviter
ainsi la phase ftp)?



Merci de vos lumières



Mouspi