Macro pour faire un CSV à enregistrer dans un dossier
Bonjour,
Je ne suis pas trop calé en macros. J'ai trouvé celle-ci qui me conviendrai parfaitement à une modification près :
Sub Batigest()
Dim Plage As Object, oL As Object, oC As Object, Tmp$, Sep$
Sep = ";"
Set Plage = ActiveSheet.Range("B23:D38") ' & ActiveSheet.Range("A65500").End(xlUp).Row)
Open "NomFich.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
Le problème c'est que l'enregistrement se fait dans "Mes documents" : je voudrai lui indiquer le chemin et lui indiquer que le nom du fichier est la valeur d'une des cellules auquel il faut ajouter l'extention csv
Merci d'avance
End Sub
Hi,
Quand tu fais un Open, c'est pour créer le .csv non ? Quid de définir le truc comme
adresse du fichier = thisworkbook.Sheets("ta_feuille").range("A1").value
Open adresse_du_fichier & "NomFich.csv" For Output As #1Évidement ! je te remercie.
Peut-on éviter d'avoir des lignes à "0" lorsque leur valeur est nulle ?