Connaitre si une image existe ou pas

**IVIedia** · 27/04/2017, 14h06

Bonjour à tous,

j'ai un fichier excel avec des références et à coté de ça j'ai également un dossier avec des images
ce qui est bien le nom des images sont les mêmes que ceux des références

exemple de fichier excel

REFERENCE - IMAGES

123 - 123.jpg
198 - 198.jpg
234 - 234.jpg

ce que j'aimerais faire c'est interrogé la colonne images et de savoir si physiquement l'image existe ou pas dans le dossier images

ainsi j'aurais une 3eme colonne avec VRAI pour existant FAUX pas présent

comme ça au final je peux trier les FAUX et faire ma recherche d'image

c'est possible?

Merci

**Jean-Philippe André** · 27/04/2017, 14h16

Salut,

En faisant une fonction VBA tu peux y arriver.

Regarde les solutions que te donnent
- Dir()

**IVIedia** · 27/04/2017, 14h58

Bonjour et merci pour votre réponse,

j'ai googlé et essaye de faire des test mais je n'arrive pas
j'essaye déjà de voir si ce code fonctionne

Code :

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

1
2
3
4
5
If Not Dir("Macbook Pro DE:Users:pecde:Desktop/img/img_IMG_SITE/0XM.jpg", vbDirectory) = vbNullString Then
    MsgBox "exists"
Else
    MsgBox "does not exist"
End If

Puis je devrez trouvez la méthode pour insérer dans la cellule

merci

**Jean-Philippe André** · 27/04/2017, 15h09

Un lien vers le cours en anglais de la reference en terme de dev vba sous Mac :
https://www.rondebruin.nl/win/s9/win003.htm

Quant a la syntaxe pour arriver a pointer sur ton fichier, je n'ai plus de mac sous la main pour te donner la solution.

**IVIedia** · 27/04/2017, 15h20

Ok je regarde ça, sans passé par du vba on sais faire cela? avec excel?

**IVIedia** · 27/04/2017, 15h54

j'ai résolu mon problème avec mysql
merci

**RyuAutodidacte** · 27/04/2017, 23h40

Bonsoir tous,

Jean-Philippe André : Attention le lien donné est pour PC

Pour ceux qui passe par là :

Solutions Valables pour Excel Mac 2016 et 2011

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
Sub FicExiste()
    'Type de chemin Excel 2016 
    Chm = "/Users/UserName/Desktop/DeveloppezCom/TESTS EXCEL 2016/"
    'Type de chemin Excel 2011
    'Chm = "Macintosh HD:Users:UserName:Desktop:DeveloppezCom:TESTS EXCEL 2016:"
    With Sheets("Feuil1")
        DL = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DL
            On Error Resume Next
            FichierExiste = Dir(Chm & .Range("B" & i).Value, vbDirectory)
            If Not Err.Number > 0 Then .Range("C" & i) = "Vrai" Else .Range("C" & i) = "Faux"
            On Error GoTo 0
        Next
    End With
End Sub

@IVIedia : N'oublie pas de mettre

et de mettre des

si des posts t'ont été utile

**kiki29** · 28/04/2017, 00h15

Salut, Check if File or Directory exists

**IVIedia** · 28/04/2017, 06h47

Envoyé par RyuAutodidacte

Bonsoir tous,

Jean-Philippe André : Attention le lien donné est pour PC

Pour ceux qui passe par là :

Solutions Valables pour Excel Mac 2016 et 2011

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
Sub FicExiste()
    'Type de chemin Excel 2016 
    Chm = "/Users/UserName/Desktop/DeveloppezCom/TESTS EXCEL 2016/"
    'Type de chemin Excel 2011
    'Chm = "Macintosh HD:Users:UserName:Desktop:DeveloppezCom:TESTS EXCEL 2016:"
    With Sheets("Feuil1")
        DL = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DL
            On Error Resume Next
            FichierExiste = Dir(Chm & .Range("B" & i).Value, vbDirectory)
            If Not Err.Number > 0 Then .Range("C" & i) = "Vrai" Else .Range("C" & i) = "Faux"
            On Error GoTo 0
        Next
    End With
End Sub

@IVIedia : N'oublie pas de mettre

et de mettre des

si des posts t'ont été utile

Bonjour votre code fonctionne bien sans erreur j'ai un peux adapter les colonnes pour mon usage
cependant ça me donne des faux ...

Le fichier excel ce trouve au même niveau que les images dans le bureau dossier IMG puis IMG_SITE

la colonne I c'est ou il ya les nom des images et la colonne K c'est ou le vrai, faux doit être visibile

voici comment j'ai adapté merci

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
Sub FicExiste()
    'Type de chemin Excel 2016
    'Chm = "/Users/UserName/Desktop/DeveloppezCom/TESTS EXCEL 2016/"
    'Type de chemin Excel 2011
    Chm = "Macintosh HD:Users:Moi:Desktop:IMG:IMG_SITE:"
    With Sheets("Feuille1")
        DL = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DL
            On Error Resume Next
            FichierExiste = Dir(Chm & .Range("I" & i).Value, vbDirectory)
            If Not Err.Number > 0 Then .Range("K" & i) = "Vrai" Else .Range("K" & i) = "Faux"
            On Error GoTo 0
        Next
    End With
End Sub

**RyuAutodidacte** · 28/04/2017, 09h24

Bonjour,

PS : merci de ne pas répéter le message précédent me correspondant afin que l'on puisse avoir une fluidité dans la lecture

Il me semble que la discussion ouverte, concerne Excel Mac 2016.
Hors le chemin indiqué dans ton code, est celui de Excel Mac 2011, donc pas le bon.
Il faut remplacer :

Code :

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

Chm = "Macintosh HD:Users:Moi:Desktop:IMG:IMG_SITE:"

Par :

Code :

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

Chm = "/Users/UserName/Desktop/IMG/IMG_SITE/"

Remplacer UserName par le nom de session correspondant.

De plus, le code pour trouver la dernière ligne est à modifier, on a :

Code :

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

DL = .Cells(Rows.Count, 2).End(xlUp).Row

Qui correspond à la colonne B, il faut le modifier le code afin qu'il correspond à la colonne "J" :

Code :

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

DL = .Cells(Rows.Count, 10).End(xlUp).Row

Attention que le nom de la feuille correspond bien, dans mon code c'est : "Feuil1"
Est ce bien le nom de ta feuille ? Sinon mettre le nom correspondant dans ton code.

Voilà

Edit : petite modif de texte

**IVIedia** · 28/04/2017, 10h17

Re bonjour

MERCI !!!

- Car le code fonctionne très bien
- Pour l’explication

ça fonctionne à merveille

grâce à votre aide vous m'avez sauvé ma journée,
je pouvais effectué ce genre de tâches sans excel mais un peux long et beaucoup de chipotage et manipulation avec mysql, import, export, re ouvrir le fichier csv adapter ...

et la avec cet macro en 1 clique je peux connaitre si il existe ou pas

Merci encore une fois
bonne journée

**RyuAutodidacte** · 28/04/2017, 10h21

De rien,
N'oublie pas de voter en bas à droite des posts qui t'ont été utile
Bonne continuation

**IVIedia** · 03/01/2018, 22h41

Bonsoir je re ouvre ce topic car au mois d'avril 2017 j'avais demander de l'aide pour une macros, mais je n'arrive plus a le faire fonctionner pourtant le code fonctionner bien, pouvez vous me dire si il y a du changements au niveau du excel ou une erreur dans le code? normalement j'ai rien toucher ....

dans le résultat il me met ou faux partout ou vrai ...

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub FicExiste()
    'Type de chemin Excel 2016
    Chm = "/Users/me/Desktop/drapeau/images/"
    With Sheets("Feuil1")
        DL = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DL
            On Error Resume Next
            FichierExiste = Dir(Chm & .Range("b" & i).Value, vbDirectory)
            If Not Err.Number > 0 Then .Range("c" & i) = "Vrai" Else .Range("c" & i) = "Faux"
            On Error GoTo 0
        Next
    End With
End Sub

**RyuAutodidacte** · 04/01/2018, 13h12

Bonjour,

sur quel version du système OS X es tu ? la dernière ?

**IVIedia** · 04/01/2018, 13h24

Bonjour je suis sur mac os 10.11.6 et excel 15.41

merci

**RyuAutodidacte** · 04/01/2018, 14h09

J'ai bien le problème aussi avec le 2016 que je n'avais pas avant mais c'est ok avec Excel 2011
Là j'ai pas trop le temps mais je vais regarder …

**IVIedia** · 04/01/2018, 14h13

Merci à votre aise,
malheureusement je n'est plus office 2011

à bientôt

**RyuAutodidacte** · 04/01/2018, 23h03

re,

j'ai essayé comme cela et ça marche chez moi avec Excel 2016 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub FicExiste()
    'Type de chemin Excel 2016
    Chm = "/Users/me/Desktop/drapeau/images/"
    With Sheets("Feuil1")
        DL = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DL
            On Error Resume Next
            FichierExiste = Dir(Chm & .Range("B" & i).Value, vbDirectory)
            If FichierExiste > "" Then .Range("C" & i) = "Vrai" Else .Range("C" & i) = "Faux"
            On Error GoTo 0
        Next
    End With
End Sub

Edit : n'oublie pas de mettre le bon chemin en Chm

**IVIedia** · 05/01/2018, 00h14

Bonsoir votre code macros fonctionne,

lorsque je lance la macros j'ai une fenêtre qui s'ouvre pour "accorder l’accès", voir image -> https://d.pr/i/aeuVs4

on sais confirmer ce message pour tout les images une fois pour tout?

car il ouvre cet fenêtre pour chaque ligne ou il y a une image existante ...

Merci

**RyuAutodidacte** · 05/01/2018, 09h16

L'explication et ce qu'il faut faire :
https://msdn.microsoft.com/fr-fr/lib.../mt654020.aspx

donc lister les fichiers dans un array et utlisé la commande GrantAccessToMultipleFiles

Connaitre si une image existe ou pas [XL-MAC 2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager