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

Macro pourr copier une feuille dans un nouveau classeur....

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
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Après pas mal de recherches infructueuses, sur ce forum,
je souhaiterais votre aide afin d'écrire une macro pour qui devra:

1) copier la feuille "Demande Achats" (UNIQUEMENT LES VALEURS) de mon fichier ouvert puis
2) créer un nouveau classeur, le nommer D.A avec la date du jour à la suite (soit exemple nom du classeur :
D.A 15/10/2012) et ce, sous C:\Users\christian\Desktop... puis le fermer.

Je vous remercie pour le temps que vous voudrez bien, à nouveau, m'accorder.

Bien à vous,
Christian
 
Trier par date Trier par votes
Re : Macro pourr copier une feuille dans un nouveau classeur....

Re, le forum,

J'ai trouvé, à peu près, ce que je cherchais. Toutefois pourriez-vous me dire ce qu'il faut ajouter à ce code ;

Sub test()
Sheets("Demande Achats").Copy
With ActiveSheet.UsedRange.Cells
.Copy
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = xlCut
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "DA-" & Format(Date, "yyyy-mm-dd") & ".xls"

ActiveWorkbook.Close
End Sub

pour inclure le contenu, changeant, de la cellule C7 (expl : Boutique) lors de l'enregistrement du fichier pour obtenir; expl :
DA-Boutique 2012-10-15

Merci pour votre aide.
Bien à vous,
Christian
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pourr copier une feuille dans un nouveau classeur....

Bonsoir Christian0258,

Ce code fonctionnera sur toute version Excel :

Code: 
Sub test()
Dim nomfich$, ext$
With Sheets("Demande Achats")
  .Copy
  ActiveSheet.UsedRange = .UsedRange.Value
  nomfich = "DA-" & .[C7] & Format(Date, " yyyy-mm-dd")
  ext = Mid(.Parent.Name, InStrRev(.Parent.Name, "."))
End With
'Application.DisplayAlerts = False 'facultatif, évite tout message
On Error Resume Next
Workbooks(nomfich & ext).Close 'si le fichier est ouvert
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nomfich & ext
ActiveWorkbook.Close False
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Macro pourr copier une feuille dans un nouveau classeur....

Re,

Non ce n'était pas bon sous Excel 2010, prenez cette macro :

Code: 
Sub test()
Dim nomfich$, ext$, form
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Demande Achats")
  .Copy
  ActiveSheet.UsedRange = .UsedRange.Value
  nomfich = "DA-" & .[C7] & Format(Date, " yyyy-mm-dd")
  ext = Mid(.Parent.Name, InStrRev(.Parent.Name, "."))
  form = .Parent.FileFormat
End With
'Application.DisplayAlerts = False 'facultatif, évite tout message
On Error Resume Next
Workbooks(nomfich & ext).Close 'si le fichier est ouvert
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nomfich, form
ActiveWorkbook.Close False
End Sub
Edit : ajouté Application.ScreenUpdating = False au début.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pourr copier une feuille dans un nouveau classeur....

Bonjour Christian,

Si dans la feuille il y a des macros qu'on ne veut pas copier :

Code: 
Sub test()
Dim nomfich$
Application.ScreenUpdating = False
Workbooks.Add xlWBATWorksheet 'nouveau document
With ThisWorkbook.Sheets("Demande Achats")
  .Cells.Copy ActiveSheet.[A1]
  .[A1].Copy ActiveSheet.[A1] 'vide le presse-papier
  ActiveSheet.UsedRange = .UsedRange.Value
  ActiveSheet.Name = .Name
  nomfich = "DA-" & .[C7] & Format(Date, " yyyy-mm-dd")
End With
'Application.DisplayAlerts = False 'facultatif, évite tout message
On Error Resume Next
Workbooks(nomfich).Close 'si le fichier est ouvert
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nomfich, xlNormal
ActiveWorkbook.Close False
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

L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
756
l.et.lilou
L
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
D
  • Résolu(e)
Microsoft 365 Création d'une macro VBA - copier coller dans un nouveau tableau
Réponses
8
Affichages
860
job75
J
  • Question Question
Microsoft 365 Copier feuille active dans nouveau classeur sans les liaisons en gardant le même format
Réponses
1
Affichages
617
mapomme
D
  • Question Question
XL 2016 macro pour copier coller des cellules d'une feuille dans une autre feuille avec condition
Réponses
2
Affichages
491
Phil69970
  • Question Question
XL 2013 Copier une même cellule de plusieurs feuilles Excel dans un autre classeur
Réponses
7
Affichages
918
job75
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
766
Zon
Z
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
XL 2016 Copier_feuille_dans_nouveau_classeur_à.nomer_avec valeurset envoyer par mail
Réponses
6
Affichages
644
vgendron
S
  • Question Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
2 K
StanislasC
S
J
  • Question Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
829
Lolote83
L
C
  • Question Question
XL 2016 une macro pour Copier de plusieurs feuilles dans un nouveau classeur sans macro
Réponses
3
Affichages
1 K
Hasco
M
  • Résolu(e)
XL 2016 VBA- Créer copie d'une plage de cellule dans nouveau classeur et envoyer par mail
Réponses
9
Affichages
1 K
MONTREAL2020
M
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
659
Staple1600
F
  • Résolu(e)
XL 2019 Exporter une feuille dans un classeur (ouvert ou fermé)
Réponses
2
Affichages
1 K
farid
F
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
1 K
AlexAGEMS
A
M
  • Résolu(e)
Microsoft 365 [VBA] Copier une/des colonne(s) d'une feuille vers une autre avec un critère.
Réponses
3
Affichages
1 K
maxime45
M
O
  • Question Question
XL 2019 copier des lignes d'une feuille Excel vers une autre feuille d'un même classeur a partir dune condition
Réponses
4
Affichages
1 K
otando
O
Y
  • Résolu(e)
XL 2016 Masquer onglets et ruban Excel & copier données dans un nouveau classeur
Réponses
6
Affichages
773
YANNISE
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…