Discussion :

[Brigand1936]

Bonsoir à tous,

J'ai deux classeurs un qui s'appelle Reponsable et l'autre mon eleve (celui peut changer de nom et ce nom est rangé en d1 du classeur reponsable feuille 1 .

Le probleme est que la ligne Workbooks("Moneleve").Activate ne prend pas la valeur de d1
Programme simplifié

Code :

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

1
2
3
4
5
6
7
8
9
Dim MonRRC As String
Moneleve = Range("d1").Select
   Workbooks("Moneleve").Activate
    Range("A1").Select
    Selection.Copy
   Workbooks("Reponsable.xls").Activate
    Range("A2").Select
    ActiveSheet.Paste Link:=True
End Sub

Merci a celui ou ceux qui peuvent m'aider

[mercatog]

Bonjour, je désavoue entièrement la démarche suivie. Mais, je me contente de répondre à ta question

Code :

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

1
2
3
4
Dim Moneleve As String
 
Moneleve = Range("d1").Value
Workbooks(Moneleve).Activate

en D1 la nom du classeur à activer

[Brigand1936]

Merci mon cher Mercatog.

Cela fonctionne merci beaucoup j n'avais pas penser à enlever les guillemets.

Mais pourquoi la méthode ne teplait pas.

Encore un grand merci

[mercatog]

Parce que tu perd de temps et de visibilité du code en utilisant les .Activate, .select.
On peut mettre tout le classeur dans une variable (de même pour les feuilles)

Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Wbk As Workbook
Dim Sh As Worksheet
Dim Moneleve As String
 
Set Sh = ThisWorkbook.Sheets("Feuil1")
Moneleve = Sh.Range("d1").Value
Set Wbk = Workbooks(Moneleve)
Wbk.Sheets("Feuil1").Range("A1").Copy Sh.Range("A2")
Set Wbk = Nothing
Set Sh = Nothing