Bonjour à tous, je rencontre un petit soucis dans mon VBA. Je souhaite convertir une plage donnée, en fonction d'une variable, en pdf.
Pour chaque client, je sélectionne une zone de 34 lignes à convertir.
Je reçois systématiquement un message d'erreur " Document non enregistré ou une erreur peut être produite lors de l'enregistrement"
Quelqu'un a une petite idée ? Merci d'avance




Code sql : 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
Sub ConversionPDF()
 
Dim nbClient As Integer
Dim VariableLigne As Integer
Dim i As Integer
Dim nom As String
Dim nomglobal As String
Dim j As Integer
 
i = 0
VariableLigne = -4
nomglobal = ""
j = 0
 
nbClient = Worksheets("FicheRecours").Range("J1").Value
 
Do While i < nbClient
    VariableLigne = VariableLigne + 34
    nom = Range("B" & j + 15)
    nomglobal = nomglobal & " " & nom
    i = i + 1
    j = j + 34
Loop
 
 
 
 
 
'Dim str As String
'Dim nom As String
Dim dir As String
Dim str2 As String
Dim DateFiche As Date
Dim str As String
 
 
dir = "Fiche de Recours"
 
DateFiche = Range("K1")
 
 
 
 
str = "I:\perso\PDF Fiche Recours\" & dir & nomglobal & DateFiche & ".pdf"
 
 
Range("A1:H" & VariableLigne).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=str _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub