Vérifier si fichiers existent

Version imprimable

13/05/2017, 15h10
Taktser

1 pièce(s) jointe(s)

Vérifier si fichiers existent

Bonjour,

J'ai un tableau composé de deux colonnes :

Dans la première (colonne A), des titres de fichiers y figurent. J'aimerai que dans la colonne B, la macro complète automatiquement la présence et l'absence du fichier dans un répertoire (ne changeant jamais). Etant novice en vba, j'ai bricolé un code que j'ai repris mais cela ne fonctionne pas . Pouvez-vous m'aider s'il vous plait, je vous joints mon fichier.Vérification existance fichier.xlsm

Merci d'avance,
13/05/2017, 15h44
unparia

Bonjour
- je n'ouvrirai en aucun cas un classeur tiers pour y voir ce que l'on n'expose pas dans la discussion elle-même
- c'est le code tenté, qu'il convient de montrer ici, pas le classeur
- l'utilisation simple de la fonction dir est la solution

Bonjour, merci pour votre réponse. Je procède de la façon suivante :

Tout d'abord, dans un module, j'ai inséré la fonction ci-dessous :

Code:

1
2
3
4
5
6
7
8
Public Function FichierExiste(MonFichier As String)
 
   If Len(Dir(MonFichier)) > 4 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function

Puis dans un second module, j'ai ma macro suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TesteSiFichierExiste()
Dim MonFichier As String
 
 
Set Xlclass = Worksheets("Feuil1")
For i = 2 To Xlclass.Cells(Rows.Count, "A").End(xlUp).Row
 
MonFichier = "C:\Users\" & Range("A1" & i).Value & ".pdf"
 
    If FichierExiste(MonFichier) = True Then
        Range("B" & i).Value = "Fichier présent"
    Else
        Range("B" & i).Value = "Fichier absent"
    End If
Next
End Sub

Cela ne fonctionne pas.

13/05/2017, 16h26
Marc-L

Bonjour,

la fonction pour savoir si un fichier existe est un peu superfétatoire
car il suffit juste d'une unique instruction - Dir - pour le vérifier !

Cells(i, 2).Value = "Fichier " & IIf(Dir("C:\Users\" & Cells(i, 1).Value & ".pdf") > "", "présent", "absent") …

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
13/05/2017, 16h41
Taktser

Merci pour votre retour, j'ai testé votre solution. Cela ne fonctionne pas. En effet, même lorsqu'un fichier est présent, la fonction retourne 'fichier absent".
13/05/2017, 16h46
RyuAutodidacte

bonjour,

Faudrait peut être vérifier le chemin complet de ledit fichier et comparer avec ce qu'il en retourne dans le code
13/05/2017, 16h50
Marc-L

C'est normal car mon exemple reprenant la logique du code initial (ligne de code n°8 de la procédure)
donc forcément fautive sinon cette discussion n'aurait pas lieu d'être !
Donc logique à revoir ! Et on ne saurait la corriger sans connaître les tenants et les aboutissants …
Cela commence en A2 ou en A12 ?

Cet exemple n'ayant pour but de démontrer l'inutilité de la fonction et des lignes de code n°7 à 14 de la procédure.
La ligne de code n°5 aussi n'ayant pas vraiment d'intérêt …
13/05/2017, 16h57
RyuAutodidacte

de plus en consultant la :faq: on trouve facilement un exemple : https://excel.developpez.com/faq/?pa...istenceFichier
13/05/2017, 17h00
Taktser

Comme je l'ai dit je suis débutant dans ce domaine, pour répondre à la première question :je n'ai pas le "vrai chemin" car à travers la macro je veux savoir si justement le fichier existe.

En effet, j'ai un userform qui génère des références, et les utilisateurs stockent des fichiers pdf se nommant avec ces références. Donc pour m'assurer si toutes les références ont un fichier pdf, je voulais créer cette macro pour éviter de pointer fichier par fichier dans le dossier où sont stockés les pdf.
Mon exemple commence donc en cellule A2. Pouvez-vous faire quelque chose ?
13/05/2017, 17h06
Marc-L

Donc vérifie ta ligne de code n°8 - au passage commençant en A12 elle ! Ma ligne commençant en A2 - avec les fichiers
réels puis explique-nous clairement sinon, n'étant pas sur un forum de divination, nous ne pouvons pas avancer …
13/05/2017, 17h10
Taktser

Avec les explication de mon précédent message et mon fichier, je ne sais pas comment être plus explicite.Maintenant si vous n'êtes pas en mesure de m'aider, pas de problème. Et je sais que nous ne sommes pas dans un forum de devinette, et je pense être correcte.
13/05/2017, 17h12
Marc-L

Juste en vérifiant le chemin complet d'un fichier existant avec la "construction" de la ligne de code n°8,
donc avec le contenu de la variable MonFichier …
13/05/2017, 17h23
Taktser

Code:

MonFichier = "C:\Users\" & Range("A1" & i).Value & ".pdf"

Cette partie ? en remplaçant A1 par A2?
13/05/2017, 17h43
Marc-L

Si i = 2 que vaut alors "A2" & i ? :fleche: A22 ‼

Mais comme mon exemple a déjà corrigé cette erreur et que cela ne fonctionne pas,

alors il y a une erreur dès la conception de la variable MonFichier, là : :pc: !

Donc déjà en comparant le contenu de la variable MonFichier avec le chemin complet d'un fichier existant …
13/05/2017, 18h02
unparia

Puis-je rappeler que la fonction dir, utilisée sans spécifier le paramètre attributes ainsi exposé dans l'aide interne VBA (à ouvrir et consulter systématiquement, surtout si débutant)

Citation:

Élément Description
pathname Facultatif. Expression de chaîne définissant un nom de fichier. Cet argument peut préciser le répertoire ou dossier et le lecteur. Une chaîne de longueur nulle est renvoyée si l'argument pathname est introuvable.
attributes Facultatif. Constante ou expression numérique, dont la somme définit des attributs de fichier. Si cet argument est omis, tous les fichiers sans attributs correspondant à l'argument pathname sont renvoyés.

Valeurs

L'argument attributes peut prendre les valeurs suivantes :

Constante Valeur Description
vbNormal 0 (Par défaut) Spécifie les fichiers sans attributs.
vbReadOnly 1 Spécifie les fichiers accessibles en lecture seule ainsi que les fichiers sans attributs.
vbHidden 2 Spécifie les fichiers cachés ainsi que les fichiers sans attributs.
vbSystem 4 Spécifie les fichiers système ainsi que les fichiers sans attributs. Non disponible sur le Macintosh.
vbVolume 8 Spécifie un nom de volume ; si un autre attribut est spécifié, la constante vbVolume est ignorée. Non disponible sur Macintosh.
vbDirectory 16 Spécifie les dossiers ainsi que les fichiers sans attributs.
vbAlias 64 Le nom du fichier spécifié est un alias. Disponible uniquement sur le Macintosh.

conclusion : si le paramètres attributes n'est pas spécifié, un fichier avec attribut (caché, etc ...) ne sera pas "vu"
et donc ? --->> qu'attends-tu pour l'utiliser, ce paramètre ?
13/05/2017, 20h26
kiki29

2 pièce(s) jointe(s)

Re, si tu avais suivi le lien pour une recherche tu aurais trouvé directement une réponse dans la faq !
Ce qui au final donne
13/05/2017, 22h06
Taktser

Merci à tous. Je n'ai pas cherché au bon endroit. J'avais le même code dès le départ, mais je voulais savoir à quel endroit ça bloquait.
J'ai compris. Et comme je l'ai dit je suis novice.

Merci encore!