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

enregistrer

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion glm
  • Date de début Date de début

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
G

glm

XLDnaute Occasionnel
Bonsoir le forum,

je cherche à enregistrer une partie d'une feuille active
Et le code que j'ai utilisé ne fonctionne pas comme je viens de le décrire
il enregistre le classeur entier! Pourquoi?
voici le code que j'utilise

Nom = "bdc" & Format(Date, "dd mm yy") & ".xls"
ActiveSheet.Range("C4:S60").Copy

With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
.Close
End With

Merci pour votre aide
A+
glm
 
Trier par date Trier par votes
Re : enregistrer

Bonsoir Glm,

C'est normal l'enregistrement dans Excel concerne le classeur, d'ailleurs dans ton code tu sauves ActiveWorkbook" c'est à dire le classeur actif. A ma connaissance il n'y a pas de moyen d'enregistrer uniquement une partie de feuille ...

Bonne soirée
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : enregistrer

Re Glm

Oui j'ai du mal comprendre, peut être veux tu copier une partie d une feuille dans un nouveau classeu, dans ce cas utilise le code ci dessous.

Code: 
Option Explicit
Sub test()
Dim NouvClas As String, NvClasseur As Workbook
Dim fName

ActiveSheet.Range("C4:S60").Copy

Set NvClasseur = Workbooks.Add

Do
    fName = Application.GetSaveAsFilename( _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until fName <> False

ActiveSheet.Paste

NvClasseur.SaveAs Filename:=fName, FileFormat:=xlNormal

End Sub

@+
 
Vote positif 0 Vote négatif
Re : enregistrer

Effectivement cela fonctionne mais je cherche à garder la mise en forme que j'avais et y a t'il moyen de supprimer les feuilles inutile feuille 2 et feuille 3 de ce nouveau classeur
Merci

glm
 
Vote positif 0 Vote négatif
Re : enregistrer

Bonsoir Glm,

macro modifiée pour supprimer les feuilles, quand aux formats en principe ils suivent sauf les largeurs de colonnes. A voir selon ta version Excel.


Code: 
Option Explicit
Sub test()
Dim NouvClas As String, NvClasseur As Workbook
Dim fName

ActiveSheet.Range("C4:S60").Copy

Set NvClasseur = Workbooks.Add

Do
    fName = Application.GetSaveAsFilename( _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until fName <> False

ActiveSheet.Paste

Sheets(Array(2, 3)).Delete

NvClasseur.SaveAs Filename:=fName, FileFormat:=xlNormal

End Sub

@+
 
Vote positif 0 Vote négatif
Re : enregistrer

bonsoir,
grand merci pour la réponse, cela va me servir
j'ai trouvé un exemple qui est différent. je vais adapter à mon tableau ces solutions
Bonne nuit
A+
 

Pièces jointes

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

S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
598
TooFatBoy
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
J
  • Question Question
XL 2021 enregistrer sous une feuille définie du classeur avec nom cellule
Réponses
5
Affichages
908
Eric KERGRESSE
E
C
  • Résolu(e)
XL 2021 enregistrer sous un sous répertoire en vba
Réponses
3
Affichages
862
cgpa
C
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
885
M@xu3L
M
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
L
  • Résolu(e)
XL 2016 Enregistrer sous? Pourquoi mon code ne fonctionne pas?
Réponses
5
Affichages
972
Linda42
L
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
2 K
Chapichapo
C
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
M
  • Question Question
Microsoft 365 Enregistrer un nom de fichier Excel à partir d'une cellule et pouvoir "Parcourir" pour l'enregistrement
Réponses
5
Affichages
2 K
maxime.dlv
M
J
  • Question Question
XL 2019 Ajout d'un bouton fixe vba
Réponses
1
Affichages
710
jui42
J
C
  • Résolu(e)
XL 2016 erreur d’exécution 1004 lors d'une importation
Réponses
5
Affichages
808
chingilou
C
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
  • Question Question
XL 2016 Bouton pour créer un dossier et enregistrer un fichier dedans les deux avec le mêmes nom
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
  • Question Question
Microsoft 365 L'enregistrement en .pdf avec la fenêtre Enregistrer Sous
Réponses
4
Affichages
2 K
VBA_dev_Anne_Marie
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
B
  • Question Question
Microsoft 365 enregistrer sous avec nom classeur suivant cellule
Réponses
3
Affichages
1 K
laurent950
S
  • Résolu(e)
XL 2010 VBA écraser une feuil de calcul du même nom
Réponses
13
Affichages
2 K
JM27
  • Résolu(e)
Save as le classeur complet et rnomer selon la valeur cellule
Réponses
3
Affichages
717
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…