[Vba] Ouverture d'un fichier Excel

Question

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:\...
omfichier.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.

irem · Answer

bien sur, il suffit d'écrire

'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open(application.path & "
omfichier.xls")


Irem

Nurb · Answer

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 ...

sncf · Answer

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

Utilisateur anonyme · Answer

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

[Vba] Ouverture d'un fichier Excel

4 réponses

Discussions similaires

Newsletters