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

XL 2019 Sauvegarder classeur en xlsx et xlsm avec le même bouton et fermer classeur original

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

pat66

XLDnaute Impliqué
Bonoir à tous,
j'ai une macro qui fonctionne très bien, 'merci à PatrickToulon et Stapple1600), mais je souhaite avec le même bouton, pouvoir enregistrer aussi en xlsm et fermer le classeur
voici la macro en xlsx,
Private Sub CommandButton5_Click()
Dim NOM_PRECIS$, vEMPLACEMENT$, messheets
Application.EnableEvents = False
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
😉
If Sheets("V3").Range("G27") = "" Then
If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
NOM_PRECIS = Sheets("V3").Range("G27").Value & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx"
vEMPLACEMENT = ThisWorkbook.Path & "\"
Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs vEMPLACEMENT & NOM_PRECIS
.Close
End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

un grand merci pour votre aide
 
Solution
Bonsoir patricklopez66,
VB: 
Private Sub CommandButton5_Click()
Dim messheets, NOM$, EMPLACEMENT$
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
If Sheets("V3").Range("G27") = "" Then
    If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
    NOM = Sheets("V3").Range("G27") & "_" & Format(Now, "dd-mm-yyyy")
    vEMPLACEMENT = ThisWorkbook.Path & "\"
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs vEMPLACEMENT & NOM, 52 'xlsm
    Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
    With ActiveWorkbook
        .SaveAs vEMPLACEMENT...
Trier par date Trier par votes
Bonjour patricklopez66,

Indiquer l'extension du fichier en H27 de la feuille "V3" :
VB: 
Private Sub CommandButton5_Click()
Dim messheets, NOM$, FORM As Byte, vEMPLACEMENT$
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
If Sheets("V3").Range("G27") = "" Then
    If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
ElseIf Sheets("V3").Range("H27") <> "xlsx" And Sheets("V3").Range("H27") <> "xlsm" Then
    If MsgBox("Vous devez préciser l'extension du fichier xlsx ou xlsm !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
    NOM = Sheets("V3").Range("G27") & "_" & Format(Now, "dd-mm-yyyy")
    FORM = IIf(Sheets("V3").Range("H27") = "xlsx", 51, 52)
    vEMPLACEMENT = ThisWorkbook.Path & "\"
    Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs vEMPLACEMENT & NOM, FORM
        .Close
    End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
End Sub
A+
 
Vote positif 0 Vote négatif
Bonsoir, merci pour votre aide,

l'ai testé la macro mais je souhaite que cela s'enregistre dans les 2 formats d'extention (XLSX et XLSM) automatiquement sans choix possible et sans confirmation, est ce possible ? sinon je mets 2 boutons


merci
 
Vote positif 0 Vote négatif
VB: 
Private Sub CommandButton5_Click()
Dim messheets, NOM$, EMPLACEMENT$
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
If Sheets("V3").Range("G27") = "" Then
    If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
    NOM = Sheets("V3").Range("G27") & "_" & Format(Now, "dd-mm-yyyy")
    vEMPLACEMENT = ThisWorkbook.Path & "\"
    Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs vEMPLACEMENT & NOM, 52
        .SaveAs vEMPLACEMENT & NOM, 51
        .Close
    End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
End Sub
 
Vote positif 0 Vote négatif
bonsoir
je viens de tester la macro elle bloque à ce niveau = Sheets(messheets).Copy, et ne exécute pas
alors j'ai tester en désactivant Sheets(messheets).Copy et elle fonctionne très bien, mais forcément le classeur est copié entièrement, alors en xlsm c'est très bien, mais xlsx il me faut selectionner les feuilles pour la copie (voir plus haut), avez vous une idée ?

merci
 
Vote positif 0 Vote négatif
Effectivement je devais être fatigué, elle fonctionne très bien, j'ai dû mal écrire les noms de mes sheets,
Et en fait je viens de m'apercevoir qu'il faudrait que la copie extraite en XLSM soit complète, c'est à dire identique au classeur original, mais avec le nom de la cellule (If Sheets("V3").Range("G27")
Qu'en pensez vous ?
Ce dont j'ai besoin ;
j'ouvre un classeur, on clique le command bouton qui effectue 3 actions:
Il ferme l'original sans modification
Il enregistre un XLSX avec un nom dans une cellule avec des feuilles sélectionnées
Il enregistre un XLSM une copie de l'original modifié avec nom de cellule

merci mille fois
 
Vote positif 0 Vote négatif
Bonsoir patricklopez66,
VB: 
Private Sub CommandButton5_Click()
Dim messheets, NOM$, EMPLACEMENT$
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
If Sheets("V3").Range("G27") = "" Then
    If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
    NOM = Sheets("V3").Range("G27") & "_" & Format(Now, "dd-mm-yyyy")
    vEMPLACEMENT = ThisWorkbook.Path & "\"
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs vEMPLACEMENT & NOM, 52 'xlsm
    Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
    With ActiveWorkbook
        .SaveAs vEMPLACEMENT & NOM, 51 'xlsx
        .Close
    End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
End Sub
A+
 
Vote positif 0 Vote négatif
Solution
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

F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
360
farid
F
H
  • Question Question
Microsoft 365 Sauvegarder fichier de XLSM à XLSX et effacer contrôle
Réponses
9
Affichages
938
job75
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
769
marie3107
M
  • Question Question
XL 2016 Transfert feuilles vers nouveau classeur - Activation du contenu ?
Réponses
11
Affichages
883
job75
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
780
Liner77
L
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
821
un internaute
U
R
  • Résolu(e)
XL 2016 Fusionner 3 classeurs Excel en un seul.
Réponses
10
Affichages
1 K
ReneDav14000
R
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
P
  • Question Question
XL 2016 Forcer l'ouverture de la copie d'un classeur sur un onglet précis
Réponses
14
Affichages
1 K
pat66
P
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
790
GADENSEB
A
  • Question Question
XL 2019 Résolu - Bug code VBA modifier xxx fichiers en boucle
Réponses
3
Affichages
664
fanch55
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
932
MONTREAL2020
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
M
  • Question Question
Microsoft 365 Import d'un fichier .xlsx et analyse des données en VBA
Réponses
3
Affichages
2 K
Massy1
M
A
  • Question Question
XL 2019 Besoin d'aide pour copier les lignes d'un classeur et les coller dans un autre classeur par le bié d'un bouton (VBA)
Réponses
7
Affichages
1 K
aka100k
A
  • 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
M
  • Question Question
Microsoft 365 Recherchev dans un autre classeur VBA EXCEL
Réponses
2
Affichages
2 K
manue971
M
  • Question Question
XL 2016 Sauvegarder des onglets en XLSX et non en PDF
Réponses
3
Affichages
2 K
kiki29
Z
  • Résolu(e)
XL 2016 Rompre les liens avec les requêtes et autres liens
2
Réponses
20
Affichages
3 K
ZZ59264
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…