Discussion :

[derf3183]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[derf3183]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[biggione]

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

[Junness]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[derf3183]

Merci ca marche nickel

A plus