Tableau de devises
ABDELLAH
-
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Tableau de devises
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
1 réponse
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
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
