VBA fonctionnement de dir Résolu/Fermé

Question

bonjour :),
allons doit au but voici mon code:

Dim verif As String

Dim appExcel As Excel.Application
Dim wbk As Excel.Workbook, wsht As Excel.Worksheet




chemin = "C:\Users\yannick\Desktop\"
fich = fichier.Value
direction = chemin & fich

verif = dir(direction)
If verif = "" Then
MsgBox ("le fichier n'existe pas")
Exit Sub
Else


Set appExcel = New Excel.Application
appExcel.Visible = True
Set wbk = appExcel.Workbooks.Open(direction, ReadOnly:=True)
Set wsht = wbk.Worksheets(1)

la variable verif prend toujours la valeur : ""
alors que la variable direction contient le bon chemin puisque ce code ouvre le fichier sans aucun problème:

Dim appExcel As Excel.Application
Dim wbk As Excel.Workbook, wsht As Excel.Worksheet



chemin = "C:\Users\yannick\Desktop\"
fich = fichier.Value
direction = chemin & fich
Set appExcel = New Excel.Application
appExcel.Visible = True
Set wbk = appExcel.Workbooks.Open(direction, ReadOnly:=True)
Set wsht = wbk.Worksheets(1)

j'ai surement du mal comprendre le fonctionnement de dir la variable, vérif ne devrait elle pas valoir l'adresse du fichier?? :)



Configuration: Windows 7 / Firefox 3.6.3

Polux31 · Answer

Bonjour,

Pourquoi utiliser une variable ? tu peux faire :
If Dir(direction) = "" Then
MsgBox ("le fichier n'existe pas")
Exit Sub
End If


Dir() doit retourner le nom du fichier. S'il ne retourne rien, c'est que le fichier n'existe pas. As-tu vérifié en mode pas à pas ce que contient "fich" ? et ensuite "direction"?

;o)

kenru64 · Answer

si ca peux aider j'ai meme fais dir("C:\Users\yannick\Desktop\lefichier") et dir retourne toujours une valeur null alors pourtant je suis pas fou ce fichier est bien sur mon bureau :) j'ai fais copier coller pour le chemin et même chose pour le nom du fichier (fichier excel)

j'arrive pas a comprendre ce que je fais de mal mais surement quelquechose

pilas31 · Answer

Bonjour,

Juste une idée : Dans fichier.value le nom du fichier ne doit pas contenir l'extension ".xls" donc dir ne trouve pas le fichier mais open l'ouvre quand même car c'est une appli excel.

A+

kenru64 · Answer

bien vue je travailler toujours sur du xlsx j'avais pas besoin de préciser l'extension mais la c'est un fichier xsl 2003.....

merci beaucoup

VBA fonctionnement de dir

4 réponses

Discussions similaires