choupi_nette
XLDnaute Occasionnel
Bonjour le forum,
J'ai une question que je ne sais pas resoudre donc je sollicite votre aide..
J'ai une macro qui me fait tout un tas de calculs, et créée OU pas un onglet qui devra etre exporté.
Seulement l'export dependra de si oui ou non cet onglet a été crée !
Pour faire simple, deux options possibles:
1/ ma macro crée l'onglet (qui s'appelle P7) et donc il devra etre exporté tel qu'il est en csv (onglet1 dans mon exemple)
2/ ma macro ne crée pas cet onglet (car pas besoin) mais il faudra quand meme creer un export sous le nom P7 qui devra etre comme dans le fichier joint (onglet 2)
Il faut des 0 partout dans l'onglet 2 car cette macro aliment un appareil qui a besoin d'un fichier meme avec des 0 !!
Merci pour votre aide
Pour info le code actuel qui m exporte l'onglet
Ce code exporte cet onglet QUE si il est crée par la macro précédente.
J'ai une question que je ne sais pas resoudre donc je sollicite votre aide..
J'ai une macro qui me fait tout un tas de calculs, et créée OU pas un onglet qui devra etre exporté.
Seulement l'export dependra de si oui ou non cet onglet a été crée !
Pour faire simple, deux options possibles:
1/ ma macro crée l'onglet (qui s'appelle P7) et donc il devra etre exporté tel qu'il est en csv (onglet1 dans mon exemple)
2/ ma macro ne crée pas cet onglet (car pas besoin) mais il faudra quand meme creer un export sous le nom P7 qui devra etre comme dans le fichier joint (onglet 2)
Il faut des 0 partout dans l'onglet 2 car cette macro aliment un appareil qui a besoin d'un fichier meme avec des 0 !!
Merci pour votre aide
Pour info le code actuel qui m exporte l'onglet
Ce code exporte cet onglet QUE si il est crée par la macro précédente.
Sheets("CD").Select
For i = 1 To ThisWorkbook.Sheets.count
If Sheets(i).Name = Sheets("CD").Range("O12").Value Then
rep = ActiveWorkbook.Path & "\"
nom_feuille2 = Sheets("CD").Range("O12")
Sheets(nom_feuille2).Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & nom_feuille2, FileFormat:=xlCSVMSDOS
.Close True
Workbooks.OpenText Filename:=rep & nom_feuille2
ActiveWorkbook.Save
ActiveWorkbook.Close True
End With
End If
Next