Export si l'onglet existe...

[choupi_nette]

Bonjour,
Je cherche a mettre l'export d'un fichier sous condition:
Dans la macro suivante je dois exporter en csv un onglet qui a ete cree precedemment
Si il a été crée dans le code (quelques lignes plus haut) il faut qu il soit exporté sinon annuler l'export
Est ce que quelqu'un sait faire ca ?
voici le code:

Sub export ()
Sheets("C_P").Select
rep = ActiveWorkbook.Path & "\"
nom_feuille2 = Sheets("C_P").Range("O12")
Sheets(nom_feuille2).Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & nom_feuille2, FileFormat:=xlCSVMSDOS
.Close True
End With

End Sub

 

[GeoTrouvePas]

Re : Export si l'onglet existe...

Bonjour,

Je ne crois pas que l'on puisse véritablement tester la présence d'un onglet ou pas. Mais d'autres solutions existent :

Puisque tu as besoin de ce test, je suppose que la création du nouvel onglet n'est pas systématique. Tu peux créer une variable public qui prendra la valeur True si lors de la création de l'onglet (et False dans le cas contraire). Ainsi, lorsque tu dois faire ton export, tu as juste à vérifier la valeur de cette variable.

Sinon tu peux faire, juste avant de lancer ton export, une boucle de ce type :

For i = 1 To ThisWorkbook.Sheets.Count
    If Sheets(i).Name = "OngletQueJeRecherche" Then
'ton code d'export
    End If
Next

Ainsi, si ton onglet n'existe pas, ton export n'est pas lancé.

 

[choupi_nette]

Re : Export si l'onglet existe...

merci merci merci c'est juste parfait
T es loin d'etre un geotrouvepas...
A +

 

[GeoTrouvePas]

Re : Export si l'onglet existe...

De rien. GeoTrouvePas s'était lors de mon inscription sur le forum. Grâce à ses participants, j'ai fait pas mal de progrès. Je vais bientôt pouvoir me rebaptiser en GeoTrouveUnPeu ^^