sélection d'un classeur dans une macro

Bonjour,

ma macro doit dans un premier temps ouvrir un classeur "engagement investissement" puis déplacer une feuille depuis un autre classeur vers ce classeur.

Pb: il va y avoir plusieurs classeurs avec des noms différents mais qui commenceront toujours par "demande d'investissement" suivi d'un nom,
ce nom se trouve dans la cellule B4 de la feuille que je veux déplacer.

Je voudrais donc réussir à ce que ma macro aille chercher ce nom et l'inscrive à la suite de demande d'investissement

Voila ma macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 nom = Range("B4").FormulaR1C1 Workbooks.Open FileName:= _ "\\Sh311023\Procgrp\CdG\demande investissements\Engagement investissement.xls" Windows("demande d'investissement" & " nom.xls").Activate Sheets("projet avec ROI 5 ans (2)").Select 'on nomme la nouvelle feuille Sheets("projet avec ROI 5 ans (2)").Move Before:=Workbooks("Engagement investissement.xls"). _ Sheets(1) Sheets("projet avec ROI 5 ans (2)").Name = NIB & " (EI)" Range("D6").Select
Mon problème se situe en bleu dans la macro

Merci
A+

En fait mon problème ne se situe qu'à cet endroit dans la macro:
Code:

1 2 3 NOM = ActiveSheet.Range("B4").Value Windows("demande d'investissement" & " NOM.xls").Activate
Il faut que je réussisse à remplacer nom par ce qu'il y a écrit dans la cellule B4

Merci

ta un espace à coté de nom ou pas?
car dans ton code c " Nom.xls"

Code:

Windows("demande d'investissement" & nom &".xls").Activate

Merci ca marche nickel:D

A plus