Cambiar un nombre de archivo automáticamente por una variable

Hola
Gracias por tu respuesta, que funciona perfectamente. Pero como dices en la publicación, es necesario abrir el archivo del año anterior. La contable que va a usar este archivo no pensará necesariamente en abrir los dos documentos al mismo tiempo, es ahí donde podría haber un problema. Por eso me estaba orientando hacia una macro y pedí ayuda a la lista porque no conozco el lenguaje.
Sin embargo, es muy amable de tu parte haber respondido tan rápidamente, te lo agradezco de nuevo, via55. No conocía la función indirecta que he añadido de inmediato a mi repertorio de conocimientos.
Saludos
Robby

Désolé, je ne peux pas vous aider avec ça.

Bonjour

Una metodología a adaptar
Macro denominada de Walkenbach

Sub leer_cierre()
Dim camino As String, milesime as Integer
 camino = ThisWorkbook.Path ' A ADAPTAR
 milesime = ExecuteExcel4Macro("'" & camino & "\[fuente.xls]Hoja1'!R2C1") 'R2C1=A2, NOMBRE DEL LIBRO A ADAPTAR
 Msgbox "nomdelibro" & milesime
End Sub 

Michel

Buenas noches Michel
Disculpa, pero soy completamente ignorante sobre macros. En Excel mismo, sin macros, me las arreglo, pero soy un cero a la izquierda en macros. Así que si puedes aclararme el código, me sería de gran ayuda. Te doy la siguiente información:
la ruta es: F:\Poney Club du Moulin\Comptabilité\
en esta carpeta tengo la contabilidad actual: 2014_comptabilité.xlsm con, entre otras, una hoja 'bilan' y una hoja 'compte de résultat' y el futuro 2015_comptabilité.xlsm con, entre otras, una hoja 'bilan' y una hoja 'compte de résultat' que actualmente están vacías porque el año aún no ha comenzado, aunque en el archivo 2015 tengo que leer la información de 2014 y colocarla en esta hoja 2015..
Gracias de antemano por tu ayuda
Saludos
Robby

Bonjour
No conociendo mucho sobre VBA, busqué y probé a partir de lo que me indicaron mis dos profesores, a quienes agradezco mucho porque sin ellos todavía estaría buscando y al final encontré la solución adecuada (a mis ojos, tal vez haya algo más simple). Se la comunico si alguien más está buscando el mismo problema que el mío.
CDL
Robby
Y un gran gracias a via55 y michel_m

Sub ImporterDonneesSansOuvrir()

Dim Chemin As String, Fichier As String
Chemin = "F:\Poney Club du Moulin\Comptabilité\"
Fichier = "2014_Comptabilité Poney Club.xlsm"
'Rango D8 a D21
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$8:$C$21"
With Sheets("Compte de résultat général")
.[D8:D21] = "=plage"
.[D8:D21].Copy
Sheets("Compte de résultat général").Range("$D$8:$D$21").PasteSpecial xlPasteValues
'.[D8:D21].Clear
End With

'Rango1 D27 a D55

ThisWorkbook.Names.Add "plage1", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$27:$C$55"
With Sheets("Compte de résultat général")
.[D27:D55] = "=plage1"
.[D27:D55].Copy
Sheets("Compte de résultat général").Range("$D$27:$D$55").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Rango2 D61 a D63

ThisWorkbook.Names.Add "plage2", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$61:$C$63"
With Sheets("Compte de résultat général")
.[D61:D63] = "=plage2"
.[D61:D63].Copy
Sheets("Compte de résultat général").Range("$D$61:$D$63").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Rango3 D69 a D76

ThisWorkbook.Names.Add "plage3", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$69:$C$76"
With Sheets("Compte de résultat général")
.[D69:D76] = "=plage3"
.[D69:D76].Copy
Sheets("Compte de résultat général").Range("$D$69:$D$76").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Rango4 D80 a D82
ThisWorkbook.Names.Add "plage4", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$80:$C$82"
With Sheets("Compte de résultat général")
.[D80:D82] = "=plage4"
.[D80:D82].Copy
Sheets("Compte de résultat général").Range("$D$80:$D$82").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Rango5 D90 a D98
ThisWorkbook.Names.Add "plage5", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$90:$C$98"
With Sheets("Compte de résultat général")
.[D90:D98] = "=plage5"
.[D90:D98].Copy
Sheets("Compte de résultat général").Range("$D$90:$D$98").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

End Sub