XL 2010 Insère ligne avec text

[hermann]

Bonjour

Svp

Aide moi insère des ligne avec son txt

merci

@

 

[soan]

Bonjour hermann,

attention : il y a 2 fichiers différents !

charge le 1er fichier v1, et fais Ctrl e ; rien ne s'est passé ? regarde dans le même répertoire que là où tu as placé les 2 fichiers Excel : tu verras en plus un fichier "Essai.bat" ; à toi de le vérifier.

une fois que c'est fait, supprime le fichier "Essai.bat"
​

---

charge le 2ème fichier v2, et fais Ctrl e ; à toi de vérifier le nouveau fichier "Essai.bat" ; il est identique ? c'est plutôt normal, hein ? vu que c'est le résultat que tu attendais ! mais sur la feuille de calcul, regarde bien le début de la colonne C.

oh ! ben ça alors ! les lignes "REM if errorlevel 1 goto abort" ne sont plus là ! et pourtant elles sont bien présentes dans le fichier "Essai.bat" !!! c'est de la magie !!! eh non, si tu lis attentivement mon code VBA, tu comprendras quelle est l'astuce que j'ai utilisé.

si tu adoptes la méthode de ce 2ème fichier, tu pourras alléger tes fichiers initiaux ! ​

---

code VBA du 1er fichier :

Option Explicit

Sub CréeEssaiBAT()
  Dim n&: n = Cells(Rows.Count, 3).End(3).Row: If n = 3 Then Exit Sub
  Dim F$, T, s1$, s2$, s3$, s4$, s5$, i&: n = n - 3: T = [C4].Resize(n, 4)
  F = ThisWorkbook.Path & "\Essai.bat": Open F For Output As #1
  Print #1, "REM Essai.bat" & vbCrLf & vbCrLf & "REM start " & Now & vbCrLf
  For i = 1 To n
    s1 = T(i, 1): s2 = T(i, 2): s3 = T(i, 3): s5 = s1
    If s2 <> "" And s3 <> "" Then s5 = s5 & " -  " & s2 & " - " & s3
    s3 = T(i, 4): If s3 <> "" Then s4 = s3
    If Right$(s1, 6) <> " abort" Then s5 = s5 & " " & s4
    Print #1, s5
  Next i
  Print #1, vbCrLf & "goto done" & vbCrLf & ":abort"
  Print #1, "echo Last FEC run failed!" & vbCrLf & ":done"
  Print #1, vbCrLf & "REM end " & Now: Close #1
End Sub

---

code VBA du 2ème fichier :

Option Explicit

Sub CréeEssaiBAT()
  Dim n&: n = Cells(Rows.Count, 3).End(3).Row: If n = 3 Then Exit Sub
  Dim F$, T, s1$, s2$, s3$, s4$, s5$, i&: n = n - 3: T = [C4].Resize(n, 4)
  F = ThisWorkbook.Path & "\Essai.bat": Open F For Output As #1
  Print #1, "REM Essai.bat" & vbCrLf & vbCrLf & "REM start " & Now & vbCrLf
  For i = 1 To n
    s1 = T(i, 1): s2 = T(i, 2): s3 = T(i, 3): s5 = s1
    If s2 <> "" And s3 <> "" Then s5 = s5 & " -  " & s2 & " - " & s3
    s3 = T(i, 4): If s3 <> "" Then s4 = s3
    s5 = s5 & " " & s4
    If Right$(s1, 3) = " -b" Then _
      s5 = s5 & vbCrLf & "REM if error level 1 goto abort"
    Print #1, s5
  Next i
  Print #1, vbCrLf & "goto done" & vbCrLf & ":abort"
  Print #1, "echo Last FEC run failed!" & vbCrLf & ":done"
  Print #1, vbCrLf & "REM end " & Now: Close #1
End Sub

---

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

[hermann]

Bonjour,

Merci pour votre répons!
J'ai test ...
Je revient après vers vous

@

 

[hermann]

J'ai oublier de vous dire:
L'origine d'utiliser les nouveau paramètre, vient d'un ancienne commande DOS en 2010, sous une nouvelle manière (moderne). Elle me permet d'utiliser cette prog pour calculer les pièces disponible en fin partie pour le jeux aux échecs. Actuellement pour moi, j'au utilise 6 (mannens) pièces. Le calcule et longue au très longue. J'ai ne pas un accès au calculateur d'Orsay. L'ensemble des résultats vont au Terra ... Pronominale: "kbbbbk" = 64^4 sa vous donne des MB pour une position pour le blanc et séparément pour les noir. Sa dépeint avec quelle couleur vous jouer après.

Bonne chance

@

Nota bene:
J'ai trouver un solution pour PowerShell. v3 sur un pc de 32 et 64 bit:
Pour ceux qui sont curieux comme moi voici le code, le reste je vous le donne par mail. le txt est en anglais:

cls # claire screen (effacement d'écran)

 # le début d'un txt sans valeur

"kbbbbk",  # 1 début: 29.05.2021 - 1h00; fin le 29.05.2021 - 15h47
"kbbbkb",  # 2 fin le 29.05.2021 - 22h23
"kbbbkn",  # 3 29.05.2021 - 22h30; fin 30.05.2021 - 12h36
"kbbbkq",  # 4 30.05.2021 - 12h37; après une heures: restart avec un zéro 13h28; fin 19h21
"kbbbkr",  # 5 30.05.2021 - 20h15; fin 31.05.2021 - 7h45
"kbbbnk",  # 6 31.05.2021 - 7h46;
"kbbbkp",  # 7 31.05.2021 - 7h50; sur PowerShell direct (en parelle) :: mais annulle  pour l'instant ...
"kbbbpk",  # 8
"kbbkbb",
"kbbkbn",
"kbbkbp",
"kbbknn",
"kbbknp",
"kbbkpp",
"kbbnkb",
"kbbnkn",
"kbbnkp",
"kbbnkq",
"kbbnkr",
"kbbnnk",
"kbbnpk",
"kbbpkb",
"kbbpkn",
"kbbpkp",
"kbbpkq",
"kbbpkr",
"kbbppk",
"kbnkbn",
"kbnkbp",
"kbnknn",
"kbnknp",
"kbnkpp",
"kbnnkb",
"kbnnkn",
"kbnnkp",
"kbnnkq",
"kbnnkr",
"kbnnnk",
"kbnnpk",
"kbnpkb",
"kbnpkn",
"kbnpkp",
"kbnpkq",
"kbnpkr",
"kbnppk",
"kbpkbp",
"kbpknn",
"kbpknp",
"kbpkpp",
"kbppkb",
"kbppkn",
"kbppkp",
"kbppkq",
"kbppkr",
"kbpppk",
"knnknn",
"knnknp",
"knnkpp",
"knnnkb",
"knnnkn",
"knnnkp",
"knnnkq",
"knnnkr",
"knnnnk",
"knnnpk",
"knnpkb",
"knnpkn",
"knnpkp",
"knnpkq",
"knnpkr",
"knnppk",
"knpknp",
"knpkpp",
"knppkb",
"knppkn",
"knppkp",
"knppkq",
"knppkr",
"knpppk",
"kppkpp",
"kpppkb",
"kpppkn",
"kpppkp",
"kpppkq",
"kpppkr",
"kppppk",
"kqbbbk",
"kqbbkb",
"kqbbkn",
"kqbbkp",
"kqbbkq",
"kqbbkr",
"kqbbnk",
"kqbbpk",
"kqbkbb",
"kqbkbn",
"kqbkbp",
"kqbknn",
"kqbknp",
"kqbkpp",
"kqbkqb",
"kqbkqn",
"kqbkqp",
"kqbkrb",
"kqbkrn",
"kqbkrp",
"kqbkrr",
"kqbnkb",
"kqbnkn",
"kqbnkp",
"kqbnkq",
"kqbnkr",
"kqbnnk",
"kqbnpk",
"kqbpkb",
"kqbpkn",
"kqbpkp",
"kqbpkq",
"kqbpkr",
"kqbppk",
"kqnkbb",
"kqnkbn",
"kqnkbp",
"kqnknn",
"kqnknp",
"kqnkpp",
"kqnkqn",
"kqnkqp",
"kqnkrb",
"kqnkrn",
"kqnkrp",
"kqnkrr",
"kqnnkb",
"kqnnkn",
"kqnnkp",
"kqnnkq",
"kqnnkr",
"kqnnnk",
"kqnnpk",
"kqnpkb",
"kqnpkn",
"kqnpkp",
"kqnpkq",
"kqnpkr",
"kqnppk",
"kqpkbb",
"kqpkbn",
"kqpkbp",
"kqpknn",
"kqpknp",
"kqpkpp",
"kqpkqp",
"kqpkrb",
"kqpkrn",
"kqpkrp",
"kqpkrr",
"kqppkb",
"kqppkn",
"kqppkp",
"kqppkq",
"kqppkr",
"kqpppk",
"kqqbbk",
"kqqbkb",
"kqqbkn",
"kqqbkp",
"kqqbkq",
"kqqbkr",
"kqqbnk",
"kqqbpk",
"kqqkbb",
"kqqkbn",
"kqqkbp",
"kqqknn",
"kqqknp",
"kqqkpp",
"kqqkqb",
"kqqkqn",
"kqqkqp",
"kqqkqq",
"kqqkqr",
"kqqkrb",
"kqqkrn",
"kqqkrp",
"kqqkrr",
"kqqnkb",
"kqqnkn",
"kqqnkp",
"kqqnkq",
"kqqnkr",
"kqqnnk",
"kqqnpk",
"kqqpkb",
"kqqpkn",
"kqqpkp",
"kqqpkq",
"kqqpkr",
"kqqppk",
"kqqqbk",
"kqqqkb",
"kqqqkn",
"kqqqkp",
"kqqqkq",
"kqqqkr",
"kqqqnk",
"kqqqpk",
"kqqqqk",
"kqqqrk",
"kqqrbk",
"kqqrkb",
"kqqrkn",
"kqqrkp",
"kqqrkq",
"kqqrkr",
"kqqrnk",
"kqqrpk",
"kqqrrk",
"kqrbbk",
"kqrbkb",
"kqrbkn",
"kqrbkp",
"kqrbkq",
"kqrbkr",
"kqrbnk",
"kqrbpk",
"kqrkbb",
"kqrkbn",
"kqrkbp",
"kqrknn",
"kqrknp",
"kqrkpp",
"kqrkqb",
"kqrkqn",
"kqrkqp",
"kqrkqr",
"kqrkrb",
"kqrkrn",
"kqrkrp",
"kqrkrr",
"kqrnkb",
"kqrnkn",
"kqrnkp",
"kqrnkq",
"kqrnkr",
"kqrnnk",
"kqrnpk",
"kqrpkb",
"kqrpkn",
"kqrpkp",
"kqrpkq",
"kqrpkr",
"kqrppk",
"kqrrbk",
"kqrrkb",
"kqrrkn",
"kqrrkp",
"kqrrkq",
"kqrrkr",
"kqrrnk",
"kqrrpk",
"kqrrrk",
"krbbbk",
"krbbkb",
"krbbkn",
"krbbkp",
"krbbkq",
"krbbkr",
"krbbnk",
"krbbpk",
"krbkbb",
"krbkbn",
"krbkbp",
"krbknn",
"krbknp",
"krbkpp",
"krbkrb",
"krbkrn",
"krbkrp",
"krbnkb",
"krbnkn",
"krbnkp",
"krbnkq",
"krbnkr",
"krbnnk",
"krbnpk",
"krbpkb",
"krbpkn",
"krbpkp",
"krbpkq",
"krbpkr",
"krbppk",
"krnkbb",
"krnkbn",
"krnkbp",
"krnknn",
"krnknp",
"krnkpp",
"krnkrn",
"krnkrp",
"krnnkb",
"krnnkn",
"krnnkp",
"krnnkq",
"krnnkr",
"krnnnk",
"krnnpk",
"krnpkb",
"krnpkn",
"krnpkp",
"krnpkq",
"krnpkr",
"krnppk",
"krpkbb",
"krpkbn",
"krpkbp",
"krpknn",
"krpknp",
"krpkpp",
"krpkrp",
"krppkb",
"krppkn",
"krppkp",
"krppkq",
"krppkr",
"krpppk",
"krrbbk",
"krrbkb",
"krrbkn",
"krrbkp",
"krrbkq",
"krrbkr",
"krrbnk",
"krrbpk",
"krrkbb",
"krrkbn",
"krrkbp",
"krrknn",
"krrknp",
"krrkpp",
"krrkrb",
"krrkrn",
"krrkrp",
"krrkrr",
"krrnkb",
"krrnkn",
"krrnkp",
"krrnkq",
"krrnkr",
"krrnnk",
"krrnpk",
"krrpkb",
"krrpkn",
"krrpkp",
"krrpkq",
"krrpkr",
"krrppk",
"krrrbk",
"krrrkb",
"krrrkn",
"krrrkp",
"krrrkq",
"krrrkr",
"krrrnk",
"krrrpk",
"krrrrk" | foreach {c:\users\admin\downloads\egdb\feg.exe -b $_}

 

[hermann]

Bonjour
Merci pour votre contribution.
Tout va très bien!
Donc résolu

@

Nota bene
Reste en bonne sante!

 

[soan]

Bonjour hermann,

merci pour ton retour d'infos !

bonne santé à toi aussi !

soan