Discussion :

[Avatar36]

Bonjour,

J'ai réalisé une marco pour importer automatiquement les données d'un fichier texte mais une fois les données copiée, je ne peux plus faire d'opérations sur les cellules. J'ai tout de suite pensé au format des cellules mais ce n'est pas ça, elles sont bien sur standard (et j'ai aussi essayé nombre sans succès). Voila ma macro:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Application.DisplayAlerts = False
    Sheets.Add.Name = "Copie (temporaire)"
    ImportText pipecoldPath, Worksheets("Copie (temporaire)").Range("A1")
    Worksheets("Copie (temporaire)").Cells.Replace What:=".", Replacement:=","
    Worksheets("Copie (temporaire)").Cells.Select
    Selection.Copy
    Worksheets("from ANSYS (cold)").Activate
    Worksheets("from ANSYS (cold)").Range("A1").Select
    ActiveSheet.Paste
    Sheets("Copie (temporaire)").Delete
Application.Calculate
 
 
 
Sub ImportText(FileName As String, PosImport As Range)
    Dim QT As QueryTable
    Worksheets("copie (temporaire)").Activate
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierSingleQuote
        .TextFileParseType = xlGeneralFormat
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileConsecutiveDelimiter = True
        .TextFileSpaceDelimiter = True
        .TextFileTrailingMinusNumbers = True
        .Refresh
    End With
End Sub

Je vous ai pas mis tout le code, juste ce qui est important. Les variables sont bien toutes définies et le code marche. A mon avis ça vient des propriétés de QT (juste après with QT) mais je ne sais pas quoi rajouter.
Merci de votre aide.

Cordialement

[PMO2017]

Bonjour,

Peut être qu'Excel interprète toutes les données comme de type String.
Une fois vos données montées dans une feuille, essayez d'appliquer le code suivant pour forcer les données en numérique.

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
17
Sub aa()
Dim R As Range
Dim var
Dim i&
Dim j&
'---
Set R = ActiveSheet.UsedRange
var = R
For i& = 1 To UBound(var, 1)
  For j& = 1 To UBound(var, 2)
    If IsNumeric(var(i&, j&)) And var(i&, j&) <> "" Then
      var(i&, j&) = var(i&, j&) * 1
    End If
  Next j&
Next i&
R = var
End Sub

[Avatar36]

ça marche impect. C'était bien ça le problème.

MERCI!