Bonjour,
J'ai enregistré une macro pour importer un fichier text en utilisant «Get External Data,Import Text File». Cela fonctionnait parfaitement avant que je change le nom du fichier pour une variable (à cause du fichier daté). La macro arrête sur la dernière ligne : .Refresh
BackgroundQuery:=False et l'erreur mentionne qu'elle n'est pas capable de trouver le fichier text.
Un fichier différent est crée à tous les jours et je ne veux pas une requête qui fait seulement mettre à jour les données.
Le nom du fichier que j'importe les données est le suivant :
"W:\RCEE\Backup\H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
Est-ce que quelqu'un est en mesure de m'aider...
Merci
JF
Voici le code complet de mon sub
''Sub rapportimportation()
Dim ddate As Date
Dim report As Variant
report = "W:\RCEE\Backup\H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
ddate = [LaDate]
'Importation H02
Workbooks.Add
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & report _
, Destination:=Range("A1"))
.Name = "H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
''
J'ai enregistré une macro pour importer un fichier text en utilisant «Get External Data,Import Text File». Cela fonctionnait parfaitement avant que je change le nom du fichier pour une variable (à cause du fichier daté). La macro arrête sur la dernière ligne : .Refresh
BackgroundQuery:=False et l'erreur mentionne qu'elle n'est pas capable de trouver le fichier text.
Un fichier différent est crée à tous les jours et je ne veux pas une requête qui fait seulement mettre à jour les données.
Le nom du fichier que j'importe les données est le suivant :
"W:\RCEE\Backup\H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
Est-ce que quelqu'un est en mesure de m'aider...
Merci
JF
Voici le code complet de mon sub
''Sub rapportimportation()
Dim ddate As Date
Dim report As Variant
report = "W:\RCEE\Backup\H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
ddate = [LaDate]
'Importation H02
Workbooks.Add
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & report _
, Destination:=Range("A1"))
.Name = "H02_intrants_CCD_SUN_Initial_" & Format(ddate, "yyyy-mm-dd") & "_0306_xml.p_rcee_q"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
''