Aide Vba rechercher remplacer

Ha super!!!! Merci pour cette première correction. Tu pourras me mettre les explications pour que je comprenne bien.
Pour la colonne J... Le but est de pouvoir faire des sommes par la suite. Je stocke en fichier .txt les données, mais je les exploite via .xlsx.
J'ai l'impression que si je fais juste la 1ère opération, ça fonctionnerait non ?
Columns("J:J").Select
Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Bonjour,

Tu pourras me mettre les explications pour que je comprenne bien.
Lorsque tu utilises

Selection.Replace

excel fonctionne en alphabétique alors qu'avec

CDate(Replace

le résultat est une date.

If InStr(1, cel, "/")

vérifie que c'est une date en entrée sinon on plante sur la cellule titre.

ActiveSheet.UsedRange.Columns("G:G").Cells

permet de ne traiter que les cellules utiles.

J'ai l'impression que si je fais juste la 1ère opération, ça fonctionnerait non ?
Cela devrait fonctionner car tu vas sauvegarder avec le point mais comme c'est ton séparateur décimal, lorsque tu vas ouvrir, cela fonctionnera.

Bonjour,

Le format date n'est plus respecté
Lorsque tu ouvres ton fichier .txt, il te faut définir le format de la colonne date en JMA.
Pour le format nombre c'est à toi de vérifier quel est ton délimiter décimal : pour moi avec le point cela fonctionne correctement en "standard".

En fait, tout fonctionne parfaitement. Quand je fais le pas à pas détaillé, je vois que tout s'enchaîne bien et les formats sont respectés. C'est une fois que le fichier est fermé que ça bouscule tout.
Si je mets :
ActiveWorkbook.SaveAs Filename:=Fichier & ".txt", FileFormat:=xlText, CreateBackup:=False
--> Le fichier .txt qui est créé ne respecte plus le format date et nombre.

Si je mets :
ActiveWorkbook.SaveAs Filename:=Fichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
--> Le fichier .xlsx respecte bien le format date, mais pas le format Nombre...

On pourrait pas imaginer en Vba l'équivalent de la formule Cnum() ?

Y'a quand même un truc qui m'échappe... A m'en arracher les cheveux.
Si dans mon code, je termine en écrivant
ActiveWorkbook.SaveAs Filename:=Fichier & ".txt", FileFormat:=xlText, CreateBackup:=False
'ActiveWorkbook.Close
Donc il me ferme le fichier texte tout seul comme un grand... Quand j'ouvre ensuite ce fichier, les formats date et nombre ne sont pas respectés.
Par contre, j'ai fait le test, sans mettre
'ActiveWorkbook.Close
Je suis donc obligé de moi-même cliquer sur la croix en haut à droite du fichier pour fermer, cliquer sur Oui Voulez-vous enregistrer les modifications apportées et recliquer sur Oui ...peut contenir des informations non compatibles avec Texte... et blablabla...
Et LA, quand j'ouvre ensuite le fichier .txt, tout est propre!
D'où mon interrogation... Y'a-t-il un bout de code à ajouter entre ActiveWorkbook.SaveAs Filename:=Fichier & ".txt", FileFormat:=xlText, CreateBackup:=False
et
'ActiveWorkbook.Close
pour ne pas à avoir toutes les étapes à faire en manuel ?

Bonsoir,

Tu pourrait peut-être essayer :

ActiveWorkbook.SaveAs Filename:=Fichier & ".txt", FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False