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

copier un classeur dans un nouveau classeur

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

llebucheur

Guest
Bonjour à tous,
Je me tourne une nouvelle fois vers vous. Je souhaite copier un classeur dont le nom peut varier dans un nouveau classeur. Je n'ai pas trouvé de discussion à ce sujet sur le forum. Je débute en VBA et je galère vraiment.😕

je colle ce que j'ai deja fait afin d'etre plus clair.


Sub creer()
Dim root As String
Dim j As Long
j = 1

root = ActiveWorkbook.Name

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName

For j = 1 To 7
Workbooks(root).Worksheets(j).Range("A1:AZ4000").Copy
ActiveSheet.Paste Destination:=Workbooks(CName).Worksheets(j).Range("A1:AZ4000").Paste
j = j + 1
Next

End Sub




Merci beaucoup pour votre aide! 🙂
Cordialement
 
Trier par date Trier par votes
Re : copier un classeur dans un nouveau classeur

je vois que mon sujet déchaine les passion! ;-)
J'arrive un peu à m'en sortir mais il ne me copie que la première feuille de mon classeur. je colle ce que j'ai fait au cas ou quelqu'un saurait m'aider.

Sub creer()
Dim root As String
Dim Newroot As String
Dim X As Long
Dim j As Long
j = 1
X = 0

root = ActiveWorkbook.Name
X = InputBox("Veuillez indiquer le nombre de feuilles qui composent le classeur:")

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName
Newroot = ActiveWorkbook.Name
For j = 1 To X
Workbooks(root).Worksheets(j).Copy Before:=Workbooks(Newroot).Worksheets(j)
j = j + 1
Next

End Sub


Merci d'avance à tous ce qui se pencheront sur mon problème
 
Vote positif 0 Vote négatif
Re : copier un classeur dans un nouveau classeur

hé Hop trouvé!
Je vous le copie au cas quelsu'un serait interesser même si je pense que ca ne doit pas être très compliquer pour vous.

Sub creer()
Dim root As String
Dim Newroot As String
Dim X As Long
Dim j As Long
j = 1
X = 0

root = ActiveWorkbook.Name
X = InputBox("Veuillez indiquer le nombre de feuilles qui composent le classeur:")

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName
Newroot = ActiveWorkbook.Name
For j = 1 To X
Workbooks(root).Worksheets(j).Copy Before:=Workbooks(Newroot).Sheets(j)
Next

End Sub


Si quelqu'un voit quelque chose de plus leger je suis preneur!
bonne continuation
 
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

M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
366
dysorthographie
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
511
job75
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
D
  • Question Question
Microsoft 365 Copier dans un nouveau fichier un fichier Excel contenant des macros
Réponses
2
Affichages
496
Daniel200666
D
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
684
sylvanu
  • Question Question
Autres Transfert des données d'un classeur à un autre
Réponses
5
Affichages
729
Oneida
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
1 K
TooFatBoy
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
783
vgendron
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
885
Electron24
J
  • Question Question
Microsoft 365 Erreur de compilation: sub, fonction ou property attendue
Réponses
4
Affichages
681
dysorthographie
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
884
l.et.lilou
L
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
904
A-F
A
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
885
M@xu3L
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…