Bonjour,
Je rappatrie des données d'une feuille d'un autre classeur ... la feuille source ayant des formules et n'ayant besoin que de valeurs, je souhaiterais appliquer un collage spécial valeur dans ma macro, mais je n'y parviens pas ...
Etant donné que j'ai 14 feuilles de 14 classeurs différents à importer, auriez-vous une idée pour simplifier le schéma et éviter de faire 14 macros ?
Merci de votre aide
Je rappatrie des données d'une feuille d'un autre classeur ... la feuille source ayant des formules et n'ayant besoin que de valeurs, je souhaiterais appliquer un collage spécial valeur dans ma macro, mais je n'y parviens pas ...
Code:
Sub Import()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("F:\Reporting\2012\fichier.xls", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Rapport").Cells.Copy classeurDestination.Sheets("Rapport 1").Range("A1")
'fermer le classeur source
classeurSource.Close False
Etant donné que j'ai 14 feuilles de 14 classeurs différents à importer, auriez-vous une idée pour simplifier le schéma et éviter de faire 14 macros ?
Merci de votre aide