Avec la macro ci-dessous, je récupère les données d'un fichier Excel.
Cela fonctionne.
Afin de récupérer les données de plusieurs fichiers d'un même dossier,
je cherche à introduire des variables dans la ligne de code suivante:
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`")
et je n'y arrive pas avec mes lignes en commantaire.
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
Array(Array("ODBC;DBQ=R:\SCH\POOL\VGL_AT\STERN_SCHWEIZ;DefaultDir=R:\SCH\POOL\VGL_AT\STERN_SCHWEIZ;Driver={Driver
da Microsoft para arquivos text"), _
Array("o (*.txt;
*.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSy"),
_
Array("nc=Yes;")), Destination:=Range("A1"))
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`")
' .CommandText = quoi
x = "2007_Stern_aubertje.csv" .CommandText = Array("SELECT * FROM `" & x & "`")
JB
On 14 août, 11:48, "Jean-François Aubert" <à wrote:
Salut à toutes et à tous,
Avec la macro ci-dessous, je récupère les données d'un fichier Exce l. Cela fonctionne.
Afin de récupérer les données de plusieurs fichiers d'un même dos sier, je cherche à introduire des variables dans la ligne de code suivante: .CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`") et je n'y arrive pas avec mes lignes en commantaire.
ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ Array(Array("ODBC;DBQ=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;DefaultD ir=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;Driver={Driver da Microsoft para arquivos text"), _ Array("o (*.txt; *.csv)};DriverId';FIL=text;MaxBufferSize 48;MaxScanRows=8;Pag eTimeout=5;SafeTransactions=0;Threads=3;UserCommitSy"), _ Array("nc=Yes;")), Destination:=Range("A1"))
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`") ' .CommandText = quoi
Jean-François Aubert {Vaudois de la Côte Lémanique}
Bonjour,
x = "2007_Stern_aubertje.csv"
.CommandText = Array("SELECT * FROM `" & x & "`")
JB
On 14 août, 11:48, "Jean-François Aubert" <àOterjfaub...@bluewin.ch>
wrote:
Salut à toutes et à tous,
Avec la macro ci-dessous, je récupère les données d'un fichier Exce l.
Cela fonctionne.
Afin de récupérer les données de plusieurs fichiers d'un même dos sier,
je cherche à introduire des variables dans la ligne de code suivante:
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`")
et je n'y arrive pas avec mes lignes en commantaire.
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
Array(Array("ODBC;DBQ=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;DefaultD ir=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;Driver={Driver
da Microsoft para arquivos text"), _
Array("o (*.txt;
*.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;Pag eTimeout=5;SafeTransactions=0;Threads=3;UserCommitSy"),
_
Array("nc=Yes;")), Destination:=Range("A1"))
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`")
' .CommandText = quoi
x = "2007_Stern_aubertje.csv" .CommandText = Array("SELECT * FROM `" & x & "`")
JB
On 14 août, 11:48, "Jean-François Aubert" <à wrote:
Salut à toutes et à tous,
Avec la macro ci-dessous, je récupère les données d'un fichier Exce l. Cela fonctionne.
Afin de récupérer les données de plusieurs fichiers d'un même dos sier, je cherche à introduire des variables dans la ligne de code suivante: .CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`") et je n'y arrive pas avec mes lignes en commantaire.
ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ Array(Array("ODBC;DBQ=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;DefaultD ir=R:SCHPOOLVGL_ATSTERN_SCHWEIZ;Driver={Driver da Microsoft para arquivos text"), _ Array("o (*.txt; *.csv)};DriverId';FIL=text;MaxBufferSize 48;MaxScanRows=8;Pag eTimeout=5;SafeTransactions=0;Threads=3;UserCommitSy"), _ Array("nc=Yes;")), Destination:=Range("A1"))
.CommandText = Array("SELECT * FROM `2007_Stern_aubertje.csv`") ' .CommandText = quoi