Discussion :

[yuyu599]

Bonjour le forum !
Alors je suis fasse à un problème et je ne sais pas si mon problème peut être résolu via excel, je vous le présente :
Je possède un fichier excel avec une colonne contenant 10 mots : jean, pierre, martin etc
Je possède 10 fichiers texte 1.txt, 2.txt, 3.txt etc qui contiennent tous à l'intérieur la variable "[nom]".
je voudrais via une macro je suppose, que excel ouvre mon fichier 1.txt et remplace [nom] par le premier mot de la colonne ( jean ) puis il ouvre le deuxième fichier 2.txt et remplace la variable par le deuxième mot de la colonne ( pierre) etc..
Pensez vous que cela soit possible ? et si oui comment ? :-)

Merci de vos retours !

[Menhir]

As-tu essayé de faire ça par publipostage dans Word ?
Parce que ce que tu décris ressemble beaucoup à du publipostage.

[Daniel.C]

Bonjour,

Quelle est la structure de tes fichiers texte ? La variable (ce que tu nommes "variable" est je suppose une chaîne de texte contenant "[nom] ?) a-t-elle un emplacement défini dans ces fichiers ?

[yuyu599]

Merci de vos réponses !
Alors je ne connais pas le publipostage mais je vais me renseigner dessus voir si cela peut faire le job.
Ensuite ma variable [nom] correspond à une chaine de caractère avec un emplacement aléatoire dans le fichier texte qui ressemble à cela :
Bonjour je suis [nom], je travaille en mathématique etc ....

[Daniel.C]

Bonjour,

Essaie la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test1()
  Dim Chemin As String, Variable As String, Fichiers As Variant, I As Integer, Plage As Range
  Chemin = "C:\Users\dcola\OneDrive\mpfe"
  Variable = "toto"
  Set Plage = Range("A1")
  Fichiers = Array("test1.txt", "test1.txt", "test1.txt", "test1.txt", "test1.txt", _
    "test1.txt", "test1.txt", "test1.txt", "test1.txt", "test1.txt")
  For I = 0 To 9
    Workbooks.OpenText Chemin & "\" & Fichiers(I), DataType:=xlDelimited, Tab:=True
    Cells.Replace Variable, Plage.Offset(I).Value
    ActiveWorkbook.Close True
  Next I
End Sub

Il faut que tu remplaces le dossier de la variable "Chemin" et la valeur à remplacer dans "Variable". Renseigne aussi le nom de tes fichiers dans la variable "Fichiers".

[yuyu599]

Je me suis renseigner sur le publipostage sous word mais visiblement cela fonctionne si le fichier possède la meme structure ? ce qui n'est pas mon cas :-(
Je vais essayer la macro excel je vous tiens au courant !

[yuyu599]

Ok cela fonctionne avec la macro grand merci !!
Par contre j'obtiens à la fin : erreur d"execution 9 l'indice n'appartient pas à la sélection , mais la variable est bien remplacée quand meme dans les fichiers.
Par contre cela ne marche pas si l'extension est en . php ou .html :-(
exemple avec du code html : il me modifie le code qui était bon par : "<img alt=""alt"" border=""1"" src=""img/img.jpg"" align=""right"">"