[EXCEL] Récupération feuille

Sebimy -  
Bonjour,

Si qq'un pouvait m'aider ca serait super sympa,

J'ai deux fichiers excel "A" et "B" avec dans chaqu'un une feuille "tab" je voudrais savoir si avec un autre fichier excel à l'aide d'une macro je pouvais récupérer ces deux feuilles "tab" les mettre dans ce nouveau fichier et les nommer "A" et "B" comme le nom des fichiers où ils se trouvaient.

En tout cas merci d'avance.

Seb
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. Sebimy Auteur
    J'ai oublier de preciser que les deux fichiers ont pour répertoire : "A":C:\Mes docu\file1 ; "B":C:\Mes docu\file2

    merci d'avance
    0
    1. Sebimy Auteur
      j'ai reussi à faire ca mais la mise en forme est enlevée (et le : "Selection.PasteSpecial Paste:=xlPasteAll, operation:=xlNone, SkipBlanks:=False, Transpose:=False" ne marche pas )

      'ouverture fichier "A"

      Workbooks.Open Filename:="C:\Mes docu\file1\A.xls"
      Workbooks("A.xls").Worksheets("tab").Select
      Cells.Select
      Selection.Copy
      Workbooks.Application.DisplayAlerts = False
      ActiveWorkbook.Close SaveChanges:=False

      'j'efface puis je recréé une feuille A dans mon fichier "test" où je veux le feuille

      ActiveWorkbook.Worksheets("A").Delete
      ActiveWorkbook.Worksheets.Add
      ActiveSheet.Name = "A"

      'je colle

      Cells.Select
      ActiveWorkbook.ActiveSheet.Paste

      Je comprend pas pourquoi la mise en forme (couleur ...) disparait

      Merci d'avance en tout cas pour ceux qui voudraient bien m'aider
      0