Vérification de présence du fichier avant enregistrement

**alexlates** · 11/08/2021, 15h46

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 :

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

**Philippe Tulliez** · 11/08/2021, 16h41

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

**alexlates** · 12/08/2021, 09h09

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.

**halaster08** · 12/08/2021, 09h19

Bonjour,

Envoyé par alexlates

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

Un exemple:

Code :

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

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

**alexlates** · 12/08/2021, 09h26

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 ?

**halaster08** · 12/08/2021, 09h33

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 :

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

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

**Pierre Fauconnier** · 12/08/2021, 12h19

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 :

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

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

**alexlates** · 12/08/2021, 14h45

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 :

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

**Pierre Fauconnier** · 16/08/2021, 14h06

Et elle est sur quelle ligne, ton erreur 1004?

**alexlates** · 16/08/2021, 14h10

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.

Vérification de présence du fichier avant enregistrement [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager