Macro pour enlever les espaces

[CYRIL]

Bonsoir à toutes et à tous,
J'ai un problème du à l'exportation vers excel de données access, Dan a diagnostiqué le problème (je me trouve avec des espaces pour tous les nombres > à 999 même si l'option séparateur est décochée), résultat, mes chiffres sont considérés comme du texte!!! donc impossible de réaliser la moindre formule.
Par conséquent, existe-t-il une solution automatisée pour enlever ces espaces? je pense à une macro mais je ne suis pas assez expert pour la réaliser.
Merci d'avance pour votre aide.
A bientôt,
Cyril

 

[schmail]

Bonsoir Cyril

J'ai trouvé cette formule sur l'XLent site de FS
<http://perso.wanadoo.fr/frederic.sigonneau/>

Function Nettoie(S$)
With Application
Nettoie = .Substitute(S, Chr(160), "")
Nettoie = .Clean(Nettoie)
Nettoie = .Substitute(Nettoie, " ", "")
End With
End Function 'fs

@+

 

[CYRIL]

Merci pour ton aide,
Je pense que je ne dois pas bien utiliser cette commande, rassure moi, il faut bien que je la copie dans un module VBA? C'est ce que je fais et j'ai le message "erreur de compilation". Quelle erreur ais-je faite?
Merci et bonne fin de semaine
A+

 

[schmail]

Re Bonsoir Cyril

Il est d'usage ds le forum de ne pas poursuivre les discussions ds les Boites Aux Lettres perso...

Parce que cela empèche les autres membres du forum de bénéficier des conseils donnés et de plus cela t'empèche également de bénéficier de la variété des conseils que peut apporter le forum...

Merci tout de même pour ton mail de remerciement. Cela fait tjs plaisir ;-)

En espérant que l'exemple en PJ te satisfera @+