Export d'un onglet sous condition...modification de code

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.
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
 

Pièces jointes

  • Xld.xls
    16 KB · Affichages: 36
  • Xld.xls
    16 KB · Affichages: 41
  • Xld.xls
    16 KB · Affichages: 42

Discussions similaires

Statistiques des forums

Discussions
314 495
Messages
2 110 215
Membres
110 706
dernier inscrit
debby.f1