Suppression d'une feuille vba
david3434
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
david3434 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
david3434 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
En bidouillant pour la première fois le langage VBA j'ai créé une macro afin d’enregistrer automatiquement certaines feuilles excel sous format PDF.
Mon pb est le suivant :
Je ne sais pas pourquoi une feuille excel se crée (la feuille que justement j'enregistre sous format PDF)
Impossible pour moi d'enregistrer la page en question si je retire "
Sheets(Array("CR pour magasins")).Copy"
Enfin impossible de trouver comment effacer cette feuille !
Besoin d'aide svp je ni comprends pas grand chose :-)
Ci-dessous ma macro :
"Sub EvolutionSupersalimentairemag()
'
' EvolutionSupersalimentairemag Macro
'
'Worksheets("S" & Nom & "travail - ttes enseignes .xls").Activate
Sheets("Statut").Select
Nom = Cells(1, 3).Value
nomfichier2 = "Evol° S" & Nom & " supers alimentaires mag"
Sheets(Array("CR pour magasins")).Copy
ChDir "R:\CA Hebdo\Evolutions\Evol° supers alimentaires (ATAC et MAXI)\2016"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"R:\CA Hebdo\Evolutions\Evol° supers alimentaires (ATAC et MAXI)\2016\" & nomfichier2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub"
En bidouillant pour la première fois le langage VBA j'ai créé une macro afin d’enregistrer automatiquement certaines feuilles excel sous format PDF.
Mon pb est le suivant :
Je ne sais pas pourquoi une feuille excel se crée (la feuille que justement j'enregistre sous format PDF)
Impossible pour moi d'enregistrer la page en question si je retire "
Sheets(Array("CR pour magasins")).Copy"
Enfin impossible de trouver comment effacer cette feuille !
Besoin d'aide svp je ni comprends pas grand chose :-)
Ci-dessous ma macro :
"Sub EvolutionSupersalimentairemag()
'
' EvolutionSupersalimentairemag Macro
'
'Worksheets("S" & Nom & "travail - ttes enseignes .xls").Activate
Sheets("Statut").Select
Nom = Cells(1, 3).Value
nomfichier2 = "Evol° S" & Nom & " supers alimentaires mag"
Sheets(Array("CR pour magasins")).Copy
ChDir "R:\CA Hebdo\Evolutions\Evol° supers alimentaires (ATAC et MAXI)\2016"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"R:\CA Hebdo\Evolutions\Evol° supers alimentaires (ATAC et MAXI)\2016\" & nomfichier2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub"
A voir également:
- Suppression d'une feuille vba
- Forcer suppression fichier - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
J'ai déjà essayé mais du coup l'onglet qui s'enregistre n'est plus le bon :-/
Il enregistre l'onglet "Statut" ou il va chercher le nom du fichier à enregistrer
Comment faire pour lui dire d'enregistrer l'onglet "CR pour magasins" ? ^^
Ben oui, qui a ecrit
Sheets("Statut").Selectcode simplifie:
Sub EvolutionSupersalimentairemag() nomfichier2 = "Evol° S" & Sheets("Statut").Cells(1, 3).Value & " supers alimentaires mag" Sheets("CR pour magasins").ExportAsFixedFormat Type:=xlTypePDF, Filename:="R:\CA Hebdo\Evolutions\Evol° supers alimentaires (ATAC et MAXI)\2016\" & nomfichier2 _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End SubCa marche merci ! :-)