importation d'un classeur à un autre

[tracor]

salut le phorum et les exceliens

voila j'ai une macro qui m'importe un fichier dans un autre fichier
j'aimerai n'avoir à importer qu'un seul onglet du classeur et non pas la totalité de celui ci
n'ayant besoin que du tableau comportant les données consolidées
voici la macro actuelle
Global FichierSource, CheminFichierSource, NomFichier

Sub IMPORTATION()

Application.StatusBar = "Ouverture du fichier"
Application.ScreenUpdating = False
NomFichier = "SUIVI PL2.xls"
CheminFichierSource = "R:\Report_\"

Application.StatusBar = "Importation des données"
Sheets("importation").Select
FichierSource = Range("B2").Value
Workbooks.Open Filename:=CheminFichierSource + FichierSource
Cells.Select: Selection.Copy
Workbooks(NomFichier).Activate
Sheets("données").Select: Range("A1").Select: ActiveSheet.Paste: Cells(1, 1).Select
Workbooks(FichierSource).Activate: Application.CutCopyMode = False: ActiveWindow.Close
End Sub

merci de toutes réponses

tracor

 

[Abel]

Bonjour tracor,

Ci après, peut être, un élément de réponse (vers la fin du fil) :

Lien supprimé

En espérant que cela te dépanne.

Abel

 

[tracor]

merci
mais j'ai trouvé la solution tout seul comme un grand garcon VBA
il suffit d'ajouter dans la macro la ligne suivante :

Application.StatusBar = "Importation des données"
Sheets("importation").Select
FichierSource = Range("B2").Value
Workbooks.Open Filename:=CheminFichierSource + FichierSource

sheets("nom de la feuille à importer").select (INSTRUCTION A AJOUTER)
puis

Cells.Select: Selection.Copy
Workbooks(NomFichier).Activate
Sheets("données").Select: Range("A1").Select: ActiveSheet.Paste: Cells(1, 1).Select
Workbooks(FichierSource).Activate: Application.CutCopyMode = False: ActiveWindow.Close
End Sub