Bonjour,
J'aimerai savoir si quelqu'un sait pourquoi, lorsque j'ouvre un fichier dans 1 nouvelle feuille avec le nom en dur ca marche, lorsque je remplace le nom par le contenu de la case qui contient son nom ca plante alors que cette manip marche pour l'ouverture dans 1 autre fenetre excel!!!
Cette ligne marche:
si je remplace "doc1" par "& Range("A1").Value &" sachant que A1 contient doc1 le code ne marche pas !
Si quelqu'un peut eclairer ma lanterne, je vous en remercie d'avance !
Bon ap'
Clem
J'aimerai savoir si quelqu'un sait pourquoi, lorsque j'ouvre un fichier dans 1 nouvelle feuille avec le nom en dur ca marche, lorsque je remplace le nom par le contenu de la case qui contient son nom ca plante alors que cette manip marche pour l'ouverture dans 1 autre fenetre excel!!!
Cette ligne marche:
Code:
Worksheets.Add
With Sheet1.QueryTables.Add(Connection:= _
"FINDER;file:///C:/_U1/PROGRAMME/NI_8.5/PROGRAMME_LV85/Report/doc1.html", Destination:=Range("A1"))
.Name = "HTML_TEST(1)"
si je remplace "doc1" par "& Range("A1").Value &" sachant que A1 contient doc1 le code ne marche pas !
Code:
"FINDER;file:///C:/_U1/PROGRAMME/NI_8.5/PROGRAMME_LV85/Report/" & Range("A1").Value & ".html", Destination:=Range("A1"))
.Name = "HTML_TEST(1)"
Si quelqu'un peut eclairer ma lanterne, je vous en remercie d'avance !
Bon ap'
Clem
Code:
' Macro1 Macro
' Macro recorded 27.10.2010 by Amilien
'
Dim calc As Range, y As Range, x As Integer
'Calculate the number of values in a column
Set calc = Range("A:A").Find(" ", , xlValues, xlWhole, , , False)
Set y = Range("A1")
'Find line offset of the last cell in the column A
x = Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 1 To x
' Add a sheet and open an HTML report------------------------------------------------------------------------
Worksheets.Add
With Sheet1.QueryTables.Add(Connection:= _
"FINDER;file:///C:/_U1/PROGRAMME/NI_8.5/PROGRAMME_LV85/Report/" [COLOR="Red"]& Range("A1").Value &[/COLOR] ".html", Destination:=Range("A1"))
.Name = "HTML_TEST(1)"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.Delete
End With
Next
'
End Sub[COLOR="Red"][/COLOR]