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

MACRO pour copier une feuille spécifique dans un fichier

  • Initiateur de la discussion Initiateur de la discussion Anto35200
  • 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 !

Anto35200

XLDnaute Occasionnel
Bonjour,

Dans cet exemple, il y a 2 fichiers : VENTES et SYNTHESES.
J’essaie d’être au plus clair dans mon explication.
Dans le fichier VENTES, il y a 2 feuilles A et B.
J’ai crée une macro qui permet de copier la feuille A dans le fichier SYNTHESES à la feuille « import A ».
Je rencontre un problème, lorsqu’on enregistre le fichier VENTE à la feuille B.

La macro copie la feuille B et non A.

Comment dire à la macro que je veux uniquement copier la feuille A et non B du fichier ?

Je vous remercie d'avance de votre aide.

Code:
Sub TEST()
'
' TEST Macro
'

'
    Range("A1:E4").Select
    Selection.Copy
    Windows("SYNTHESES.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
End Sub
 

Pièces jointes

Re : MACRO pour copier une feuille spécifique dans un fichier

Bonjour,

La premiére chose : tes 2 fichiers sont des fichiers xlsx , donc à priori ne pouvant pas contenir de macro vba.

donc pour pouvoir t'aider ,
1) dans quel classeur doit être la macro
2) precises comme suit la copie des feuilles car pas très clair :
Copie feuille A classeur ventes vers classeur syntheses = Nom feuille copiée ( A )
feuille B classeur venttes vers classeur synthése = nom feuille copiée (B)

cordialement
 
Re : MACRO pour copier une feuille spécifique dans un fichier

1) La macro dans être dans le classeur A du fichier VENTES
2) La feuille A du fichier VENTES doit être copiée dans le fichier SYNTHESES dans la feuille "import A".

Cordialement.
 

Pièces jointes

Re : MACRO pour copier une feuille spécifique dans un fichier

Voici une solution possible :

Code:
Sub Proposition()
 Dim Classeur_Source As String
 Dim Classeur_Cible As String
 Classeur_Source = "VENTES.xls"
 Classeur_Cible = "SYNTHESES.xls"
'copier la feuille A dans le fichier SYNTHESES à la feuille « import A »
 Workbooks(Classeur_Source).Sheets("A").Range("A1:E4").Copy Destination:=Workbooks(Classeur_Cible).Sheets("Import A").Range("A1:E4")
End Sub
 
- 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

Réponses
18
Affichages
329
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…