Ouverture de fichier excel avec VB

cs_lu6fer Messages postés 131 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 21 juillet 2005 - 15 juin 2004 à 13:03
cs_lu6fer Messages postés 131 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 21 juillet 2005 - 16 juin 2004 à 09:32
voila j'utilise ce code pour ouvrir un fichier excel mais le probleme et que cela marcher tres bien avant le changement de mon nom de fichier et de son emplacement

vb me met erreur 1004 verifier l'orthographe.
or l'orthographe du chemin et de fichier et forcement bonne car je fait un pier coller du nom.

chemin = "G:\Fichier_Reference_MaJ_Airbus"
fichier = Dir(chemin & "Fichier_Reference_MaJ_Airbus.xls")
set docExcel = appExcel.Workbooks.Open(chemin
 & "" & fichier)


et le debugger me met l'erreur sur cette derniere ligne mais avec 2 msgBox placer apres chemin et fichier je me suis a perssu que fichier et vide voila si quel qu'un a une idee merci d'avance @+

4 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
15 juin 2004 à 13:11
tu as pas un petit soucis ?

chemin = "G:\Fichier_Reference_MaJ_Airbus"
fichier = Dir(chemin & "Fichier_Reference_MaJ_Airbus.xls")

' fichier contient donc le chemin ET le nom du fichier

ici, tu demandes a ouvrir Chemin & "" & Fichier
soit :

G:\Fichier_Reference_MaJ_Airbus\\G:\Fichier_Reference_MaJ_Airbus\Fichier_Reference_MaJ_Airbus.xls

set docExcel = appExcel.Workbooks.Open(chemin
& "" & fichier)

utilises donc :

set docExcel = appExcel.Workbooks.Open(fichier)
0
cs_lu6fer Messages postés 131 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 21 juillet 2005
15 juin 2004 à 14:10
oui je vien d'essayer en utilisant
fichier = chemin + "Fichier..."
puis set docExcel = appExcel.Workbooks.Open Fichier
mais l'erreur et tjs la meme

erreur d'execution '1004'

G:\Fichier...\Fichier....XLS
introuvable. Verifier lorthogrephe du nom du classeur et la validité de l'emplacement
si vous essayer d'ouvrir le fichier a partir de la liste des fichier...

si tu vois quel que chose
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
15 juin 2004 à 17:20
a toi de t'asssurer du chemin de ton fichier....

mais pourquoi tu utilises tes variables, et ne fais pas simplement :

set docExcel = appExcel.Workbooks.Open "G:\Fichier_Reference_MaJ_Airbus.xls"
0
cs_lu6fer Messages postés 131 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 21 juillet 2005
16 juin 2004 à 09:32
merci ct une erreur a la con...
mon fichier aaa.xls avait pour nom complet aaa.xls.xls

mais avec windows qui cache les extention je ne pouvait pas le voir
merci d'avoir repondu @+
0
Rejoignez-nous