Discussion :

[nina_noss]

Bonjour

Est ce quelqu'un peut m'aider sur ce point en VBA:
je veux coller une variable (array of string) dans un fichier texte à partir d'une position donnée (plus exactement remplacer une partie de mon fichier texte par la variable que je veux coller).

SVP si quelqu'un sait comment procéder, qu'il m'aide parce que je débute en VBA et je bloque sur ce point.

Merci et bonne journée à tous et à toutes

[Invité]

Bonjour,

Pour cela, il faudrait mettre un minimum de votre code en ligne.

Cordialement.

[Daniel.C]

Bonjour,

La macro suivante copie le fichier source dans un array (la plage A18), ouvre le fichier texte (utilise l'enregistreur de macros pour obtenir la syntaxe correspondant à ton fichier) et copie l'array à partir de la cellule B3 :

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
Sub test()
    Dim Tablo
    Tablo = ThisWorkbook.Sheets(1).Range("A1:D8")
    Workbooks.OpenText Filename:= _
        "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\Classeur3.txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)) _
        , TrailingMinusNumbers:=True
    With ActiveWorkbook.Sheets(1)
        .[B3].Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
        Application.DisplayAlerts = False
        ActiveWorkbook.Close True
        Application.DisplayAlerts = True
    End With
 
End Sub

[nina_noss]

Re-bonjour

Merci Daniel pour la macro que tu m'as fournie, mais apparemment tu n'as pas bien saisi ce que je voulais.
en effet, j'ai une variable de type array of string:

Code :

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

dim var() as string

que je désire coller dans un fichier texte dans d'une position connue càd par exemple coller ma variable var dans la partie du fichier délimitée par la ligne "DebutTexte" et la ligne "FinTexte".
J’espère que ma question est plus claire maintenant

Eric, je vous cache pas que je n'ai pas réussi à code au vrai sens du terme. Comme j'ai précisé, je débute en VBA et je n'ai pu faire que quelques instructions simple genre pour ouvrir le fichier, le parcourir ligne par ligne ...
Je ne cherche pas une solution toute prête, mais si tu me donne quelques indices ou pistes, je te serais reconnaissante

Allez, merci tout le monde

[Daniel.C]

Code :

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

1
2
    Dim Tablo
    Tablo = ThisWorkbook.Sheets(1).Range("A1:D8")

Cette ligne remplit un array à deux dimensions avec les valeurs de la plage

Code :

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

A1:D8

.
Je regrette que tu ne l'aies pas compris.

[nina_noss]

salut Daniel

Je regrette vraiment le fait qu'on n'arrive pas à se comprendre.
Un array pour moi ce n'est pas une table dans une feuille excel.
Mais un array est un type de variable, on peut avoir un array of integer:

Code :

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

dim TabInt() as integer

ou comme dans mon cas un array of string:

Code :

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

dim TabStr() as string

Par conséquent, l'utilisation de workbooks, de sheets, de range me parait bizarre.

Si tu veux bien, relis mon avant dernier message peut être que tu me comprendras mieux.
Ou bien oublie que ma variable est de type array (car cela ne va pas influer le raisonnement) et aide moi juste à trouver une solution pour copier une chaîne de caractère dans un fichier texte dans une position donnée .

Merci Daniel pour ton temps