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

La sauvegarde ce fait avec la macro

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

reinruof77

XLDnaute Occasionnel
bonjour a tous et toutes
via un userbox je sauvegarde une feuille exell mais la sauvegarde ce fait avec la macro je suis donc obliger de convertir cette feuille en pdf.
voici le code:

"Private Sub CommandButton1_Click()
TextBox1.MaxLength = 8
Dim chem As String
Dim nom As String
chem = ThisWorkbook.Path & "\" 'à adapter
[A8] = TextBox1
[C8] = TextBox2
[C10] = TextBox3
[C11] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
nom = Range("A8").Value & ".xls"
ThisWorkbook.SaveCopyAs (chem & nom)
Unload Me
UserForm1.Show
End Sub"

Comment faire pour que l'orsque j'enregistre je n'est plus la macro dans la feuille enregistrer ou enregitrer directement en PDF.

je suis ouvert a toute sugestion .
merci de votre aide
 
Trier par date Trier par votes
Re : La sauvegarde ce fait avec la macro

Bonjour reinruof77, salut Staple 🙂

Pas besoin d'enregistrer en pdf.

1) Si l'on veut copier toutes les feuilles de calcul (je ne me suis pas préoccupé du cas où il y a des feuilles graphiques) :

Code: 
Private Sub CommandButton1_Click()
Dim chem As String, nom As String, i As Integer
TextBox1.MaxLength = 8
[A8] = TextBox1: [C8] = TextBox2: [C10] = TextBox3: [C11] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
chem = ThisWorkbook.Path & "\" 'à adapter
nom = Range("A8").Value & ".xls"
Application.SheetsInNewWorkbook = Worksheets.Count
Workbooks.Add
Application.SheetsInNewWorkbook = 3
For i = 1 To Worksheets.Count
  ThisWorkbook.Worksheets(i).Cells.Copy Worksheets(i).Cells 'copie toutes les feuilles de calcul
Next
On Error Resume Next 'si le fichier existe déjà
ActiveWorkbook.SaveAs chem & nom
ActiveWorkbook.Close False
Unload Me
UserForm1.Show
End Sub

2) Si l'on veut copier uniquement la feuille active :

Code: 
Private Sub CommandButton1_Click()
Dim chem As String, nom As String, i As Integer
TextBox1.MaxLength = 8
[A8] = TextBox1: [C8] = TextBox2: [C10] = TextBox3: [C11] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
chem = ThisWorkbook.Path & "\" 'à adapter
nom = Range("A8").Value & ".xls"
i = ActiveSheet.Index
Application.SheetsInNewWorkbook = 1 'facultatif
Workbooks.Add
Application.SheetsInNewWorkbook = 3 'facultatif
ThisWorkbook.Worksheets(i).Cells.Copy Cells 'copie la feuille active
On Error Resume Next 'si le fichier existe déjà
ActiveWorkbook.SaveAs chem & nom
ActiveWorkbook.Close False
Unload Me
UserForm1.Show
End Sub

A+
 
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
  • 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
686
Phil69970
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
565
firecarl
F
N
  • Question Question
XL 2021 Sauvegarde onglet
Réponses
10
Affichages
878
nano33320
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
N
  • Question Question
XL 2016 Macro chargement liste arborescence, copier coller fichiers
Réponses
9
Affichages
898
Nermal64
N
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
E
  • Résolu(e)
Microsoft 365 Enregistrement en PDF avec modification du nom en fonction du contenu de cellules
Réponses
2
Affichages
1 K
Elwer
E
M
  • Résolu(e)
XL 2013 Mémoriser le dernier emplacement de sauvegarde
Réponses
9
Affichages
1 K
M.Ben
M
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
734
tactic6
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
1 K
.jakob@gmail.com
J
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
F
  • Question Question
XL 2013 Pouvez vous m'aider à ajouter la sélection de la racine à la macro d'examen d'arborescence
Réponses
10
Affichages
788
fb62840
F
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
1 K
heart clean
H
C
  • Résolu(e)
Autres Enregistrement pdf en vba avec erreur 1004
2
Réponses
25
Affichages
2 K
kiki29
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
962
GADENSEB
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
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
2 K
meyscal
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…