[EXCEL] Récupération feuille

Sebimy Messages postés 6 Statut Membre -  
Sebimy Messages postés 6 Statut Membre -
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 Messages postés 6 Statut Membre 1
     
    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
  2. Sebimy Messages postés 6 Statut Membre 1
     
    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