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

Recopie d'un classeur A vers un classeur B

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

AlainGrenoble

Guest
Bonjour à tous ,

Je souhaiterai programmer en VBA pour excel le code suivant mais je n'y arrive pas.

Je suis sur un classeur A qui contient 12 feuilles (une par mois), j'affiche une boite de dialogue qui demande de saisir le nom d'un fichier , par exemple B.
A partir de ce nom je teste l'existance du fichier dans un repertoire donnée , s'il n'existe pas , je le crée. Jusque la pas de problème , cela deviens plus difficile lorsque je veux executer la sequense suivante :

Pour chacune des 12 feuilles présente dans le classeur A je souhaite
recopier les cellules("A3😛5") du classeur A vers le classeur B en concervant la mise en page de la feuille initiale. Ce qui devrait me céer 12 nouvelles feuilles formatées sur le classeur B.

Si quelqu'un peut m'aider , merci..
 
Trier par date Trier par votes
Re : Recopie d'un classeur A vers un classeur B

Bonjour Alain, bonjour le forum.

Voici un petit bout de code fait grâce à l'enregistreur de macro...

Code: 
Sub test()
'
'
'

'
Application.ScreenUpdating = False

    'On copie le contenu de la feuille1 du classeur1
    Sheets("Feuil1").Select
    Range("A3:P5").Select
    Selection.Copy
    Windows("Classeur2.xls").Activate
    'On colle le tout sur la feuille 1
    Sheets("Feuil1").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
    ' Opération à répéter...
    'On retourne sur le classeur 1
    Windows("Classeur1.xls").Activate
    Sheets("Feuil2").Select
    Range("A3:P5").Select
    Selection.Copy
    Windows("Classeur2.xls").Activate
    'On colle le tout sur la feuille 2...ou feuille 3, 4 .....12
    Sheets("Feuil2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    'fin de l'opération
    
    Range("A3").Select
    
Application.ScreenUpdating = True

End Sub

Dis nous ci cela te conviens.

++
 
Vote positif 0 Vote négatif
Re : Recopie d'un classeur A vers un classeur B

Bonjour AlainGrenoble, Thomlau 🙂,
Une autre solution :
Code: 
Sheets("Feuil2").Copy Before:=Workbooks("Test2.xls").Sheets(4)
Où Feuil2 est la feuille de ton classeur actif à copier et Test2.xls le classeur receveur, 4 la position de la feuille que tu copies.
Ce que tu peux résumer en boucle sur 12 mois avec un For I = 1 to 12 ... Next I
Ensuite, comme tu sembles souhaiter ne conserver que les cellules A3 à P5, il te suffit d'utiliser un .clear pour les lignes 1 et 2, 6 et ultérieures, ainsi que les colonnnes Q et ultérieures.
Bon WE 😎
 
Vote positif 0 Vote négatif
Re : Recopie d'un classeur A vers un classeur B

Merci d'avoir repondu à ma demande , je vais essayer . J'avais trouvé sur le forum le code suivant
With Application
.DisplayAlerts = False
ActiveWorkbook.Worksheets(Array("Janvier", "Fevrier", "Mars")).Copy
ActiveWorkbook.SaveCopyAs NOMFICH
ActiveWorkbook.Close False
.DisplayAlerts = True
End With
Il me permet de recopier des feuilles entières mais pas des parties de feuilles.
Je vais essayer votre code , en vous remerciant encore.
 
Vote positif 0 Vote négatif
Re : Recopie d'un classeur A vers un classeur B

Une petite question , Je suis sur le classeur1 , feuille1 , je viens de créer le classeur2 par

Fichier = Dir(NOMFICH)
If Fichier = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs NOMFICH
Else
MsgBox "Le Fichier " & NOMFICH & " Existe deja !!!"
GoTo Fin
End If

Faut-il que je jouvre et réactive classeur1 , feuille 1 et classeur2 avant d'executer votre code test . Merci.
 
Vote positif 0 Vote négatif
Re : Recopie d'un classeur A vers un classeur B

Re 🙂,
Logiquement, que ce soit avec mon code ou celui de Thomlau, comme il n'y a pas de méthode Fichier.Open, il faut forcément que les fichiers soient ouverts. Dans les 2 cas, la procédure est dans le 1er classeur, et c'est lui qui doit être activé.
Bon WE 😎
 
Vote positif 0 Vote négatif
Re : Recopie d'un classeur A vers un classeur B

J'ai essayé ce code en rajoutant l'expression suivante

Windows("Classeur1.xls").Activate
pour activer le classeur 1
, mais j'ai une erreur d'exécution avec le message suivant L'indice n'appartient pas à la selection .
 
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

D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
450
TooFatBoy
  • Question Question
Microsoft 365 Contrôle sur nom et prénom d'un classeur a l'autre classeur
Réponses
10
Affichages
556
jcf6464
  • Question Question
Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.
Réponses
2
Affichages
522
Jacky67
E
  • Question Question
XL 2019 enregistrer un classeur non ouvert
Réponses
1
Affichages
326
sylvanu
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
568
Dudu2
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
519
tnion
T
  • Résolu(e)
XL 2021 Report de lignes d'un onglet à un autre en conservant format et recopie des commentaires
Réponses
9
Affichages
274
scoobytor
F
  • Résolu(e)
Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue
Réponses
3
Affichages
1 K
Faroyo
F
  • Question Question
XL 2019 RESOLU Classeur a données croisées
Réponses
11
Affichages
722
Frederic14
J
  • Question Question
XL 2016 Tableau structuré avec UserForm dans classeur multipages
Réponses
2
Affichages
619
jorge1201
J
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
460
farid
F
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
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
3 K
sylvanu
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
884
l.et.lilou
L
  • Question Question
Autres Transfert des données d'un classeur à un autre
Réponses
5
Affichages
727
Oneida
T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
795
Themax
T
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
850
Phil69970
R
  • Question Question
Microsoft 365 aide a la creation d un classeur commercial
2
Réponses
17
Affichages
2 K
Rozey
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…