VBA fonctionnement de dir
Résolu
kenru64
Messages postés
29
Statut
Membre
-
kenru64 Messages postés 29 Statut Membre -
kenru64 Messages postés 29 Statut Membre -
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?? :)
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?? :)
A voir également:
- Vba dir
- Dir/s - Forum Windows
- Kif n dir traduction ✓ - Forum Windows
- Win dir stat - Télécharger - Gestion de fichiers
- Le dir/s (dans l'invite de commande) ✓ - Forum Programmation
- Commande dir/s - Forum Windows
4 réponses
Bonjour,
Pourquoi utiliser une variable ? tu peux faire :
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)
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)
ensuite oui direction contient bien l'adresse du fichier sinon en enlevant le test sur l'existence du fichier il ne pourrais pas l'ouvrir non??