Bonjour à vous,
Je galère depuis un moment sur les macros, généralement j'utilise l'enregistreur et je modifie de petites choses mais là, même l'enregistreur ne m'aide pas vraiment ^^
J'ai une base de données que je sors sur Excel avec PowerQuery, je la retravaille visuellement, je filtre etc. afin d'alléger mon fichier (beaucoup trop de datas sinon).
Mon problème est que mes collègues voudraient pouvoir appuyer sur un bouton pour actualiser les données. C'est bien me direz-vous, ça fait gagner du temps et c'est plutôt basique. Mais quand j'utilise l'enregistreur pour générer le code : onglet données, actualiser tout / puis convertir la colonne A sur laquelle je fais de la rechercheV dans une autre feuille.
Eh bien... il ne convertit pas, ce qui fait que les formules de rechercheV sont N/A.
Voici le code ressorti à l'enregistreur :
Sub Test()
Sheets("Extraction_Query").Select
ActiveWorkbook.RefreshAll
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("Sheet_Query[[#Headers],[Avis]]"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Si quelqu'un peut m'aider ce serait top
D'avance merci !!
Je galère depuis un moment sur les macros, généralement j'utilise l'enregistreur et je modifie de petites choses mais là, même l'enregistreur ne m'aide pas vraiment ^^
J'ai une base de données que je sors sur Excel avec PowerQuery, je la retravaille visuellement, je filtre etc. afin d'alléger mon fichier (beaucoup trop de datas sinon).
Mon problème est que mes collègues voudraient pouvoir appuyer sur un bouton pour actualiser les données. C'est bien me direz-vous, ça fait gagner du temps et c'est plutôt basique. Mais quand j'utilise l'enregistreur pour générer le code : onglet données, actualiser tout / puis convertir la colonne A sur laquelle je fais de la rechercheV dans une autre feuille.
Eh bien... il ne convertit pas, ce qui fait que les formules de rechercheV sont N/A.
Voici le code ressorti à l'enregistreur :
Sub Test()
Sheets("Extraction_Query").Select
ActiveWorkbook.RefreshAll
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("Sheet_Query[[#Headers],[Avis]]"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Si quelqu'un peut m'aider ce serait top
D'avance merci !!