[VBA] - Problème convertion données

Fermé
VBA beginner - Modifié par jordane45 le 28/06/2016 à 01:58
 Mosca - 28 juin 2016 à 15:49
Bonjour,

Je souhaite convertir les données d'une colonne pour avoir des nombres (car au départ certains ont des "." séparateurs de milliers, des espaces avant le début du nombre etc bref).

En réalisant l'action : sélectionner la colonne / données / convertir les données / suivant / suivant / avancé (pour mettre "," comme séparateur de décimale et "." comme séparateur de milliers (bien que ça ne soit pas tjs le cas !) et en décochant la case sur "signe moins à la fin des nombres négatifs"), cela fonctionne !

En revanche, le code suivant, obtenu par enregistrement de cette macro exactement ne fonctionne plus en éxécutant la macro :

Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", TrailingMinusNumbers:=False


J'ai regardé les paramètres que je pouvais ajouter dans le code mais je ne vois pas ...

Comme j'ai besoin de l'utiliser via Access, j'ai absolument besoin de pouvoir faire ça en VBA !!

Merci de m'aider !!



EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

2 réponses

f894009
Messages postés
16483
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 mai 2022
1 633
28 juin 2016 à 13:13
Bonjour,

Comme j'ai besoin de l'utiliser via Access
Boh oui!! Mais comment accedez-vous a ce fichier excel ??
0
VBA beginner
28 juin 2016 à 15:33
Via VBA aussi !!

Dim xlApp As Excel.Application
Dim FiletoOpen As String

' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = CreateObject("Excel.Application")

With xlApp
' Rendre Excel visible
.Visible = True

Dim vCell As Range


'récupération du nom et du chemin du fichier
FiletoOpen = .Application.GetOpenFilename("xls Files (*.), *.xls")

' Ouverture du fichier
.Workbooks.Open FiletoOpen

' DEBUT MISE EN FORME

Et c'est là ensuite que j'ai besoin de réaliser ma manoeuvre
0
f894009
Messages postés
16483
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 mai 2022
1 633 > VBA beginner
28 juin 2016 à 15:42
Re,

Si le fichier ne s'ouvre pas sur la bonne feuille, la definir
autrement mettez un point devant Columns vu que cela "appartient" au bloc Wtih/end with
0
Bonjour,

Faire d'abord le ménage, c'est-à-dire supprimer les espaces et les points
Ensuite mettre en forme

'supprimer les espaces
Columns("C:C").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'supprimer les points
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'mise en forme
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=",", TrailingMinusNumbers:=False

Cordialement
0