Suppression d'une feuille vba
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"
1 réponse
-
Bonjour,
Ca ouvre un classeur pas une feuille
c'est cette ligne qui le faitSheets(Array("CR pour magasins")).Copy
enlevez la-
-
@david3434Re,
Ben oui, qui a ecritSheets("Statut").Select
code 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 Sub -
-
