Macro pour importer des données

Bonjour à tous,

J'ai fait une macro qui importe des données d'un classeur à un autre. Celle ci marche mais quelques améliorations sont nécessaires.

Auriez vous une astuce pour améliorer la macro afin d'effectuer ces 2 actions:

- pouvoir importer les données d'un classeur source à un classeur cible sans devoir ouvrir le classeur source

- pouvoir supprimer le classeur source après copie des données dans le classeur cible

La macro est la suivante:

Sub importer_puis_supprimer()
' Copier les données
Dim wkSource As Workbook 'Classeur source (s'appelle toujours "E_C.xls")
Dim WkCible As Workbook  'Classeur cible (s'appelle toujours "R_O.xls")
Set wkSource = Workbooks("E_C.xls")
Set WkCible = Workbooks("R_O.xls")

'Copier la feuille "COO" de Portcros dans le nouveau classeur indicateur qui s'appelle "R_O"
wkSource.Sheets("COO").Cells.Copy WkCible.Sheets("COO").Range("A1")

wkSource.Close True 'Ferme en sauvant
End Sub

Merci d'avance et bonne journée.

Cordialement,

nec

Bonjour,

Voici une piste dans le fichier ci-joint.

J'ai considéré que tes deux fichiers se trouvaient dans le même dossier.

Ton classeur source est ouvert par la macro, mais de manière invisible.

Cordialement.

Bonjour,

Merci Yvouille.

et désolé pour la réponse tardive.

Bonne journée