La fonction remplacer qui ne fonctionne pas dans une macro

Bonjour,

J'ai crée une macro qui ouvre un fichier texte et remplace tout les "." par ",". elle ne fonctionnait pas je l'ai donc enregistré (c'est donc excel qui code). Mais lorsque j'applique la macro elle ouvre le fichier mais bloque au moment de remplacé et me dit " Erreur d'execution 1004", la formule que vous tapé contient une erreur" alors que c'est lui qui la ecrite!!

voici le code:

ChDir "D:\DONNEES\User\Caneau\New_SCF\copie-Scf"

Workbooks.OpenText Filename:= _

"D:\DONNEES\User\Caneau\New_SCF\copie-Scf\FRAG.RES", Origin:=xlWindows, _

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(3, _

1), Array(15, 1), Array(23, 1), Array(35, 1), Array(51, 1), Array(67, 1), Array(80, 1), _

Array(93, 1), Array(106, 1))

Cells.Select

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

il bloque sur la partie en gras

Merci d'avance!!

Nouveau bug!

j'avai des signe = sur les premiere ligne, je me suis dit ok il doit pas aimé ce symbole donc dans la macro j'ai ajouter une étape de suppression des premieres lignes possant probleme.

La du coup ok il passe en revue toute les cellules mais cette fois il remplace les "." par rien les chiffres passe de 1.2 à 12!! et il me coche la casse "utiliser le separateur des millier" dans "format de celulle" !!!!!!!!!!!!!!!!!!!

alors la je vois pas du tout comment faire surtout que cette étape est primordiale pour continuer ma macro (qui risque d'etre longue en plus)

Merci à vous

Bonjour,

Les cellules à modifier , c'est du texte ou du numérique ?

Amicalement

Claude.

et bien c'est tirer d'un fichier .res donc normalement c'est du texte.

re,

tu vérifie la plage de cellule

Sub Remplace()
Dim Cel As Range
    For Each Cel In Range("a1:a106") '*** plage à régler
        Cel = WorksheetFunction.Substitute(Cel, ".", ",")
    Next Cel
End Sub

Bonne soirée

Claude.

Bonsoir à tous,

çà valait pour le moins une réponse !

Claude.

oui!!

Completement désolé! a force de mettre des poste j'en oubli...

Oui ca marche impec je vous remerci c'est parfait!!

(si vous gerer autan pour le message "veuillez patientez" je serai le plus heureux des utilisateur excel!!!)

Cordialement