[Vba] Ouverture d'un fichier Excel

Fermé
Nurb Messages postés 2 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 25 mai 2007 - 25 mai 2007 à 11:03
 Utilisateur anonyme - 27 mai 2007 à 14:17
Bonjour à tous,

Etant novice dans l'utilisation de Vba, je sollicite de l'aide afin de résoudre un petit problème.

J'utilise le code suivant afin d'ouvrir un fichier Excel avec Vba :

Private Sub Command5_Click()
'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\...\nomfichier.xls")
'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
End Sub

Ce code fonctionne bien, cependant le chemin d'accès du fichier à ouvrir sera différent en fonction de l'utilisateur ce qui posera problème.

J'ai placé le fichier dans le même dossier que l'application Vba et je souhaiterais un code me permettant d'aller le chercher directement dans ce dossier, sans avoir à rentrer de chemin d'accès. Cela est-il possible ?

Merci de votre aide.

Nurb.
A voir également:

4 réponses

irem Messages postés 164 Date d'inscription mardi 22 mai 2007 Statut Membre Dernière intervention 9 octobre 2012 99
25 mai 2007 à 11:34
bien sur, il suffit d'écrire

'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(application.path & "\nomfichier.xls")


Irem
0
Nurb Messages postés 2 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 25 mai 2007
25 mai 2007 à 15:41
Le code ainsi ne fonctionne pas, Vba n'arrive plus à ouvrir le fichier et indique que le chemin d'accès n'est pas valide.

Il va chercher le fichier Excel dans :
'C:\Program Files\Microsoft Office\OFFICE11\Nomfichier.xls'
au lieu d'aller le chercher dans le dossier ou se trouve le fichier Vba ...
0
sncf Messages postés 121 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 11 septembre 2011 14
26 mai 2007 à 01:04
Bonsoir
ton code d'ouverture ne serait pas dans PERSO.XLS par hasard ? cequi expliquerait pourquoi il cherche dans le répertoire où se trouve EXCEL
0
Utilisateur anonyme
27 mai 2007 à 14:17
Bonjour,


Cette instruction implique des objets supportés par VBS
[ Set appExcel = CreateObject("Excel.Application") ]

Etes-vous vraiment sous VBA et si oui, sous quel logiciel ?
(Excel, Access, Word, Powerpoint ... ???)

Si vous êtes sous Excel, je vous cite :
"... J'ai placé le fichier dans le même dossier que l'application Vba ..."
je suggère le code suivant :

Option Explicit

'
Const MonFichier = "Liste.xls"
'

Sub OuvrirFichier()

    Dim NomFichier As String
    
    NomFichier = ActiveWorkbook.FullName
    NomFichier = Left(NomFichier, InStrRev(NomFichier, "\"))
    NomFichier = NomFichier & MonFichier
    
    MsgBox NomFichier
    Workbooks.Open (NomFichier)

End Sub
'


Lupin
0