Format nombre anglais en format Français (apres une requete power Query)

bonjour à tous,

mon problème je n'arrive pas à convertir les nombres (format anglais au format français)

code

Sub requete()

Dim a As String
Dim DateFTS As Date
Workbooks.OpenDatabase Filename:= _
"C:\Users\hcd01usaccm\Documents\Mes sources de données\Requête - FinancialTransactionSummary.odc" _
, CommandText:=Array("SELECT * FROM [FinancialTransactionSummary]"), CommandType:=xlCmdSql _
, ImportDataAs:=xlTable
Columns("C:H").Select
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

a = Cells(180, 2).Value
DateFTS = Mid(a, 47, 2) & "/" & Mid(a, 50, 2) & "/" & Mid(a, 53, 2)
MsgBox DateFTS

End Sub

resultat obtenu

merci d'avance pour votre aide

Bonjour à tous !

Pour ce type de retraitement, il est préférable de passer par Power Query et d'utiliser la fonctionnalité "Paramètres régionaux".

Au besoin, postez un classeur représentatif.

merci JFL

es-que on peut changer les paramètres regionaux Power Query par sur le meme code

car j'ai besoin d'automatisé le remplissage d'un rapport quotidien sans manipulation manuelle

Bonjour à tous de nouveau !

Pourquoi ne pas opérer la totalité des retraitements via Power Query ?

VBA est hors du champ de mes connaissances / compétences, je passe donc la main sur ce point.

Pour reprendre des propos tenus ici-même, "passer par VBA pour utiliser Power Query relève d'un masochisme certain".....(Petit clin d’œil à 78chris.....)

EDIT : La fonction VALEURNOMBRE est aussi disponible dans Microsoft 365.

Bonjour à tous et à JBL

Samygarma a écrit :

es-que on peut changer les paramètres regionaux Power Query par sur le meme code

Dans PowerQuery on ne change pas les paramètres régionaux au sens Windows, on type selon ceux de la source donc c'est la requête d'import qu'il faut modifier (de même qu'on paramétrait la liaison de csv avant PQ)

Bonjour tous,

code requête et le fichier PDF et le fichier résultat

cd

chers amis

Bonjour

Bonjour à tous,

Juste pour préciser à Samygarma que sur son code d'origine, il suffisait de faire ceci:

With Columns("C:H")
    .Replace What:=",", Replacement:=""
    .Replace What:="0.000", Replacement:=0
End With

Cdlt

Arturo83 bonjour merci pour votre réponse
le problème persiste encore les nombres à 6 chiffres ne sont pas corrigés

Bonsoir,

le problème persiste encore les nombres à 6 chiffres ne sont pas corrigés

Dans l'exemple mis à disposition, le cas de figure n'existait pas, donc pas possible de tester.

Le problème vient du fait que le point n'est pas reconnu, il faut donc le remplacer par un autre point et là, ça marche (du moins chez moi)

    With Columns("C:H")
        .Replace What:=",", Replacement:=""
        .Replace What:=".", Replacement:="."
    End With

Cdlt

Ps: merci pour le -1

bonjour Arturo83

merci pour votre aide je veux tester et je reviens vers vous

j'ai eu un problème au niveau de mon pc

pour le -1 je ne le fais pas exprès (je viens de commencer sur excel-pratique )

cd

chers amis

Bonsoir à tous,

j'ai eu une panne ds mon pc

désolé de ne pas répondre à vos message à temps

un grand merci pour 78Chris

cd

chers amis

Bonjour à tous

@Samygarma

bonjour à tous

78Chris tu peux ajouter une colonne date

la date se trouve à la 5eme page en bas

cd

samygarma

Bonjour

bonsoir

vous etes formidable cher 78chris

juste une question comment afficher le code power query de ce travail pour mieux comprendre

cd

samygarma

RE

Données, Obtenir des données, Lancer PowerQuery

Il y a

• Fichier qui récupère le nom du fichier
• Exemple qui permet de traiter une page et est ensuite transformé en fonction Traitement
  
• SynthèseP qui synthétise les pages en utilisant Traitement
• Finale qui assemble les titres de colonnes et les données et est restitué dans le classeur

Lorsqu'une requête est sélectionnée à droite, on a à gauche toutes les étapes et le détail de l'étape dans la barre de formule et en cliquant sur le petit rouage

merci 78chris et bonne nuit