Discussion :

[TabbHonmin]

Bonjour,

j'ai crée une macro simple permettant de copier des cellules dans un fichier .txt

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton3_Clic()
    i = Var
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("C:\Users\Tabb\Desktop\Divers\DL\Nouveau Feuille Microsoft Office Excel\macro.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    For i = 2 To 5
        ts.write Worksheets("Feuil1").Cells(i, 1).Value + Worksheets("Feuil1").Cells(i, 3).Value + Worksheets("Feuil1").Cells(i, 2).Value + Chr(13) & Chr(10)
    Next i
    ts.Close
End Sub

Exemple (3lignes et 3 colonnes) :
MP 211 21214400000100
MP 211 21214400000200
MP 211 21214440000100

Donne ceci dans le .txt:

MP21121214400000100
MP21121214400000200
MP21121214440000100

J'ai utilisé cette macro dans un fichier sans problème. Maintenant je dois l'utiliser dans un fichier complètement indépendant (mais avec le même type de donnée), j'ai donc adapté le code en conséquence.
Mais voilà, la colonne 2 (celle où se trouvent les 211 dans l'exemple) pose problème. En effet si je supprime la partie orange, ça fonctionne. Si je la paisse, j'ai droit à l'erreur 13.

J'avoue être dépassé là.

Merci de votre aide.

[mercatog]

Bonjour
Utilise & à la place du + (ambiguïté entre le plus de la somme et de la concaténation (de moins en moins utilisé))

[MattChess]

Error 13: Type mismatch provient de l'absence de conversion nombre vers String lors de la concaténation des valeurs des trois premières cellules.

Par rapport à la solution précédente de l'opérateur & de concaténation,
on peut rendre explicite la conversion nombre vers String en remplaçant la boucle For

Code :

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

1
2
3
For i = 2 To 5
ts.write Worksheets("Feuil1").Cells(i, 1).Value + Worksheets("Feuil1").Cells(i, 3).Value + Worksheets("Feuil1").Cells(i, 2).Value + Chr(13) & Chr(10)
Next i

par :

Code :

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

1
2
3
4
5
With Worksheets("Feuil1")
    For i = 2 To 5
        ts.write CStr(.Cells(i, 1)) + CStr(.Cells(i, 3)) + CStr(.Cells(i, 2)) + vbCrLf
    Next
End With

On a factorisé Worksheets("Feuil1") dans With ... End With pour la performance.
Dans la concaténation, on a conservé l'étrange inversion dans l'ordre des colonnes des cellules : 1, 3 puis 2.
On n'a pas besoin d'indiquer .Value pour accéder à la valeur de Cells(row, column).

Maintenant je dois l'utiliser dans un fichier complètement indépendant (mais avec le même type de donnée)

Comme le type de chacune des trois colonnes de la feuille de calcul n'a pas été indiqué,
-- la 2eme colonne est-elle une colonne de nombre tel que 211 ou de String "211" ? --
on force la conversion nombre vers String avec la fonction CStr(nombre).

[MattChess]

Dans la fenêtre d'Exécution immédiate (Ctrl+G) du VBE d'Excel, on a conservé l'ordre des colonnes
de la feuille de calcul qui comprend en première rangée les trois cellules suivantes :
Cells(1,1) = "MP": Cells(1,2) = 211: Cells(1,3) = "21214400000100"
soit une String, un nombre et une String.

Code :

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

? CStr(Cells(1,1)) + CStr(Cells(1,2)) + CStr(Cells(1,3))

MP21121214400000100

Code :

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

? TypeName(CStr(211))

String

Code :

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

? CStr("MP")

MP
Dans les colonnes comme la 1ere où on est sûr que la colonne est de type String,
on peut enlever la conversion vers String avec CStr(Cells(i,1)) qui redevient Cells(i,1) lors de la concaténation.