Suppression d'une feuille vba

Fermé

david3434 Messages postés 31 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 28 juin 2017 - 26 oct. 2016 à 10:50
david3434 Messages postés 31 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 28 juin 2017 - 26 oct. 2016 à 14:32

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"

A voir également:

Suppression d'une feuille vba
Forcer suppression fichier - Guide
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Suppression compte instagram - Guide
Feuille a5 - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 oct. 2016 à 11:10

Bonjour,

Ca ouvre un classeur pas une feuille
c'est cette ligne qui le fait

Sheets(Array("CR pour magasins")).Copy

enlevez la

david3434 Messages postés 31 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 28 juin 2017
26 oct. 2016 à 11:28

Bonjour,

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" ? ^^

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > david3434 Messages postés 31 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 28 juin 2017
26 oct. 2016 à 12:00

Re,

Ben oui, qui a ecrit

Sheets("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

david3434 Messages postés 31 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 28 juin 2017
26 oct. 2016 à 14:32

J'ai récupérer plusieurs bouts de macro et tenté de faire la mienne donc je ne savais pas trop à quoi correspondait chaque partie.

Ca marche merci ! :-)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Reporter valeur sur autre feuille avec critere

Feuille de score belote

VBA : Range avec références variables..

code pour afficher une feuille excel( vba)

Discussions similaires

Newsletters