[EXCEL] Récupération feuille
Sebimy
Messages postés
6
Statut
Membre
-
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
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
A voir également:
- [EXCEL] Récupération feuille
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Si ou excel - Guide
2 réponses
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
merci d'avance
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
'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
