Sujet Précédent Sujet Suivant

[Vba] Ouverture d'un fichier Excel

Nurb Messages postés 2 Statut Membre -  
 Utilisateur anonyme -
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

Réponse 1 / 4
irem Messages postés 166 Statut Membre 99
 
bien sur, il suffit d'écrire

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

Irem
0
Réponse 2 / 4
Nurb Messages postés 2 Statut Membre
 
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
Réponse 3 / 4
sncf Messages postés 122 Statut Membre 14
 
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
Réponse 4 / 4
Utilisateur anonyme
 
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