Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Exporter seulement la feuille active (Modification)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

donadoni16

XLDnaute Junior
Bonjour à tous,
dans le fichier ci-annexé j'ai un code permettant d'exporter le noms de feuilles choisi
je souhaite le rectifier pour exporter juste la feuille active et le nouveau classeur prendra le nom du classeur d'origine + le nom de l'onglet exporté

comme ceci :
le nom du classeur d'origine est Fiche et l'onglet exporté par exemple Mars-15
donc le nouveau classeur sera nommé Fiche Mars-15

Merci
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

voir ton code modifié ci dessous..
pas testé.. parce que je me dis qu'il n'y a pas tout..
tu dis; que ton code permet de choisir l'onglet à exporter.. mais je vois pas où

Code: 
Option Explicit


Sub ExporterFiche()
Dim s As Object
Dim NomOnglet As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
NomOnglet = ActiveSheet.Name
ActiveSheet.Copy
With ActiveWorkbook
  For Each s In .Sheets: s.DrawingObjects.Delete: Next
  .SaveAs ThisWorkbook.Path & "\Fiche " & NomOnglet, 51
  .Close
End With
ActiveCell.Activate
End Sub
 
Vote positif 0 Vote négatif
toujours sans ton fichier contenant tous les types d'information.. donc. sans test de ma part

Code: 
Option Explicit


Sub ExporterFiche()
Dim s As Object
Dim NomOnglet As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
NomOnglet = ActiveSheet.Name
ActiveSheet.Copy
With ActiveWorkbook
  For Each s In .ActiveSheet.Shapes
    If s.Name Like "*Button*" Then
        s.Delete
    End If
    Next
   
  .SaveAs ThisWorkbook.Path & "\Fiche " & NomOnglet, 51
  .Close
End With
ActiveCell.Activate
End Sub
 
Vote positif 0 Vote négatif
suffit de tester le nom du bouton avant de supprimer... donc..

Code: 
Option Explicit

Sub ExporterFiche()
Dim s As Object
Dim NomOnglet As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
NomOnglet = ActiveSheet.Name
ActiveSheet.Copy
With ActiveWorkbook
  For Each s In .ActiveSheet.Shapes
    'MsgBox s.Name
    If s.Name = "Ajouter Un Mois" Or s.Name = "kaliko" Then
        s.Delete
    End If
    Next
   
  .SaveAs ThisWorkbook.Path & "\Fiche " & NomOnglet, 51
  .Close
End With
ActiveCell.Activate
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
831
Eric 888
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
398
tnion
T
M
  • Question Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
1 K
patricktoulon
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
755
jeff1494
D
  • Question Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
812
job75
N
  • Question Question
XL 2021 Dupliquer une feuille
Réponses
2
Affichages
365
netparty
N
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
845
Nel'
N
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
984
Nico2978
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
872
dysorthographie
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
528
Phil69970
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
401
Lu76Fer
Y
  • Résolu(e)
XL 2019 Exporter feuille plage nommé vers CSV
Réponses
2
Affichages
440
YAP32
Y
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
773
GClaire
G
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
L
  • Question Question
Power Query groupés deux tableaux qui existent sur la même feuille et ajout d'information supplémentaire
Réponses
7
Affichages
924
Aurelili
A
  • Résolu(e)
XL 2013 (RESOLU) Vérifier si elle existe une copie identique
Réponses
2
Affichages
473
chaelie2015
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
805
GClaire
G
  • Question Question
XL 2016 VBA - Il arrive qu'il soit impossible d'afficher le classeur et la feuille activés
Réponses
3
Affichages
898
Dudu2
R
  • Résolu(e)
XL 2016 Automatiser le nom de la feuille dans une formule
Réponses
3
Affichages
849
Rabeto
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…