Ouviri deux fichiers excels et copier l'un à la suite de l'autre

[medjalika]

Bonjour,
Je suis un nouveau sur ce forum. j'aimerai avoir une macro qui me permetrais d'ouvrir deux fichier et de copier l'un à la suite de l'autre merci d'avance.

 

[Matheop]

Re : Ouviri deux fichiers excels et copier l'un à la suite de l'autre

Salut medjalika.

Essaie cette macro.

Sub Macro()

  Set wbk1 = ThisWorkbook
  Set wbk2 = Workbooks.Open(Filename:="u:\mon excel\B.xls")
  'correspond au classeur que tu veux copier à la suite de celui-là
   
  Dim nbLignesWbk1 As Integer
  Dim nbLignesWbk2 As Integer
  Dim nbColonnesWbk2 As Integer
    
  nbLignesWbk1 = wbk1.Sheets(1).UsedRange.Rows.Count
  nbLignesWbk2 = wbk2.Sheets(1).UsedRange.Rows.Count
  nbColonnesWbk2 = wbk2.Sheets(1).UsedRange.Columns.Count
    
  wbk2.Sheets(1).Range("A1", Cells(nbLignesWbk2, nbColonnesWbk2)).Select
  Selection.Copy Destination:=wbk1.Sheets(1).Cells(nbLignesWbk1 + 1, 1)
    
  wbk2.Close

End Sub

Cette macro peut être utilisée pour copier les cellules remplies de ta feuille 1 de ton 2ème classeur à la suite des cellules remplies de la feuille 1 du 1er classeur.

Cordialement,
Mat'

 

[medjalika]

Re : Ouviri deux fichiers excels et copier l'un à la suite de l'autre

Merci Mat'
mais c'est la macro qui doit ouvrir les deux fichiers et copier les données le premier fichier à la suite des données du deuxième fichier.
Voici le debut de mon programme
Workbooks.Open Filename:= _
"D:\CAPA_REPORT\2012-04-16\capa_PDPactifs_APN_MMACH_4D_0535.xls"
ActiveWindow.Visible = False
Workbooks.Open Filename:= _
"D:\CAPA_REPORT\2012-04-16\capa_PDPactifs_APN_MMCHA_4D_0540.xls"
ActiveWindow.Visible = False
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("capa_PDPactifs_APN_MMACH_4D_0535.xls").Activate
Merci
cdt
Med

 

[Matheop]

Re : Ouviri deux fichiers excels et copier l'un à la suite de l'autre

Ma macro ouvre les deux fichiers, c'est juste qu'à la fin je les ferme d'où ta possible sensation que rien ne se passe. Bon je l'ai modifié légèrement pour qu'elle ouvre deux classeurs A et B. Elle copie la feuille 1 du classeur A à la suite de la feuille 1 du classeur B et j'ai commenté les 2 dernières lignes donc théoriquement tes classeurs restent ouverts à la fin.

Sub Macro()

  Set wbkA = Workbooks.Open(Filename:="u:\mon excel\A.xls")
  Set wbkB = Workbooks.Open(Filename:="u:\mon excel\B.xls")
   
  Dim nbLignesWbkA As Integer
  Dim nbColonnesWbkA As Integer
  Dim nbLignesWbkB As Integer
    
  nbLignesWbkA = wbkA.Sheets(1).UsedRange.Rows.Count
  nbColonnesWbkA = wbkA.Sheets(1).UsedRange.Columns.Count
  nbLignesWbkB = wbkB.Sheets(1).UsedRange.Rows.Count
    
  wbkA.Sheets(1).Range("A1", Cells(nbLignesWbkA, nbColonnesWbkA)).Select
  Selection.Copy Destination:=wbkB.Sheets(1).Cells(nbLignesWbkB + 1, 1)
    
  'wbkA.Close
  'wbkB.Close

End Sub