1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

VBA ouvrir un fichier excel depuis excel

Signaler
Messages postés
29
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
24 janvier 2006
 -
Messages postés
1
Date d'inscription
lundi 8 février 2010
Statut
Membre
Dernière intervention
22 mars 2011
 -
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
A voir également:

5 réponses

Réponse 1 / 5
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005
Essaie ça:

Application.Workbooks.Open "c:\le_chemin_de_ton_fichier.xls"

A+
MD
Réponse 2 / 5
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005
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
Réponse 3 / 5
Messages postés
29
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
24 janvier 2006
 1
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
Réponse 4 / 5
Messages postés
29
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
24 janvier 2006
 1
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
Réponse 5 / 5
Messages postés
1
Date d'inscription
lundi 8 février 2010
Statut
Membre
Dernière intervention
22 mars 2011
Thanks :D
Posez votre question