Discussion :

[Taktser]

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,

[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

[Taktser]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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")   …

___________________________________________________________________________________________________________

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

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[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".

[RyuAutodidacte]

bonjour,

Faudrait peut être vérifier le chemin complet de ledit fichier et comparer avec ce qu'il en retourne dans le code

[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 …