Bonjour,

J'obtiens l'erreur suivante au moment de l'enregistrement de mon document :
"Erreur d’exécution 1004 - erreur définie par l'application ou par l'objet."

Voici mon code :
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
'Dans le module principale :
'Fonction permettant de vérifier l'existence d'un dossier
Public Function DossierExiste(MonDossier As String)
 
   If Len(Dir(MonDossier, vbDirectory)) > 0 Then
      DossierExiste = True
   Else
      DossierExiste = False
   End If
End Function

'Au niveau d'un bouton :
On error resume next
'Enregistrement en xlsx avec toutes les pièces (Conforme + Non-conforme) - Interne
Dim Fichier As String
Dim x As String
Dim w As String
Dim y As String
Dim y1 As String
Dim cheminpdf As String

    x = Sheets("Rapport").Range("d3").Value
    w = Sheets("Rapport").Range("c4").Value

If DossierExiste(Sheets("Reglages").Range("I14").Value) = True Then
    Fichier = Sheets("Reglages").Range("I19").Value & ".xlsx"
    y = Len(Fichier)
    y1 = y - 5
    ThisWorkbook.SaveAs Filename:=Sheets("Reglages").Range("I14").Value & Fichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False '-->Chemin d'enregistrement XLSX

'Enregistrement xlsx Conforme + NC Interne local en cas d'absence réseau
Else
    MkDir "C:\Historique\XLSX Toutes pièces\"
    ThisWorkbook.SaveAs Filename:="C:\Historique\XLSX Toutes pièces\" & Fichier, FileFormat:=xlOpenXMLWorkbook  '-->LE BUG EST ICI"
End If
Merci d'avance de votre aide.