Tableau de devises Fermé

Question

Bonjour, 

Je suis un comptable mais je ne connais pas ce que c'est une macros pour pouvoir utiliser cette formule. Merci 

Sub WebQuery()
ActiveSheet.Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.forexpros.fr/quotes/tableau-de-taux-de-change" _
        , Destination:=Range("A1"))
        .Name = "Taux_Change"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "1"
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
        .RefreshPeriod = 15
    End With
End Sub

skk201 · Answer

Bonjour

C'est une macro pas une formule.

Si vous faites [ALT] + [F11] pour ouvrir l'éditeur de macro

Sur la gauche vous avez le nom de vos feuil dans votre classeur.

Sélectionnez la feuille ou vous voulez voir apparaitre ses informations et coller ce code à l'interieur.

Quitez la fenetre de l'éditeur, vous pouvez ensuite appuiller sur [ALT]+[F8], pour avoir la liste des macro et executer cette macro.

Attention ça effacera le contenu de la feuille et le remplacera avec le contenu de https://fr.investing.com/currencies/exchange-rates-table donc faite le dans une feuille vide car avec els macro c'est impossible d'annuler.

Merci

Tableau de devises

1 réponse

Discussions similaires