Vérification presence d'un fichier

Version imprimable

Voir 40 message(s) de cette discussion en une page

16/06/2008, 10h43
Léponge85

Vérification presence d'un fichier

Bonjour tout le monde,

Je debute en VBA et je souhaiterai vérifier si un fichier et present dans un dossier.
Comment peut on faire pour permettre ceci.
Merci a vous

Salut,

si tu connais le nom complet, voici un exemple pour le faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function fichier_existe(fullname as string) As Boolean
Dim res             As Variant
 
res = Dir(fullname, vbSystem)
If res = "" Then
   MsgBox "fichier non trouvé " & fullname
   fichier_existe = false
   Exit Function
 else
  fichier_existe = true
End If
 
 
End Function

et pour tester l'existe du fichier "C:\windows\explorer.exe" tu fais

Code:

1
2
3
4
5
6
7
 
dim fichier as string
 
fichier = "C:\windows\explorer.exe"
if fichier_existe(fichier) then
 ....
endif

Merci pour ta reponse mais si on se ve pas une fonction mais juste un morceau de code a ajouter au code initial comme ceci :
Code:

1 2 3 4 5 6 7 8 nom = Cells(7, 2) & ".JPG" Set filesys = CreateObject("Scripting.FileSystemObject") le_chemin_du_fichier = "images/ " & nom & " " If filesys.FileExists(le_chemin_du_fichier) Then MsgBox "il existe" Else MsgBox "il n'existe pas" End If
sauf que sa ne marche pas sa me dit tout le temps qu'il n'existe pas
Merci pr ton aide

16/06/2008, 11h25
Godzestla
je vois au moins 2 problèmes :

Citation:

le_chemin_du_fichier = "images/ " & nom & " "

1) remplace / par \ partout
2) tu ne donnes pas le chemin complet de ton fichier. Si tu veux savoir ou ton code cherches et après quoi, tu fais
Code:

1 2 debug.print Activeworkbook.path & "images\" nom
donc pour tester avec mon code il te faudrait :
Code:

1 2 3 4 5 6 7 8 le_chemin_du_fichier = "images\" & nom res = Dir(le_chemin_du_fichier, vbSystem) If res = "" Then MsgBox "il n'existe pas" Else MsgBox "il existe" endif
16/06/2008, 11h32
Léponge85

Merci beaucoup
Mais je comprend pas le fichier existe puis il me dit qu'il n'existe pas .
16/06/2008, 11h47
Godzestla

Donne moi des détails.

je ne te comprends pas.

merci de rattacher tes remarques à des lignes de code avec des valeurs de variables.
16/06/2008, 11h55
Léponge85
Code:

1 2 3 4 5 6 7 8 nom = Cells(7, 2) & ".JPG" le_chemin_du_fichier = "images\" & nom res = Dir(le_chemin_du_fichier, vbSystem) If res = "" Then MsgBox "il n'existe pas" Else MsgBox "il existe" End If
Tu vois j'ai un catalogue de piéce détachées et ce que je veux c'est lorqu'il y a une image qui porte le ref de le piéce cela me fasse un appareille foto et lorsqu'on clic dessus sa m'affiche la foto.Cela marche nikel sauf que sa me met des appareille foto a toute les piéce et moi je veux qu'il y ai un appareil foto quand il y a une image dans le fichier image\Le_nom_de_laRef.

Ce que je comprend pas c'est la foto existe dans le fichier et sa me met q'il n'existe pas.
Merci de ton aide
16/06/2008, 11h59
ucfoutu

Bonjour,

Dir ne le trouvera pas si le fichier a un attribut "caché" ...

essaye donc avec :

Code:

res = Dir("d:\essai.txt", vbHidden Or vbNormal)

eu lieu de

Code:

res = Dir("d:\essai.txt", system)

en changeant bien évidemment d:\essai.txt par ton chemin complet, hein ...

Edit :

et

Code:

le_chemin_du_fichier = "images\" & nom

n'est pas du tout un chemin complet
16/06/2008, 11h59
Godzestla

C'est quoi le chemin du répertoire de photos ?

Donne moi aussi un exemple de nom de photos.
16/06/2008, 12h02
mayekeul

bonjour,

Citation:

"images\" & nom

te mettra tjs une erreur, tu doit lui envoyer un chemin absolu.

dans ton cas, il n'y a aucun renseignement sur le lecteur employé, etc...

par ex

Code:

"c:\images" & nom

serait correct
16/06/2008, 12h13
Godzestla

Je me tue à le dire...:roll:
16/06/2008, 12h20
mayekeul

Citation:

Je me tue à le dire... :roll:

je sais, c'est pour ça que j'en remet une couche!
;)
16/06/2008, 13h18
Léponge85

C'est bon les gars sa fonctionne
Merci pour votre aide
16/06/2008, 13h44
Léponge85

J'orai encore une question.
Est ce que c'est possible de mettre un chemin relatif.
Merci de votre réponse
16/06/2008, 14h15
Godzestla

Du genre de quoi ?
16/06/2008, 15h15
ucfoutu

Citation:

Envoyé par Léponge85

J'orai encore une question.
Est ce que c'est possible de mettre un chemin relatif.
Merci de votre réponse

Oui, bien évidemment !
En général on choiisit le dossier de l'application, pour y mettre son dossier toto et s'y référer ainsi :

Code:

dossier = Application.path & "\toto"

ce qui fait que si fichier se nomme "titi.txt", on se réfère ainsi à ce fichier :

Code:

chemin_complet_fichier = dossier & "\" & fichier

Tu peux bien évidemment choisir un autre dossier (s'il est fixe et connu) que celui de ton application ...
16/06/2008, 15h29
Léponge85

Sa ne marche pas quand je met le relatif

Code:

le_chemin_du_fichier = "V:\sav\Alan\Cata avec photo\version complete\web2008\pages\images\" & nom

Pouvez vous m'aidez svp
Merci d'avance

Citation:

Envoyé par Léponge85

J'orai encore une question.
Est ce que c'est possible de mettre un chemin relatif.
Merci de votre réponse

Oui mait tout dépend où ton chemin doit pointer au final... Tu peux aussi utiliser des variables d'environnement si tu souhaites utiliser ta macro pour plusieurs utilisateurs ou machines...

Par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub VariableEnvironnement()
  Debug.Print "USERNAME : " & Environ("USERNAME")
  ' neo2k2
  Debug.Print "USERDOMAIN : " & Environ("USERDOMAIN")
  ' WORKGROUP
  Debug.Print "USERPROFILE : " & Environ("USERPROFILE")
  ' C:\Documents and Settings\neo2k2
  Debug.Print "ALLUSERSPROFILE : " & Environ("ALLUSERSPROFILE")
  ' C:\Documents and Settings\All Users 
  Debug.Print "APPDATA : " & Environ("APPDATA")
  ' C:\Documents and Settings\neo2k2\Application Data 
  Debug.Print "COMPUTERNAME : " & Environ("COMPUTERNAME")
  ' MON_PC
  Debug.Print "HOMEDRIVE : " & Environ("HOMEDRIVE")
  ' C:
  Debug.Print "HOMEPATH : " & Environ("HOMEPATH")
  ' \Documents and Settings\neo2k2
  Debug.Print "LOGONSERVER : " & Environ("LOGONSERVER")
  ' \neo2k2
  Debug.Print "SYSTEMDRIVE : " & Environ("SYSTEMDRIVE")
  ' C:
  Debug.Print "SYSTEMROOT : " & Environ("SYSTEMROOT")
  ' C:\WINDOWS
  Debug.Print "TEMP : " & Environ("TEMP")
  ' C:\DOCUME~1\neo2k2\LOCALS~1\Temp
End Sub

16/06/2008, 15h56
ucfoutu

Qu'affiche donc :

Code:

msgbox "V:\sav\Alan\Cata avec photo\version complete\web2008\pages\images\" & nom

puis vérifie que ce qui est affiché correspond bien à un fichier existant (chemin complet)... !!!

Et je ne vois là rien de relatif !!!!
16/06/2008, 16h02
Léponge85

Ce chemin correspond a la photo.
Je sais qu'il n'est pas relatif c'est justement la question. Comment le rendre relatif

Voir 40 message(s) de cette discussion en une page