Soucis avec mes Mise à jour

Question

Re-Bonjour Messieurs...

J'ai un code qui me charge ds mise à jour pour mon fichier mais a chaque nouvelle MAJ, les Range c_noms et d_noms se decalle d'une colonne

une idée de la raison ??

Sub Maj()
'
' Macro3 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://classic.magictraders.com/pricelists/current-magic", _
        Destination:=Range("$A$1"))
        '.CommandType = 0
        .Name = "current-magic"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Application.DisplayAlerts = False
    End With
    Call liste
End Sub

[b]Sub liste()
    Range("A3").Select
    Application.Goto Reference:="d_noms"
    Columns("A:A").Select
    Application.Goto Reference:="c_noms"
    Call Refresh
End Sub[/b]

Sub Refresh()

Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(30, 1), Array(38, 1), Array(45, 1), Array(53, 1), _
        Array(61, 1), Array(69, 1), Array(76, 1)), TrailingMinusNumbers:=True
Columns("G:Z").Delete Shift:=xlToLeft

Call remplaced
End Sub

Sub remplaced()
'
    Columns("B:F").Select
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

Merci pour vos renseignements...

PS : Navré de taper un peu vite Parfois

Dan · Answer

Probablement qu'une réponse viendra quans tu auras lu ces quelques lignes --&gt; Regles à respecter - le point 5 surtout ! De là quelqu'un prendra cetainement le temps de regarder ta demande. A bientôt...