.xls vers .csv ou . txt

Code:

---

à condition bien sûr que ce répertoire existe déjà sous FDM

---

;)
je suis pas bon mais quand même...
les 2 ne marchent pas je pense que je vais mettre mon dossier FCMOCSV au même niveau que FDM car en sous répertoire, il ne l'avale pas.
Merci beaucoups pour ton aide
mon boulot ne s'arrette pas là, maintenant il faut que je fasse ouvrir ce fichier .csv dans un tableau HTML et si j'y arrive modifiable
connais_tu "modif inline avec AJAX"?

Arf désolé pour la précision superflue, mais parfois on loupe même le plus simple :lol:
Je ne peux pas t'aider pour la suite, désolé ;)

Code:

---

1 2 3 4 5

Print #1, "cd FDM" Print #1, "put " & fdm Print #1, "cd FCMO" Print #1, "put " & stF Print #1, "quit"

---

Et voila:yaisse2:

salut à tous, comme dab lorsqu'on fait quelque chose, les idées évolues au fur et à mesure
bref,
pour l'instant j'envoie dans .csv une plage de cellules à partir de la cellule A17 du fichier excel dont voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

On Error Resume Next If Dir("C:\TEMP\", vbDirectory) <> "" Then   stF = "C:\TEMP\" & Range("L2") & ".csv" If stF <> "Faux" Then f = FreeFile Open stF For Output As #f Set MyR = ThisWorkbook.ActiveSheet.Range("A16").CurrentRegion For Each rL In MyR.Rows If rL.Cells(14).Value = "CRE" Or rL.Cells(14).Value = "CR" Or rL.Cells(14).Value = "MC" Then For Each c In rL.Cells Print #f, c & ";"; Next Print #f, "" End If Next Close #f End If

---

est-il possible d'envoyer une 1ére partie plage définie entre la cellule "A2" et cellule "A14" puis ensuite la partie actuelle que j'envoie à partir de "A17"

Merci de votre aide

Tu crées un compteur de tes lignes et ajoute deux conditions sur tes N° de lignes :roll:
Je n'ai pas mieux sinon remplacer ta boucle for each par deux boucles for NoLig = débutPlage to finPlage :(

tu n'aurrais pas un exemple de code, car je ne sait pas comment on fait pour créer un compteur de ligne
merci

Je reprends ici

Citation:

---

Set MyR = ThisWorkbook.ActiveSheet.Range("A16").CurrentRegion
For Each rL In MyR.Rows

---

Explication à lire pour comprendre
La première ligne crée une instance de ta plage de données commençant à la ligne 16. Si la ligne précédente (la 15) n'est pas totalement vide, CurrentRegion l'inclut dans la plage. De même si la 15, la 14 la 13 sont également renseignées, elles seront incluses dans ta plage.
Je suppose donc que ta ligne 15 est totalement vide.
A partir de là, ta boucle For Each rL In MyR.Rows parcourt les lignes non vides une à une en commençant par la ligne 16 et s'arrêtera à la première ligne totalement vide.
maintenant, si tu as des lignes vides entre les lignes 2 et 16, CurrentRegion ne les prendra pas en compte.
Tout dépend donc de ça.
A la place de CurrentRegion, tu peux utiliser UsedRange. C'est pareil sauf que que cette propriété prend en compte toutes les lignes renseignées de ta feuille de calculs.
Si on fait ça, alors on peut se passer de compteur en introduisant une condition.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set MyR = ThisWorkbook.ActiveSheet.UsedRange For Each rL In MyR.Rows If (rL.row > 1 and rL.row < 13) or (rL.row >15 and rL.row < 18) then If rL.Cells(14).Value = "CRE" Or rL.Cells(14).Value = "CR" Or rL.Cells(14).Value = "MC" Then For Each c In rL.Cells Print #f, c & ";"; Next Print #f, "" End If Endif Next

---

Tu peux tester pour moi ?
Bonne journée

OK ça marche bien avec ça, je choisi mes lignes comme je le souhaite
merci beaucoups pour ton aide:king: