Discussion :

[mijean94]

Bonjour à tous,

Je réalise la sauvegarde de fichiers, en PDF, à partir le la macro ci-dessous.

Si la définition du nom du fichier est avec le code qui suit : (tous fonctionne bien) :

Code :

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

def_nom = "fichier N°" & i - 3 ' pour essai fonction

Si la définition du nom du fichier est avec celui qui suit erreur d’exécution 5, argument ou appel de procédure incorrect ) :

Code :

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

def_nom = Feuil1.Cells(i, 38).Value & "_BC_" & Feuil1.Cells(i, 3).Value

Voici la macro dans son ensemble :

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
Sub A_creation_PDF()
 
Dim sNomFichier As String
Dim i As Long
Dim rep03, nom_societe, s_rep, s_s_rep_nom, def_nom As String
 
Application.ScreenUpdating = False ' bloc de defilement ecran
 
For i = 4 To 8
 
rep03 = Feuil6.Cells(5, 2).Value
nom_societe = Feuil1.Cells(1, 5).Value & "-" & Feuil1.Cells(1, 4).Value & "-tous les fichiers"
s_rep = "01-Les fichiers PDF clients"
s_s_rep_nom = Feuil1.Cells(i, 39).Value
 
def_nom = Feuil1.Cells(i, 38).Value & "_BC_" & Feuil1.Cells(i, 3).Value
 
'def_nom = "fichier N°" & i - 3 ' pour essai fonction
 
sNomFichier = rep03 & "\" & nom_societe & "\" & s_rep & "\" & s_s_rep_nom & "\" & def_nom & ".pdf" ' creation du chemin et du nom
 
Sheets(3).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                   Filename:=sNomFichier, _
                                   Quality:=xlQualityStandard, _
                                   IncludeDocProperties:=True, _
                                   IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=False
 
 
Next i
 
 
End Sub

Je n’arrive pas à comprendre pourquoi.

Pouvez-vous m’aider à trouver une solution.

Cordialement

[mijean94]

re bonjour à tous,

J'ai continué à faire des essais pour essayer d'avancer.

Après avoir supprimé un niveau dans l'arborescence, il semble que tous fonctionne correctement.


type de sauvegarde qui passe : C:\Users\Public\HP\Documents\rep01\rep02\rep03\rep04\rep05\Nom_du_fichier.pdf


Type de sauvegarde qui ne passe plus :C:\Users\Public\HP\Documents\rep01\rep02\rep03\rep04\rep05\rep06\Nom_du_fichier.pdf

En conclusion pour ce type de sauvegarde, il y a une limite dans le nombre de sous répertoire à ne pas dépasser ?

Y a t-il une solution à ce problème ?

Merci pour vos réponse.

Cordialement

[gg5714]

Bonjour,

A ma connaissance, ce n'est pas le nombre de niveaux qui est limité, mais le nombre de caractères du chemin qui est limité à 218 sous Excel. C'est pas beaucoup...

Microsoft spécifie ces limites dans un article intitulé "Spécifications et limites relatives à Excel".
Pour l'obtenir il suffit de taper ce titre dans un moteur de recherche. Ce que vous cherchez se trouve à la toute dernière ligne.

En espérant vous avoir aidé.
Cordialement
Gg

[mijean94]

Bonjour @gg5714, à tous,

Un grand merci pour cette réponde très claire.
Après réflexion par rapport à votre réponse, je constate que j'ai effectivement rajouter des informations dans le chemin que je n'utiliser pas avant que ça ne fonctionne plus.

j'ai donc rajouter un ligne afin de trouver ou modifier :

Code :

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

If Nombre > 218 Then MsgBox "Le nombre de caractères est trop grande dans le chemin = " & Nombre & " pour un max de 218": Exit Sub

Encore merci, ça faisait plusieurs jours que je faisait des essais sans comprendre.


cordialement