[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
Utilisateur anonyme - 27 mai 2007 à 14:17
A voir également:
- [Vba] Ouverture d'un fichier Excel
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
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
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
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(application.path & "\nomfichier.xls")
Irem
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
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 ...
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
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
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
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
27 mai 2007 à 14:17
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 :
Lupin
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