Copier/Coller un élément d'un fichier connu à un autre ayant un nom inconnu

Bonjour,

Je souhaiterais copier la colonne A de la feuille 1 présente dans le fichier "10- suivi dispo Octobre 2019.xlsm" dans la colonne K d'un fichier dont le nom m'est inconnu. J'extraie ce fichier d'une application et le nom du fichier varie aléatoirement à chaque nouvelle extraction. Le fichier "10- suivi dispo Octobre 2019.xlsm" est déjà ouvert auparavant.

NomFichier = ActiveWorkbook.Name

Workbooks("10- suivi dispo Octobre 2019.xlsm").Worksheets("1").Columns("A:A").Copy Destination _

:=NomFichier.Sheets("Liste de Interventions").Columns("K:K")

Windows(NomFichier).Activate

Lorque j'effectue la macro, Visual Basic m'indique un message d'erreur concernant les lignes surlignées qui est :

Erreur '424':

Objet requis

Le fichier contenant la macro est donc obligatoirement différent du fichier extrait. Je ne peux donc pas utiliser la commande Thisworkbook.

Je suis novice en VBA et je cherche de l'aide sur le sujet.

Merci d'avance pour l'aide apportée !

Pierre

Hello,

Il faut tester le nom du classeur via une boucle :

For Each C In Application.Workbooks 'boucle 1 : sur tous les classeurs ouverts
    If Not C.Name = "toto.xlsm" or C.Name = "tata.xlsm" Then 'condition : si le nom du classeur n'est pas ...
     'Ton code ici
    End if
next

On teste chaque nom de classeurs ouverts, si le nom du classeur n'est pas le classeur contenant la macro ou le classeur source alors c'est l'autre où tu peux copier tes données.

R@g

Merci beaucoup R@g ! Ca va être difficile de prévoir les autres fichiers excel ouverts mais je devrais pouvoir me débrouiller avec ta solution.

Sinon quand tu fais ton extract tu fais un enregistrer sous dans un répertoire et après tu appelles ce fichier.