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
Comment supprimer une feuille sur word - Guide
Feuille de pointage excel - Télécharger - Tableur
Feuille a5 - Guide
Suppression cookies - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > 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

Feuille de score belote

Reporter valeur sur autre feuille avec critere

feuille excel de gestion belote

Erreur d'exécution 13 Incompatibilité de type