Discussion :

[Oum le dauphin]

Bonjour;
J'ai un petit problème avec une de mes macro.

J'ai importer un fichier texte à l'aide d'une macro dans une feuille de mon tableur.
j'ai dans la colonne C des heures mais elles sont sous cette forme :
"08:48:37"
"08:49:37"
"08:50:37"
....
Les apostrophes qui les entourent me gênent pour mes calculs.

j'ai essayé de les supprimer avec différents codes;
comme celui là que j'ai l'habitude d'utiliser:

Code :

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

1
2
3
4
5
 
    Columns("C:C").Select
    Selection.Replace What:=" " ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

mais vu que le caractère à supprimer est :", cela pose problème dans le code;
j'ai également essayé de mettre plusieurs séparateur lors de mon importation, en vain.
Je suis vraiment bloqué;
Merci de votre aide
Alex.

[mercatog]

Code :

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

Worksheets("Feuil1").Range("C:C").Replace """", "", xlPart

ou bien

Code :

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

Worksheets("Feuil1").Range("C:C").Replace Chr(34), "", xlPart

[Daniel.C]

Bonjour,

Code :

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

Columns(3).Replace """", ""

[Jean-Philippe André]

salut,

une utiklisation du macro recorder devrait t'aider à trouver par toi-même

[Oum le dauphin]

Merci bcp

J'avais essayé avec l'enregistrement de macro,, je l'essaye toujours en 1er, mais ça m'a pas vraiment aider.

[bilou23]

Ca pourrait t'aider :

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\...\exemple.txt", Destination:= _
        Range("$A$1"))    
        .Name = "exemple"
        .TextFileOtherDelimiter = ","     'caractères séparés par une virgule
        .Refresh BackgroundQuery:=False
    End With

[fring]

Ca pourrait t'aider :

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\...\exemple.txt", Destination:= _
        Range("$A$1"))    
        .Name = "exemple"
        .TextFileOtherDelimiter = ","     'caractères séparés par une virgule
        .Refresh BackgroundQuery:=False
    End With

Tu ne te serais pas trompé de discussion...?