Bonjour à toutes et à tous,
j'utilise ceci :
Dim RéfArticle() As String
ceci pour rapatrier des données sur une page web
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
, Destination:=Range("A1"))
.Name = "Lefichier"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
J'ai une référence article qui est : SEP8
Je n'arrive pas à la reprendre tel quel.
Excel me transforme çà en 01/09/2008.
alors dans mon code j'ai essayé çà :
If RéfArticle(a) = "01/09/2008" Then
RéfArticle(a) = "SEP8"
End If
mais là il me m'est 08/09/2010 !!
comment faire pour que dans ma cellule de destination j'ai bien la bonne
réf
soit SEP8 ???
Merci pour vos suggestions
Michel MTO
Bonjour à toutes et à tous,
j'utilise ceci :
Dim RéfArticle() As String
ceci pour rapatrier des données sur une page web
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
, Destination:=Range("A1"))
.Name = "Lefichier"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
J'ai une référence article qui est : SEP8
Je n'arrive pas à la reprendre tel quel.
Excel me transforme çà en 01/09/2008.
alors dans mon code j'ai essayé çà :
If RéfArticle(a) = "01/09/2008" Then
RéfArticle(a) = "SEP8"
End If
mais là il me m'est 08/09/2010 !!
comment faire pour que dans ma cellule de destination j'ai bien la bonne
réf
soit SEP8 ???
Merci pour vos suggestions
Michel MTO
Bonjour à toutes et à tous,
j'utilise ceci :
Dim RéfArticle() As String
ceci pour rapatrier des données sur une page web
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
, Destination:=Range("A1"))
.Name = "Lefichier"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
J'ai une référence article qui est : SEP8
Je n'arrive pas à la reprendre tel quel.
Excel me transforme çà en 01/09/2008.
alors dans mon code j'ai essayé çà :
If RéfArticle(a) = "01/09/2008" Then
RéfArticle(a) = "SEP8"
End If
mais là il me m'est 08/09/2010 !!
comment faire pour que dans ma cellule de destination j'ai bien la bonne
réf
soit SEP8 ???
Merci pour vos suggestions
Michel MTO
> ActiveWorkbook.Worksheets.Add
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
> ActiveWorkbook.Worksheets.Add
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
hvfvt3$tq4$1@speranza.aioe.org...
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
> ActiveWorkbook.Worksheets.Add
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c1b88d1$0$27570$ba4acef3@reader.news.orange.fr...
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
hvfvt3$tq4$1@speranza.aioe.org...
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Bonjour,Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news:
hvg1j4$2k5$Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la
> bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Bonjour,
Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
hvg1j4$2k5$1@speranza.aioe.org...
Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.
> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c1b88d1$0$27570$ba4acef3@reader.news.orange.fr...
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
hvfvt3$tq4$1@speranza.aioe.org...
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la
> bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
Bonjour,Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news:
hvg1j4$2k5$Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une
feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la
> bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé par mon serveur de news, et je suis
bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" a écrit dans le message de news: hvg2g3$4ur$Bonjour,Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news: hvg1j4$2k5$Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé par mon serveur de news, et je suis
bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: hvg2g3$4ur$1@speranza.aioe.org...
Bonjour,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news: hvg1j4$2k5$1@speranza.aioe.org...
Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c1b88d1$0$27570$ba4acef3@reader.news.orange.fr...
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
hvfvt3$tq4$1@speranza.aioe.org...
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé par mon serveur de news, et je suis
bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" a écrit dans le message de news: hvg2g3$4ur$Bonjour,Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news: hvg1j4$2k5$Bonjour Sam et merci pour ta réponse,
Je ne peux pas formater les cellules, car le code crée lui même une feuille
excel et rapatrie les données dans la foulée.> ActiveWorkbook.Worksheets.Add
Michel MTO
"Sam" a écrit dans le message de news:
4c1b88d1$0$27570$
Bonjour,
essaye ceci : avant de rapatrier les données, formate les cellules
receptrices au format texte
Cordialement
Michel dit "Sam"
"Michel Mto" a écrit dans le message de news:
hvfvt3$tq4$
> Bonjour à toutes et à tous,
>
> j'utilise ceci :
> Dim RéfArticle() As String
>
> ceci pour rapatrier des données sur une page web
> ActiveWorkbook.Worksheets.Add
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> , Destination:=Range("A1"))
> .Name = "Lefichier"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:úlse
> End With
>
> J'ai une référence article qui est : SEP8
>
> Je n'arrive pas à la reprendre tel quel.
> Excel me transforme çà en 01/09/2008.
>
> alors dans mon code j'ai essayé çà :
> If RéfArticle(a) = "01/09/2008" Then
> RéfArticle(a) = "SEP8"
> End If
>
> mais là il me m'est 08/09/2010 !!
> comment faire pour que dans ma cellule de destination j'ai bien la bonne
> réf
> soit SEP8 ???
> Merci pour vos suggestions
>
> Michel MTO
>
>
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé p ar
mon serveur de news, et je suis bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" a écrit dans le message de news:
hvg2g3$
> Bonjour,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
> Essaye comme ceci
> '-------------
> ActiveWorkbook.Worksheets.Add
> [A1:A20].NumberFormat = "@"
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> '-------suite du code-----
> '----------
> "------
> --
> ps: Non testé
> Salutations
> JJ
> "Michel Mto" a écrit dans le message de new s:
> hvg1j4$
>> Bonjour Sam et merci pour ta réponse,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
>>> > ActiveWorkbook.Worksheets.Add
>> Michel MTO
>> "Sam" a écrit dans le message de news:
>> 4c1b88d1$0$27570$
>>> Bonjour,
>>> essaye ceci : avant de rapatrier les données, formate les cellules
>>> receptrices au format texte
>>> Cordialement
>>> Michel dit "Sam"
>>> "Michel Mto" a écrit dans le message de n ews:
>>> hvfvt3$
>>> > Bonjour à toutes et à tous,
>>> > j'utilise ceci :
>>> > Dim RéfArticle() As String
>>> > ceci pour rapatrier des données sur une page web
>>> > ActiveWorkbook.Worksheets.Add
>>> > With ActiveSheet.QueryTables.Add(Connection:= _
>>> > "URL;C:LecheminLefichier.htm" _
>>> > , Destination:=Range("A1"))
>>> > .Name = "Lefichier"
>>> > .FieldNames = True
>>> > .RowNumbers = False
>>> > .FillAdjacentFormulas = False
>>> > .PreserveFormatting = False
>>> > .RefreshOnFileOpen = False
>>> > .BackgroundQuery = True
>>> > .RefreshStyle = xlInsertDeleteCells
>>> > .SavePassword = False
>>> > .SaveData = True
>>> > .AdjustColumnWidth = True
>>> > .RefreshPeriod = 0
>>> > .WebSelectionType = xlAllTables
>>> > .WebFormatting = xlWebFormattingRTF
>>> > .WebPreFormattedTextToColumns = True
>>> > .WebConsecutiveDelimitersAsOne = True
>>> > .WebSingleBlockTextImport = False
>>> > .WebDisableDateRecognition = False
>>> > .Refresh BackgroundQuery:úlse
>>> > End With
>>> > J'ai une référence article qui est : SEP8
>>> > Je n'arrive pas à la reprendre tel quel.
>>> > Excel me transforme çà en 01/09/2008.
>>> > alors dans mon code j'ai essayé çà :
>>> > If RéfArticle(a) = "01/09/2008" Then
>>> > RéfArticle(a) = "SEP8"
>>> > End If
>>> > mais là il me m'est 08/09/2010 !!
>>> > comment faire pour que dans ma cellule de destination j'ai bien la
>>> > bonne
>>> > réf
>>> > soit SEP8 ???
>>> > Merci pour vos suggestions
>>> > Michel MTO- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé p ar
mon serveur de news, et je suis bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
hvg2g3$4u...@speranza.aioe.org...
> Bonjour,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
> Essaye comme ceci
> '-------------
> ActiveWorkbook.Worksheets.Add
> [A1:A20].NumberFormat = "@"
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> '-------suite du code-----
> '----------
> "------
> --
> ps: Non testé
> Salutations
> JJ
> "Michel Mto" <comptabil...@olcoven.fr> a écrit dans le message de new s:
> hvg1j4$2k...@speranza.aioe.org...
>> Bonjour Sam et merci pour ta réponse,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
>>> > ActiveWorkbook.Worksheets.Add
>> Michel MTO
>> "Sam" <prenom-ou-...@citron.fr> a écrit dans le message de news:
>> 4c1b88d1$0$27570$ba4ac...@reader.news.orange.fr...
>>> Bonjour,
>>> essaye ceci : avant de rapatrier les données, formate les cellules
>>> receptrices au format texte
>>> Cordialement
>>> Michel dit "Sam"
>>> "Michel Mto" <comptabil...@olcoven.fr> a écrit dans le message de n ews:
>>> hvfvt3$tq...@speranza.aioe.org...
>>> > Bonjour à toutes et à tous,
>>> > j'utilise ceci :
>>> > Dim RéfArticle() As String
>>> > ceci pour rapatrier des données sur une page web
>>> > ActiveWorkbook.Worksheets.Add
>>> > With ActiveSheet.QueryTables.Add(Connection:= _
>>> > "URL;C:LecheminLefichier.htm" _
>>> > , Destination:=Range("A1"))
>>> > .Name = "Lefichier"
>>> > .FieldNames = True
>>> > .RowNumbers = False
>>> > .FillAdjacentFormulas = False
>>> > .PreserveFormatting = False
>>> > .RefreshOnFileOpen = False
>>> > .BackgroundQuery = True
>>> > .RefreshStyle = xlInsertDeleteCells
>>> > .SavePassword = False
>>> > .SaveData = True
>>> > .AdjustColumnWidth = True
>>> > .RefreshPeriod = 0
>>> > .WebSelectionType = xlAllTables
>>> > .WebFormatting = xlWebFormattingRTF
>>> > .WebPreFormattedTextToColumns = True
>>> > .WebConsecutiveDelimitersAsOne = True
>>> > .WebSingleBlockTextImport = False
>>> > .WebDisableDateRecognition = False
>>> > .Refresh BackgroundQuery:=False
>>> > End With
>>> > J'ai une référence article qui est : SEP8
>>> > Je n'arrive pas à la reprendre tel quel.
>>> > Excel me transforme çà en 01/09/2008.
>>> > alors dans mon code j'ai essayé çà :
>>> > If RéfArticle(a) = "01/09/2008" Then
>>> > RéfArticle(a) = "SEP8"
>>> > End If
>>> > mais là il me m'est 08/09/2010 !!
>>> > comment faire pour que dans ma cellule de destination j'ai bien la
>>> > bonne
>>> > réf
>>> > soit SEP8 ???
>>> > Merci pour vos suggestions
>>> > Michel MTO- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
salut Jacky,
tu es revenu par ici ?
Jacquouille m'a dit que MPFE existait toujours, donc je l'ai retrouvé p ar
mon serveur de news, et je suis bien content de vous relire.
Amicalement
Siesting Hoax
"Jacky" a écrit dans le message de news:
hvg2g3$
> Bonjour,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
> Essaye comme ceci
> '-------------
> ActiveWorkbook.Worksheets.Add
> [A1:A20].NumberFormat = "@"
> With ActiveSheet.QueryTables.Add(Connection:= _
> "URL;C:LecheminLefichier.htm" _
> '-------suite du code-----
> '----------
> "------
> --
> ps: Non testé
> Salutations
> JJ
> "Michel Mto" a écrit dans le message de new s:
> hvg1j4$
>> Bonjour Sam et merci pour ta réponse,
>> Je ne peux pas formater les cellules, car le code crée lui même un e
>> feuille
>> excel et rapatrie les données dans la foulée.
>>> > ActiveWorkbook.Worksheets.Add
>> Michel MTO
>> "Sam" a écrit dans le message de news:
>> 4c1b88d1$0$27570$
>>> Bonjour,
>>> essaye ceci : avant de rapatrier les données, formate les cellules
>>> receptrices au format texte
>>> Cordialement
>>> Michel dit "Sam"
>>> "Michel Mto" a écrit dans le message de n ews:
>>> hvfvt3$
>>> > Bonjour à toutes et à tous,
>>> > j'utilise ceci :
>>> > Dim RéfArticle() As String
>>> > ceci pour rapatrier des données sur une page web
>>> > ActiveWorkbook.Worksheets.Add
>>> > With ActiveSheet.QueryTables.Add(Connection:= _
>>> > "URL;C:LecheminLefichier.htm" _
>>> > , Destination:=Range("A1"))
>>> > .Name = "Lefichier"
>>> > .FieldNames = True
>>> > .RowNumbers = False
>>> > .FillAdjacentFormulas = False
>>> > .PreserveFormatting = False
>>> > .RefreshOnFileOpen = False
>>> > .BackgroundQuery = True
>>> > .RefreshStyle = xlInsertDeleteCells
>>> > .SavePassword = False
>>> > .SaveData = True
>>> > .AdjustColumnWidth = True
>>> > .RefreshPeriod = 0
>>> > .WebSelectionType = xlAllTables
>>> > .WebFormatting = xlWebFormattingRTF
>>> > .WebPreFormattedTextToColumns = True
>>> > .WebConsecutiveDelimitersAsOne = True
>>> > .WebSingleBlockTextImport = False
>>> > .WebDisableDateRecognition = False
>>> > .Refresh BackgroundQuery:úlse
>>> > End With
>>> > J'ai une référence article qui est : SEP8
>>> > Je n'arrive pas à la reprendre tel quel.
>>> > Excel me transforme çà en 01/09/2008.
>>> > alors dans mon code j'ai essayé çà :
>>> > If RéfArticle(a) = "01/09/2008" Then
>>> > RéfArticle(a) = "SEP8"
>>> > End If
>>> > mais là il me m'est 08/09/2010 !!
>>> > comment faire pour que dans ma cellule de destination j'ai bien la
>>> > bonne
>>> > réf
>>> > soit SEP8 ???
>>> > Merci pour vos suggestions
>>> > Michel MTO- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Les mvps sont pratiquement tous sur "answers"
Les mvps sont pratiquement tous sur "answers"
Les mvps sont pratiquement tous sur "answers"
Bonjour,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news:
> Bonjour Sam et merci pour ta réponse,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
>> > ActiveWorkbook.Worksheets.Add
>
>
> Michel MTO
>
> "Sam" a écrit dans le message de news:
> 4c1b88d1$0$27570$
>>
>>
>> Bonjour,
>> essaye ceci : avant de rapatrier les données, formate les cellules
>> receptrices au format texte
>> Cordialement
>> Michel dit "Sam"
>>
>> "Michel Mto" a écrit dans le message de news:
>> hvfvt3$tq4$
>> > Bonjour à toutes et à tous,
>> >
>> > j'utilise ceci :
>> > Dim RéfArticle() As String
>> >
>> > ceci pour rapatrier des données sur une page web
>> > ActiveWorkbook.Worksheets.Add
>> > With ActiveSheet.QueryTables.Add(Connection:= _
>> > "URL;C:LecheminLefichier.htm" _
>> > , Destination:=Range("A1"))
>> > .Name = "Lefichier"
>> > .FieldNames = True
>> > .RowNumbers = False
>> > .FillAdjacentFormulas = False
>> > .PreserveFormatting = False
>> > .RefreshOnFileOpen = False
>> > .BackgroundQuery = True
>> > .RefreshStyle = xlInsertDeleteCells
>> > .SavePassword = False
>> > .SaveData = True
>> > .AdjustColumnWidth = True
>> > .RefreshPeriod = 0
>> > .WebSelectionType = xlAllTables
>> > .WebFormatting = xlWebFormattingRTF
>> > .WebPreFormattedTextToColumns = True
>> > .WebConsecutiveDelimitersAsOne = True
>> > .WebSingleBlockTextImport = False
>> > .WebDisableDateRecognition = False
>> > .Refresh BackgroundQuery:úlse
>> > End With
>> >
>> > J'ai une référence article qui est : SEP8
>> >
>> > Je n'arrive pas à la reprendre tel quel.
>> > Excel me transforme çà en 01/09/2008.
>> >
>> > alors dans mon code j'ai essayé çà :
>> > If RéfArticle(a) = "01/09/2008" Then
>> > RéfArticle(a) = "SEP8"
>> > End If
>> >
>> > mais là il me m'est 08/09/2010 !!
>> > comment faire pour que dans ma cellule de destination j'ai bien la
>> > réf
>> > soit SEP8 ???
>> > Merci pour vos suggestions
>> >
>> > Michel MTO
>> >
>> >
>>
>>
>
>
Bonjour,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
> Bonjour Sam et merci pour ta réponse,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
>> > ActiveWorkbook.Worksheets.Add
>
>
> Michel MTO
>
> "Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
> 4c1b88d1$0$27570$ba4acef3@reader.news.orange.fr...
>>
>>
>> Bonjour,
>> essaye ceci : avant de rapatrier les données, formate les cellules
>> receptrices au format texte
>> Cordialement
>> Michel dit "Sam"
>>
>> "Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de news:
>> hvfvt3$tq4$1@speranza.aioe.org...
>> > Bonjour à toutes et à tous,
>> >
>> > j'utilise ceci :
>> > Dim RéfArticle() As String
>> >
>> > ceci pour rapatrier des données sur une page web
>> > ActiveWorkbook.Worksheets.Add
>> > With ActiveSheet.QueryTables.Add(Connection:= _
>> > "URL;C:LecheminLefichier.htm" _
>> > , Destination:=Range("A1"))
>> > .Name = "Lefichier"
>> > .FieldNames = True
>> > .RowNumbers = False
>> > .FillAdjacentFormulas = False
>> > .PreserveFormatting = False
>> > .RefreshOnFileOpen = False
>> > .BackgroundQuery = True
>> > .RefreshStyle = xlInsertDeleteCells
>> > .SavePassword = False
>> > .SaveData = True
>> > .AdjustColumnWidth = True
>> > .RefreshPeriod = 0
>> > .WebSelectionType = xlAllTables
>> > .WebFormatting = xlWebFormattingRTF
>> > .WebPreFormattedTextToColumns = True
>> > .WebConsecutiveDelimitersAsOne = True
>> > .WebSingleBlockTextImport = False
>> > .WebDisableDateRecognition = False
>> > .Refresh BackgroundQuery:úlse
>> > End With
>> >
>> > J'ai une référence article qui est : SEP8
>> >
>> > Je n'arrive pas à la reprendre tel quel.
>> > Excel me transforme çà en 01/09/2008.
>> >
>> > alors dans mon code j'ai essayé çà :
>> > If RéfArticle(a) = "01/09/2008" Then
>> > RéfArticle(a) = "SEP8"
>> > End If
>> >
>> > mais là il me m'est 08/09/2010 !!
>> > comment faire pour que dans ma cellule de destination j'ai bien la
>> > réf
>> > soit SEP8 ???
>> > Merci pour vos suggestions
>> >
>> > Michel MTO
>> >
>> >
>>
>>
>
>
Bonjour,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
Essaye comme ceci
'-------------
ActiveWorkbook.Worksheets.Add
[A1:A20].NumberFormat = "@"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:LecheminLefichier.htm" _
'-------suite du code-----
'----------
"------
--
ps: Non testé
Salutations
JJ
"Michel Mto" a écrit dans le message de news:
> Bonjour Sam et merci pour ta réponse,
> Je ne peux pas formater les cellules, car le code crée lui même une
> excel et rapatrie les données dans la foulée.
>> > ActiveWorkbook.Worksheets.Add
>
>
> Michel MTO
>
> "Sam" a écrit dans le message de news:
> 4c1b88d1$0$27570$
>>
>>
>> Bonjour,
>> essaye ceci : avant de rapatrier les données, formate les cellules
>> receptrices au format texte
>> Cordialement
>> Michel dit "Sam"
>>
>> "Michel Mto" a écrit dans le message de news:
>> hvfvt3$tq4$
>> > Bonjour à toutes et à tous,
>> >
>> > j'utilise ceci :
>> > Dim RéfArticle() As String
>> >
>> > ceci pour rapatrier des données sur une page web
>> > ActiveWorkbook.Worksheets.Add
>> > With ActiveSheet.QueryTables.Add(Connection:= _
>> > "URL;C:LecheminLefichier.htm" _
>> > , Destination:=Range("A1"))
>> > .Name = "Lefichier"
>> > .FieldNames = True
>> > .RowNumbers = False
>> > .FillAdjacentFormulas = False
>> > .PreserveFormatting = False
>> > .RefreshOnFileOpen = False
>> > .BackgroundQuery = True
>> > .RefreshStyle = xlInsertDeleteCells
>> > .SavePassword = False
>> > .SaveData = True
>> > .AdjustColumnWidth = True
>> > .RefreshPeriod = 0
>> > .WebSelectionType = xlAllTables
>> > .WebFormatting = xlWebFormattingRTF
>> > .WebPreFormattedTextToColumns = True
>> > .WebConsecutiveDelimitersAsOne = True
>> > .WebSingleBlockTextImport = False
>> > .WebDisableDateRecognition = False
>> > .Refresh BackgroundQuery:úlse
>> > End With
>> >
>> > J'ai une référence article qui est : SEP8
>> >
>> > Je n'arrive pas à la reprendre tel quel.
>> > Excel me transforme çà en 01/09/2008.
>> >
>> > alors dans mon code j'ai essayé çà :
>> > If RéfArticle(a) = "01/09/2008" Then
>> > RéfArticle(a) = "SEP8"
>> > End If
>> >
>> > mais là il me m'est 08/09/2010 !!
>> > comment faire pour que dans ma cellule de destination j'ai bien la
>> > réf
>> > soit SEP8 ???
>> > Merci pour vos suggestions
>> >
>> > Michel MTO
>> >
>> >
>>
>>
>
>