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

Macro Enregistrer Sous une partie d'une feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hellowa
  • 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
H

Hellowa

Guest
Bonjour à tous, bonjour le forum
Je cherche désespérément comment enregistrer sous une partie de ma feuille.
J'explique mon problème:
J'ai créé une fiche devis qui simplifie le remplissage, avec plein de macros toussa toussa ( cf piècejointe)
Seulement j'aimerai que les utilisateurs, une fois leur devis terminé n'aient qu'à cliquer sur le bouton créé nommé "Enregistrer" pour que seule la partie nécéssaire du devis soit enregistrée avec comme nom: "Nom_client-Date-reference".


https://www.excel-downloads.com/threads/macro-enregistrer-sous.16005/
Mon fichier excel
Cijoint.fr - Service gratuit de dépôt de fichiers

Merci d'avance, 🙂
 
Trier par date Trier par votes
Re : Macro Enregistrer Sous une partie d'une feuille

bonjour,

voici une macro à adapter :
Code: 
Sub test()

Dim newWbk As Workbook, zoneEnregistree As Range, dossierSauvegarde As String, nomFichier As String

'initialiser la zone à copier et les chemin et nom d'enregistrement
With ThisWorkbook.Sheets("DEVIS")
    Set zoneEnregistree = .Range("A1:H57")
    dossierSauvegarde = "E:\aMiki\XLS\test"
    nomFichier = .Range("E12").Text & "-" & .Range("E11").Text & "-" & .Range("E10").Text
End With

'créer un nouveau classeur
Set newWbk = Application.Workbooks.Add
'ne garder qu'une feuille sur le nouveau classeur
While newWbk.Sheets.Count > 1
    Application.ScreenUpdating = False: newWbk.Sheets(1).Delete: Application.ScreenUpdating = True
Wend

'copier la zone dans le nouveau classeur
zoneEnregistree.Copy newWbk.Sheets(1).Range("A1")

'enregistrer et fermer le nouveau classeur
newWbk.SaveAs dossierSauvegarde & "\" & nomFichier
newWbk.Close True

End Sub

a+
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer Sous une partie d'une feuille

Wow, c'est énorme!!!
Merci mille fois!
Par contre il me met un petit message d'erreur du genre "voulez vous supprimer les cellules vides?"
avec comme options: delete ou ignore
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer Sous une partie d'une feuille

bonjour

j'avais fait une petite erreur, voici le code modifié :
Code: 
Sub test()

Dim newWbk As Workbook, zoneEnregistree As Range, dossierSauvegarde As String, nomFichier As String

'initialiser la zone à copier et les chemin et nom d'enregistrement
With ThisWorkbook.Sheets("DEVIS")
    Set zoneEnregistree = .Range("A1:H57")
    dossierSauvegarde = "E:\aMiki\XLS\test"
    nomFichier = .Range("E12").Text & "-" & .Range("E11").Text & "-" & .Range("E10").Text
End With

'créer un nouveau classeur
Set newWbk = Application.Workbooks.Add
'ne garder qu'une feuille sur le nouveau classeur
While newWbk.Sheets.Count > 1
    Application.[B][COLOR=Red]DisplayAlerts[/COLOR][/B]= False: newWbk.Sheets(1).Delete: Application.[B][COLOR=Red]DisplayAlerts [/COLOR][/B]= True
Wend

'copier la zone dans le nouveau classeur
zoneEnregistree.Copy newWbk.Sheets(1).Range("A1")

'enregistrer et fermer le nouveau classeur
newWbk.SaveAs dossierSauvegarde & "\" & nomFichier
newWbk.Close True

End Sub

a+
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer Sous une partie d'une feuille

Bonjour à tous


mromain: je propose une petite astuce avec ton code 😉

(Avec cette syntaxe, un classeur d'une seule feuille est créé )

Code: 
Sub test()
Dim newWbk As Workbook, zoneEnregistree As Range, dossierSauvegarde$, nomFichier$
'initialiser la zone à copier et les chemin et nom d'enregistrement
With ThisWorkbook.Sheets("DEVIS")
    Set zoneEnregistree = .Range("A1:H57")
    dossierSauvegarde = "E:\aMiki\XLS\test"
    nomFichier = .Range("E12").Text & "-" & .Range("E11").Text & "-" & .Range("E10").Text
End With
[COLOR="Blue"]'créer un nouveau classeur
Set newWbk = Workbooks.Add(xlWBATWorksheet)[/COLOR]

'copier la zone dans le nouveau classeur
zoneEnregistree.Copy newWbk.Sheets(1).Range("A1")

'enregistrer et fermer le nouveau classeur
newWbk.SaveAs dossierSauvegarde & "\" & nomFichier
newWbk.Close True
End Sub
 
Dernière édition:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Résolu(e)
Microsoft 365 VBA Création dossier + sous dossier + enregistrer le fichier dans le dossier
2
Réponses
17
Affichages
2 K
raf26
R
S
  • Résolu(e)
Microsoft 365 vba enregistrer sous en enlevant la lecture seule
Réponses
4
Affichages
685
Scrabblouille
S
L
  • Résolu(e)
XL 2016 enregistrer une zone d'impression en pdf
Réponses
7
Affichages
2 K
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
H
  • Résolu(e)
Microsoft 365 Sauvegarde une feuille excel sous format PDF sous le nom d'une cellule
Réponses
4
Affichages
978
catdog
C
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
D
  • Résolu(e)
XL 2013 Macro pour copier ligne d'une feuille à une autre
Réponses
5
Affichages
1 K
débutantplus
D
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
S
  • Question Question
XL 2019 Besoin d'aide pour créer une macro vba - mettre à jour une feuille excel à partir d'une autre
Réponses
9
Affichages
2 K
saunier
S
R
  • Résolu(e)
XL 2016 inrémenter des cases d'une feuille a partir d'un tableau d'une autre feuille avec une condition avec une macro
Réponses
7
Affichages
1 K
RobyL
R
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
B
  • Résolu(e)
XL 2019 Sauvegarder une feuille en PDF dans un sous dossier du classeur
Réponses
6
Affichages
5 K
kiki29
M
  • Question Question
XL 2016 Copier/coller de plusieurs cellules non contigües d'une feuille vers une ligne d'une autre feuille
Réponses
8
Affichages
3 K
Makovitch
M
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
T
  • Question Question
XL 2010 Macro enregistrer sous sur le bureau
Réponses
8
Affichages
2 K
Staple1600
M
  • Résolu(e)
XL 2010 Déplacement du curseur dans une macro d'une feuille à une autre
Réponses
4
Affichages
2 K
Mbersier18
M
M
  • Résolu(e)
Supprimer une ligne d'un tableau selon la valeur d'une cellule sous VBA (sans supprimer les lignes au dessus)
Réponses
14
Affichages
9 K
MaDesn
M
E
  • Question Question
XL 2016 regénérer une ou plusieurs feuilles d'une macro engistrer sur une feuille synthèse
Réponses
6
Affichages
1 K
EXCELOS
E
O
  • Résolu(e)
Macro enregistrer en pdf feuille excel avec nom d'une cellule contenant formule
2
Réponses
20
Affichages
9 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…