VBA fonctionnement de dir

Résolu

kenru64 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
kenru64 Messages postés 29 Date d'inscription Statut Membre Dernière intervention - 19 avril 2010 à 17:17

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?? :)

A voir également:

Vba dir
Dir/s - Forum Windows
Win dir stat - Télécharger - Gestion de fichiers
Kif n dir traduction ✓ - Forum Windows
Le dir/s (dans l'invite de commande) ✓ - Forum Programmation
Commande dir/s - Forum Windows

4 réponses

Réponse 1 / 4

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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 Messages postés 29 Date d'inscription Statut Membre Dernière intervention 5

alors j'ai utilisé la variable parce-que ca ne marchais pas comme ca : If Dir(direction) = "" Then même si c'est vrai ca devrais marcher

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

Discussions similaires

comment colorer une plage de cellule (VBA)

VBA excel : résoudre problème de capacité.

Inserer une colonne VBA EXCEL

erreur 424 "objet requis" sous excel

macro excel: transposition colonne en ligne

mail automatique à partir d'excel

Votre réponse

Discussions similaires