Discussion :

[ericdev67]

Bonjour,

J'ai un formulaire Word, par macro, je l'importe et copie/colle dans une feuille Excel.

J'ai un petit souci : quelques "petits malins" ont enlevé la protection du formulaire Word que j'avais créé et n'ont pas écrit dans le champ du formulaire, mais juste après....Lorsque j'importe ces formulaires, j'obtiens :

-----nomdumodele

j'ai mis des "-" à la place des espaces, car l'espace ne prend pas dans les "QUOTE"
(de même sur la version Excel 2007, les espaces sont remplacés par des petits carrés...)


j'ai essayé

Code :

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

espace=application.worksheetfunction.trim(espace)

marche pas....puis j'ai essayé

Code :

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

sheets("F").columns(5).replace " ",""

Marche pas....
J'ai donc essayé de "reconnaitre" les espaces et/ou petits carrés, et j'ai pu voir qu'ils avaient le Numéro 32 (de la table de caractère), j'ai donc essayé de les enlever, j'ai essayé (sur la cellule E2):

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
Dim monText As Integer
   Dim cc As Integer
   Dim boucle As Integer
   Dim uu As String
 
   cc = Len(Range("E2"))
   espace = Range("E2")
   monText = Asc(Left(Range("E2"), 1))
 
   For boucle = 1 To cc
   uu = Left(espace, 1)
   If Left(espace, 1) = Chr(32) Then
   espace = Mid(1 + boucle, 100)
   Stop
 
   End If

Marche pas non plus.....

Je suis à court d'idée......

Merci de votre aide,
A+

[fring]

Bonjour,

Ce sont probablement des espaces insécables, essaie ceci :

Code :

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

Sheets("F").Columns(5).Replace Chr(160), ""

[ericdev67]

Merci Fring,

J'ai essayé, mais ça ne fonctionne pas....j'ai toujours mes "petits carrés" et/ou espaces....

j'ai aussi essayé en faisant une boucle

Code :

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

1
2
3
for i = 1 to 255
sheets("F").columns(5).replace chr(i),""
next i

mais les "petits carrés" et espaces sont toujours là....donc apparemment l'option de passer par "CHR" ne fonctionne pas....

Une autre idée ?

Merci,
A+

[kiki29]

Salut, essaie via Clean

Code :

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

Application.WorksheetFunction.Clean(.....)

[ericdev67]

Merci Kiki29,

J'avais déjà essayé, mais ça n'a pas fonctionné....j'ai fait :

Code :

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

1
2
3
4
dim cell as range
for each cell in Activesheets.usedrange
cell=application.worksheetfunction.clean(cell)
next

ça n'a pas fonctionné, j'ai essayé

Code :

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

1
2
3
4
dim cell as range
for each cell in Activesheets.usedrange
cell.value=application.worksheetfunction.clean(cell.value)
next

marche pas non plus....

A+
-------------------------------------------------------
Merci Mercatoq,

J'ai essayé, ça ne fonctionne pas....

A+

[mercatog]

Limites de Clean

Important La fonction Clean a été conçue pour supprimer les 32 premiers caractères non imprimables du code ASCII à 7 bits (valeurs entre 0 et 31) d'un texte. Dans le jeu de caractères Unicode, d'autres caractères non imprimables existent (valeurs 127, 129, 141, 143, 144 et 157). En soi, la fonction Clean ne supprime pas ces caractères non imprimables supplémentaires.

Sinon, mets un extrait de tes données à problème.

[mercatog]

A tout hasard, n'oubli pas la paramètre XlPart

Code :

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

Sheets("F").Columns(5).Replace Chr(160), "", xlPart