Vérification de présence du fichier avant enregistrement

Version imprimable

salut a tous, dans le cadre de mon boulot je suis chargé de développer une gestion d'approvisionnement d'articles.
j'ai donc un classeur dans lequel j'ai des "part number" et un "indice" qui forment ma référence, je met ca dans une variable et ca me sort un qrcode et un code barre dans une nouvelle feuille.

j'ai ensuite fait en sorte que cette nouvelle feuille d'enregistrer au format pdf chaque ref accompagné de son qrcode et code barre pour pouvoir envoyer ca a mon fournisseur au moment de la commande comme ca il colle directement mon étiquette sur le produit.

je rencontre un problème car j'ai 899 ref potentielles et ca ne peut qu'augmenter, quand je lance la macro il me réenregistre chaque fichier et ca prend énormément de temps donc je voudrais faire en sorte que ma macro vérifie la présence du fichier pdf avant d'enregistrer et c'est la que je cale.
comme le nom de fichier change a chaque ref je ne sais pas comment faire.

voici mon code
ci y'a besoin de plus merci de me le dire
PS: il y a une semaine je n'avais aucune connaissance en VBA et j'ai pas mal recherché mais je n'ai peut être pas la bonne logique pour comprendre

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub EnregistreEtiquette()
 
'******************************************************************************************************************************************************************************************
'I. DEBUT DECLARATION DES VARIABLE*********************************************************************************************************************************************************
'******************************************************************************************************************************************************************************************
    Dim Chemin_Dossier_str As String
    Dim Part_Number_str As String
    Dim Indice_str As String
    Dim Ref_Etiquette_str As String
    Dim Release_str As String
    Dim Nom_Fichier_str As String
 
    Dim Ligne_int As Integer
    Dim Derniere_Ligne_int As Integer
 
    Dim Fichier_Existe_bool As Boolean
'******************************************************************************************************************************************************************************************
'II. CREATION BOUCLE DE GENERATION DES ETIQUETTES******************************************************************************************************************************************
'******************************************************************************************************************************************************************************************
    'on cherche la derniere ligne du tableau des appro
    Derniere_Ligne_int = ThisWorkbook.Sheets("APPRO").Range("A65536").End(xlUp).Row
 
    'on crée une boucle entre la ligne 27 et la derniere du tableau
    For Ligne_int = 27 To Derniere_Ligne_int    
 
 
 
    'on lit les variables de la feuille appro
    Release_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 10).Value
    Part_Number_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 8).Value
    Indice_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 9).Value
 
    'on vérifie dans Si la variable release est ok
    If Release_str = "OK" Then
 
    'si release ok alors on verifie si il y a un indice
    If Indice_str <> "" Then
 
    'si il y a un indice alors on ecrit dans la variable ref etiquette le part number "-" indice
    Ref_Etiquette_str = Part_Number_str & "-" & Indice_str
    Else
 
    'si pas d'indice on laisse juste le part number dans la variable ref etiquette
    Ref_Etiquette_str = Part_Number_str
    End If
 
 
    'on ecrit la variable Ref_étiquette_str dans la feuilleetiquette template
    ThisWorkbook.Sheets("TEMPLATE etiquette").Range(" B3 ").Value = Ref_Etiquette_str
 
    'Nom de dossier
    Chemin_Dossier_str = "G:\XXXXXXXXXX\XXXXXX\XXXXXXXXXXX\XXXXXXXXX\XXXXXXXXX\XXXXXXXXXXXXXXX\3_Dossier_étiquettes_QRcode\"
 
    'Enregistrement au format PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin_Dossier_str & Range("B3").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, To:=1, openafterpublish:=False
 
    Else
    'si release n'est pas ok on passe
    End If
 
    Next
 
End Sub

11/08/2021, 16h41
Philippe Tulliez

Bonjour,
Pour vérifier si un fichier existe, vous pouvez utiliser la fonction Dir en indiquant le chemin complet à son argument. Si la fonction renvoie une chaîne vide, cela signifie que le document n'est pas présent dans ce répertoire
12/08/2021, 09h09
alexlates

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Pour vérifier si un fichier existe, vous pouvez utiliser la fonction Dir en indiquant le chemin complet à son argument. Si la fonction renvoie une chaîne vide, cela signifie que le document n'est pas présent dans ce répertoire

merci pour cette réponse, j'ai trouvé des informations sur la fonction DIR et LEN mais je n'arrive pas a l'appliquer a ma situation (manque de logique sur ce coup la).
j'arrive pas a faire une recherche pour une référence variable.
12/08/2021, 09h19
halaster08
Bonjour,

Citation:

Envoyé par alexlates

j'arrive pas a faire une recherche pour une référence variable.

Un exemple:
Code:

1 2 3 4 chemin ="C:/monrépertoire/" fichier="monclasseur.xlsx" If Len(Dir(chemin & fichier)) > 0 Then MsgBox "le fichier existe"
12/08/2021, 09h26
alexlates

bonjour halaster08, dans ton exemple le nom du fichier est fixe, comment le faire avec un nom qui change à chaque ligne de ma boucle FOR ?
12/08/2021, 09h33
halaster08
Citation:

Envoyé par alexlates

bonjour halaster08, dans ton exemple le nom du fichier est fixe, comment le faire avec un nom qui change a chaque ligne de ma boucle FOR ?

Il suffit de mettre le nom du classeur a l'intérieur de la boucle
Code:

1 2 3 4 5 chemin ="C:/monrépertoire/" for i = 1 to 10 fichier="monclasseur" & i & ".xlsx" If Len(Dir(chemin & fichier)) > 0 Then MsgBox "le fichier existe" next i
12/08/2021, 09h46
alexlates

est-ce que a la place de "monclasseur" je peux y mettre une variable?
le nom de mon fichier devrait être "Ref_Etiquette_str"(ma variable) ".pdf" ?
12/08/2021, 10h04
halaster08

Citation:

Envoyé par alexlates

est ce que a la place de "monclasseur" je peux y mettre une variable?

Je suis désolé désolé, j'ai énormément de mal a ne pas faire une réponse qui ne soit pas sarcastique.
Le mieux que je puisse faire c'est: As tu essayé ?

Quel serait l'intérêt de mon exemple si tu ne pouvait pas changer le nom du chemin ou du fichier ?
De plus "monclasseur" c'est déjà une variable (que j'ai appelé fichier) tu peux directement remplacer fichier par ta variable

Salut.

Dans ton code, tu as déclaré une variable Nom_Fichier_Str... Autant t'en servir, dès lors, surtout que tu as déjà variabilisé le nom de fichier dans ton code, puisque tu vas le chercher dans une cellule => Chemin_Dossier_str & Range("B3").Value & ".pdf". Dès lors, il te reste à affecter cette chaine concaténée à une variable pour tester l'existence du fichier et ne réaliser l'export que si le fichier n'existe pas
Code:

1 2 3 4 5 6 7 8 9 Chemin_Dossier_str = "G:\XXXXXXXXXX\XXXXXX\XXXXXXXXXXX\XXXXXXXXX\XXXXXXXXX\XXXXXXXXXXXXXXX\3_Dossier_étiquettes_QRcode\" Nom_Fichier_str = Chemin_Dossier_str & Range("B3").Value & ".pdf" 'Enregistrement au format PDF If Dir(Nom_Fichier_str) = "" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Nom_Fichier_str, quality:= _ xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _ from:=1, To:=1, openafterpublish:=False End If
Perso, je variabiliserais aussi le nom du dossier, tant qu'à faire

merci beaucoup Pierre fauconnier avec votre aide et un peu de réflexion ca fonctionne, jusqu'à l'erreur 1004, mais ca c'est un autre problème.
voici le code un peu plus aboutit:

PS: les XXX dans le chemins c'est pour masqué un peu les infos trop borderline avec mon projet

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub EnregistreEtiquette()
 
'******************************************************************************************************************************************************************************************
'I. DEBUT DECLARATION DES VARIABLE*********************************************************************************************************************************************************
'******************************************************************************************************************************************************************************************
    Dim Chemin_Dossier_str As String
    Dim Part_Number_str As String
    Dim Indice_str As String
    Dim Ref_Etiquette_str As String
    Dim Release_str As String
    Dim Nom_Fichier_str As String
 
    Dim Ligne_int As Integer
    Dim Derniere_Ligne_int As Integer
 
'******************************************************************************************************************************************************************************************
'II. CREATION BOUCLE DE GENERATION DES ETIQUETTES******************************************************************************************************************************************
'******************************************************************************************************************************************************************************************
    'on cherche la derniere ligne du tableau des appro
    Derniere_Ligne_int = ThisWorkbook.Sheets("APPRO").Range("A65536").End(xlUp).Row
 
    'on crée une boucle entre la ligne 27 et la derniere du tableau
    For Ligne_int = 550 To Derniere_Ligne_int
 
 
    'on lit les variables de la feuille appro
    Release_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 10).Value
    Part_Number_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 8).Value
    Indice_str = ThisWorkbook.Sheets("APPRO").Cells(Ligne_int, 9).Value
 
    'on vérifie dans Si la variable release est ok
    If Release_str = "OK" Then
 
    'si release ok alors on verifie si il y a un indice
    If Indice_str <> "" Then
 
    'si il y a un indice alors on ecrit dans la variable ref etiquette le part number "-" indice
    Ref_Etiquette_str = Part_Number_str & "-" & Indice_str
    Else
 
    'si pas d'indice on laisse juste le part number dans la variable ref etiquette
    Ref_Etiquette_str = Part_Number_str
    End If
 
    'Nom de dossier
    Chemin_Dossier_str = "G:xxxxxxxxxxxxxxxxxx\3_Dossier_étiquettes_QRcode\"
 
    'Nom du fichier
    Nom_Fichier_str = Chemin_Dossier_str & Ref_Etiquette_str & ".pdf"
 
    If Len(Dir(Nom_Fichier_str)) = 0 Then
 
    'on ecrit la variable Ref_étiquette_str dans la feuille etiquette template
    ThisWorkbook.Sheets("TEMPLATE etiquette").Range(" B3 ").Value = Ref_Etiquette_str
 
    'Nom de dossier
    Chemin_Dossier_str = "G:xxxxxxxxxxxxxxxxxxxx\3_Dossier_étiquettes_QRcode\"
 
    'Enregistrement au format PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin_Dossier_str & Range("B3").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, To:=1, openafterpublish:=False
    Else
 
    End If
 
 
    Else
    'si release n'est pas ok on passe
    End If
 
    Next
 
End Sub

16/08/2021, 14h06
Pierre Fauconnier

Et elle est sur quelle ligne, ton erreur 1004?
16/08/2021, 14h10
alexlates

Citation:

Envoyé par Pierre Fauconnier

Et elle est sur quelle ligne, ton erreur 1004?

j'ai résolu mon erreur 1004, c'était mon chemin qui contenait trop de caractères j'ai donc utilisé ThisWorkbook.Path & pour réduire le chemin et ca fonctionne parfaitement.