VBA ouvrir un fichier excel depuis excel

Question

Bonjour

Je souhaite ouvrir un fichier excel se trouvant dans le meme repertoire que le fichier courant. car son emplacement peut varier. Mais je ny arrive pas mon code actuel est :

Public Sub OuvreBase()

' Ouverture de la base base.xls
On Error GoTo Err:

With Workbook
   .Open filename:=Application.ActiveWorkbook.Path & "" & "base.xls"
End With

On Error GoTo 0

Exit Sub

Err:
On Error GoTo 0

MsgBox "Problème lors de l'ouverture de la base base.xls" , vbExclamation
End Sub

Et avec ça ça ne passe pas.
merci pour votre aide
RV

Arsena · Answer

Essaie ça:

Application.Workbooks.Open "c:\le_chemin_de_ton_fichier.xls"

A+
MD

Arsena · Answer

Tu peut aussi faire:

Sub Macro1()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("base.xls")
    s = UCase(f.Path)

Application.Workbooks.Open (s)
End Sub

A+
MD

rvw68 · Answer

Merci 
j'y suis arrivé avec le code :

Dim sFichier, ChDir As String
'Définir le chemin
ChDir = Application.ActiveWorkbook.Path
'Ouvrir  base.xls
sFichier = Dir("base.xls")
Workbooks.Open (sFichier)

Donc merci et à bientôt

rvw68 · Answer

Coucou

En fait mon code a marché hier sous excel 97 je l'ai tseté sur 2000 il ne passait plus. donc ton code m'a été bien pratique, j'en ai fait ça

Application.Workbooks.Open Application.ActiveWorkbook.Path & "" & "base.xls"

Et ça fonctionne en 97 et 2000

Merci

helpfairy · Answer

Thanks :D