Discussion :

[Mat63]

Bonjour,

Suite à la mise en place d'un nouveau logiciel je dois alimenter une base de donnée.
Pour cela j'ai à disposition un fichier d'import au format .xls.
Les données à saisir sont disponibles dans des tableaux au sein de document Word.

Afin de remplir mon fichier d'import, je copie mes tableaux de Word dans Excel puis je fais appelle à un programme en VBA qui se charge de mettre au bon endroit les bonnes informations.

Cependant je rencontre des difficultés avec certains champs.

En effet pas un seul document n'a été rempli de la même façon.

Ex:
Les numéros de téléphone : XX.XX.XX.XX.XX ; XX XX XX XX XX
Format désiré : XXXXXXXXXX
Les numéros de SIRET : XXX XXX XXX XXXXX
Format désiré : XXXXXXXXXXXXXX
Les numéros de TVA : FRXX XXX XXX XXX ; FR XX XXX XXX XXX
Format désiré : FRXXXXXXXXXXX

Je ne semble pas rencontrer de difficulté pour les numéros de téléphone avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Tampon As Variant (Si ça peut aider)
 
'Téléphone fixe
Tampon = Sheets("Source").Range("B20")
Tampon = Replace(Tampon, ".", "")
Tampon = Replace(Tampon, " ", "")
Sheets("données").Select
Cells(Ligne, 50) = Tampon

Par contre ce code ne fonctionne pas avec les numéros de TVA et de SIRET.
Je remet en cause le formatage du texte initiale.
Si j’utilise les fonctions de Word/Excel pour effacer les formats cela ne change rien par contre si les données transites par le logiciel Bloc-Note tout fonctionne à merveille.

Auriez-vous une piste à me donner pour réussir à formater correctement mes données ?

Merci.

Edit: C'est un problème d'espace insécable ! Je vais voir si j'arrive à directement le faire sauter depuis mon VBA.

[Invité]

Bonjour,

Essayez cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Function SpliterLaChaine(ByVal ChaineASpliter As String) As String
 
Dim TableauChaines As Variant
 
       SpliterLaChaine = ""
 
       TableauChaines = Split(ChaineASpliter, " ")
       If UBound(TableauChaines) > 0 Then
           SpliterLaChaine = Join(TableauChaines, "")
       Else
          SpliterLaChaine = ChaineASpliter
       End If
 
End Function

En cas de combinaisons de points et de blancs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function SpliterLaChaine2(ByVal ChaineASpliter As String) As String
 
Dim TableauBlancs As Variant, TableauPoints As Variant
Dim SpliterLePoint As String
 
       SpliterLaChaine2 = ""
       SpliterLePoint = ChaineASpliter
 
       TableauPoints = Split(ChaineASpliter, ".")
       If UBound(TableauPoints) > 0 Then
           SpliterLePoint = Join(TableauPoints, "")
       End If
       TableauBlancs = Split(SpliterLePoint, " ")
       Debug.Print UBound(TableauBlancs)
       If UBound(TableauBlancs) > 0 Then
          SpliterLaChaine2 = Join(TableauBlancs, "")
       Else
          SpliterLaChaine2 = SpliterLePoint
       End If
 
End Function

[Mat63]

Bonjour,

Merci pour votre réponse.

Je l'ai bien prise en compte hier mais je voulais prendre le temps de bien comprendre votre code et son articulation avant de vous répondre.
En effet je ne connaissais pas le système de pointeur du VBA ByVal() ni les fonctions UBound(), Split() et Join().

Votre code est beaucoup plus élégant que le miens.

Je suis arrivé à mes fins de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Tampon = Sheets("Generales").Range("B5")
Tampon = Replace(Tampon, ".", "")
Tampon = Replace(Tampon, " ", "")
Tampon = Replace(Tampon, Chr(160), "")
Cells(Ligne, 3) = Tampon

C'est en cherchant "caractère espace qui n'en est pas un" ou quelque chose du genre sur internet que j'ai découvert l’existence de l'espace insécable Chr(160) qui s'est bien révélé être mon problème.