Erreur

[FranQuent]

Bonjour,

Voici le code que j'ai créé pour prendre la valeur de la case AD10 dans l'onglet "FF" du fichier souhaité.
Mais il y a une erreur, pourriez-vous me dire laquelle:

Sub importer()
'
' importer Macro
'
' Touche de raccourci du clavier: Ctrl+e
'
Classeur = Application.GetOpenFilename("Classeurs Excel,FF*")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
Worksheets(Classeur).Sheets("FF").Range("AD10").Value

End Sub

Merci d'avance

 

[Pierrot93]

Re : Erreur

Re,

modifie la dernière instruction comme suit :

Workbooks("NomClasseurOrignine.xls").Sheets("NomFeuille").range("B1").value = wb.Sheets("FF").Range("AD10").Value

noms des objets à adapter.