Editer un fichier SRL avec script de base en fonction des variables

Bonjour,

J'espère que vous pourrez me venir en aide .

Mon problème est le suivant: Dans un seul et même fichier Excel, j'ai sur l'onglet "Script Nexus" un partie du script que je dois adapter à mes variables (FIELDxx du script) présentes dans l'onglet "Data Nexus" (col A:A = FIELD01, 02,03,04,05,06,07,08,09, col J:J = FIELD30). J'ai également un onglet "Script Settings" qui me sert uniquement à générer le nom du fichier SRL.

Ce que je souhaiterais, c'est générer un fichier SRL reprenant le script de base ("Script Nexus"), nommé selon la cellule A1 de la feuille "Script Settings" et s'enregistrant dans le même dossier que le fichier Excel, dans lequel il y aurait l'intégralité du script adapté selon les FIELDxx pour chaque ligne de la feuille "Data Nexus", c'est à dire pour chaque "numvag". Le nombre de ligne dans "Data Nexus" est aléatoire et peut donc varier.

J'ai tenté pas mal de choses mais sans succès car à l'évidence, c'est au dessus de mes compétences en vba . Je sais que c'est beaucoup demander et merci à celles et ceux qui prendront le temps de me répondre!

bonjour,

pas sûr d'avoir tout compris mais voici une proposition

Sub aargh()
    Set wss = Sheets("script nexus")
    Set wsd = Sheets("data nexus")
    nf = Sheets("script settings").Range("A1") 'nom fichier
    dl = wss.Cells(Rows.Count, 1).End(xlUp).Row
    tb = Application.Transpose(wss.Range("A1").Resize(dl, 1))
    texte = Join(tb, vbCrLf) 'modèle du script
    dl = wsd.Cells(Rows.Count, 1).End(xlUp).Row
    tb = wsd.Range("A1").Resize(dl, 10)
    Open ThisWorkbook.Path & "/" & nf For Output As #1
    For i = 2 To dl - 2
        Script = texte
        For j = 1 To 10
            'Script = Replace(Script, "<" & UCase(tb(dl, j)) & ">", tb(i, j)) 'remplacement des <FIELDxx> par les données correspondantes
            Script = Replace(Script, UCase(tb(dl, j)), tb(i, j)) 'remplacement des FIELDxx par les données correspondantes
        Next j
        Write #1, Script & vbCrLf 'écriture du script
    Next i
    Close
End Sub

Bonjour, cela fonctionne parfaitement! Un grand merci à vous!

Bonjour, je reviens sur le résultat obtenu grâce au code proposé plus haut. Le code fonctionne parfaitement. Cependant, dans le fichier SRL, le script s'écrit avec des guillemets supplémentaires non prévus dans le modèle du script (onglet "Script Nexus"). J'ai fait de nombreuses recherches et tenté de régler le problème par moi-même en vain.

Auriez-vous une idée pour ne pas générer de doubles guillemets à l'écriture du Script, là ou dans le "Script Nexus", il n'en n'est demandé qu'une paire svp?

Résultat attendu: TypeString ("W2")