Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion kenavo
  • 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
K

kenavo

XLDnaute Junior
Bonjour,

Mes débuts en VBA sont difficiles...

Je souhaite lancer une macro
1- qui ouvre un fichier excel, qui copie les données qui se trouve dans le feuille "sheet1" et les copier dans le fichier classeur2.xls ds le feuille "BD"
2-Ensuite, on choisit un critère de sélection, et cela copie les données filtrées dans une autre feuille

Le partie 1 ne fonctionne pas ( msg: l' indice n' appartient pas à la sélection")
Code: 
Sub Ouvrir()
'Selection du fichier a ouvrir : fichier où se trouve les données à copier
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Windows("Fichier").Activate
'Copie la feuille "sheet1" et la copier dans la feuille "BD" du classeur2
Sheets("sheet1").Copy After:=Workbooks("Classeur2.xls").Sheets(BD)
End Sub

La partie 2, merci à Formation Excel VBA JB

Code: 
Sub ExtraitVersAutreFeuille()
  Call Ouvrir
  critere = InputBox("Critere?")
  If critere = "" Then Exit Sub
  [A2].AutoFilter Field:=2, Criteria1:=critere & "*"
  Sheets.Add After:=Sheets(Sheets.Count)
  ActiveSheet.Name = critere
  Sheets("BD").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy
  ActiveSheet.Paste
  Cells.EntireColumn.AutoFit
  Sheets("BD").ShowAllData
  
End Sub

Merci d' avance
 
Trier par date Trier par votes
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour kenavo,
ou
Bonjour Aurevoir 😉

peut-être

Code: 
Sheets("sheet1").Copy After:=Workbooks("Classeur2.xls").Sheets([COLOR=red][B]"[/B][/COLOR]BD[COLOR=red][B]"[/B][/COLOR])
 
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Ca avance !!!
Il ouvre et copie le feuille "sheet1" dans classeur2 ne copie pas les données dans la feuille BD!!


Code: 
Sub Ouvrir()
'Selection du fichier a ouvrir : fichier où se trouve les données à copier
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=Fichier
'Copie la feuille "sheet1" et la copier dans la feuille "BD" du classeur2
Sheets("sheet1").Copy After:=Workbooks("Classeur2.xls").Sheets("BD")
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour à toutes et tous

Ok je suis passée avec l' enregistreur de macro , le code suivant fonctionne :
Code: 
Sub Macro1()



Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=Fichier
        Sheets("sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("Classeur2.xls").Activate
    Cells.Select
    ActiveSheet.Paste
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour kenavo, tototiti, et à ceux qui passeront par là.

Voici un p'tit truc joint qui me sert de base pour ce dont j'ai besoin
de faire dans mes chantiers VBA.

La copie de la feuille est intégrale.

Tu peux au passage faire une sélection des cellules à copier de la
feuille provisoire et coller dans ta feuille de destination.
ou Worksheets("Feuil"x""). Cells(x, y).Value = ActiveSheet.Cells(r, c).Value

A voir

Amicalement, et "Bepred Breizh"

Yann
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Merci pour ton fichier : il me servira surement!! ( je vais devoir travailler dur pour faire de même😱 )

Voilà j' ai fini voici le résultat, si ça peut servir a qqn : cela fonctionne


Sub ExtraitVersAutreClasseur()

Dim nom As String
Dim wk As Workbook

critere = InputBox("Saisir le code ")
If critere = "" Then Exit Sub
[A2].AutoFilter Field:=2, Criteria1:=critere & "*"
'Sheets.Add After:=Sheets(Sheets.Count)
'ActiveSheet.Name = critere
Sheets("BD").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy

'création d' un nouveau fichier, le nom du fichier sera le code saisi
Set wk = Workbooks.Add
ActiveSheet.Paste
nom = ".xls"
ActiveWorkbook.SaveAs Filename:=critere & nom
ActiveWorkbook.Close
Application.DisplayAlerts = False

Cells.EntireColumn.AutoFit
Sheets("BD").ShowAllData

End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonsoir,

J' ai un petit problème , je ne trouve pas comment faire pour fermer le fichier que j' ouvre pour copier les donner

Code: 
Sub copie()
'
' Macro enregistrée le 31/05/2010 par F3956205
'
'
Dim fichier As String

fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=fichier
 
   Sheets("sheet1").Select
    Cells.Select
    Selection.Copy
    ActiveWindow.Close
    Windows("Extraction V1.xls").Activate
    Sheets("BD").Select
    Cells.Select
    ActiveSheet.Paste

'referme le fichier d'origine

La je veux fermer le fichier sélectionner : fichier


End Sub
 
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour ce code copie feuille "tablestemp" du fichier ouvert, vers un fichier fermé.
Ce n est pas de moi mais cela fonctionne chez moi.Cela peut t aider je pense.


Application.CutCopyMode = False
Sheets("Tablestemp").Select
Cells.Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\fichier destination.xls"
Sheets("Tablestemp").Select
Range("A1").Select
ActiveWorkbook.ActiveSheet.Paste
Windows("fichier origine.xls").Activate
Windows("fichier destination.xls").Activate
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
 
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

je regarde mais moi s'est l'inverse 🙄

j'ai ma macro dans un fichier en la lancant elle demande de selectionner le fichier , à partir de ce fichier je copie sheet1 et je colle les donnees dans le fichier où est la macro dans le feuille BD et je voudrais fermer le fichier que j' ai sélectionné ( dont le nom peut varier)
 
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour à tous,

un essai

Code: 
Sub copie()
'
' Macro enregistrée le 31/05/2010 par F3956205
'
'
Dim fichier As String, Wkb as Workbook

fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Set Wkb = Workbooks.Open (Filename:=fichier)
 
   Sheets("sheet1").Select
    Cells.Select
    Selection.Copy
    ActiveWindow.Close
    Windows("Extraction V1.xls").Activate
    Sheets("BD").Select
    Cells.Select
    ActiveSheet.Paste

'referme le fichier d'origine

'La je veux fermer le fichier sélectionner : fichier
Wkb.Close False

End Sub
 
Vote positif 0 Vote négatif
Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur

Bonjour,

J' avais testé cela mais le probleme est que le temps de traitement est allonge serieusement et vu que j' ai 65 000 lignes j' ai un msg avec le presse papier qui contient trop d' information
 
Vote positif 0 Vote négatif
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

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
340
sylvanu
sylvanu
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
750
Chaton77
Chaton77
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
786
phoceenjo
P
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
818
MGH
M
P
  • Question Question
Microsoft 365 copier coller un onglet dans un autre fichier
Réponses
6
Affichages
676
pralo
P
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
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
Dranreb
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
818
Liner77
L
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
554
Cheyenne_2021
C
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
796
Chatron
C
T
  • Question Question
XL 2013 Copier une feuille vers divers classeurs
Réponses
2
Affichages
493
tototn
T
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
708
Staple1600
Staple1600
R
  • Résolu(e)
Microsoft 365 Insérer une copie d'un onglet dans le classeur
Réponses
2
Affichages
627
Rosco1669
R
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
Hasco
S
  • Question Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
2 K
StanislasC
S
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA: Filtrer et copier les données
Réponses
10
Affichages
1 K
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
Retour