Sub Ouvre()
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant
Dim Classeursource As String
Nom_Fichier = Application.GetOpenFilename
If Nom_Fichier <> False Then
Set wbMyWb = Workbooks.Open(Nom_Fichier)
'wbMyWb.Activate
End If
'Attribution de la valeur nom du classeur source
Classeursource = wbMyWb.Name
'activation du classeur destination (une seule fois)
Windows("App'cot.xlsm").Activate
'Range("J4:S4").Select
'ActiveCell.FormulaR1C1 = "=??????!R6C8:R6C17"
'
With ActiveWorkbook.Sheets("Cotation")
.Range("A1").Value = Workbooks(Classeursource).Sheets(1).Range("A1").Value
End With
End Sub