Discussion :

[Vic04]

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

[kiki29]

Salut, déjà : Balise ton code
Evite d'employer des mots réservés comme variable : dir ...
Que contient ta variable DateFiche : attention aux caractères interdits dans les noms de fichiers
Sinon concernant le PDF voir ici

[Vic04]

Je viens de baliser mon code, je ne savais pas comment faire sur ce forum merci
la variable DateFiche est une date en format court, elle est issue d'un monthView d'un Userform pour ajouter un nouveau Client

[kiki29]

Re, les caractères interdits sont : "*/:<>?[\]|

A vérifier via Debug.Print DateFiche et Debug.Print dir & nomglobal & DateFiche & ".pdf"

[Vic04]

je viens de faire une fonction qui traite les caractères spéciales et oui c'était bien ce soucis qui empêchait l'enregistrement comme je le souhaitais
Un porblème persiste toujours en ce qui concerne l'enregistrement seulement des plages souhaitées
Merci beaucoup Kiki ! Je n'aurai jamais pensé aux caractères de ma DateFiche

[Menhir]

Code sql :

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

1
2
Dim dir As String
Dim str As String

Donner à des variables des noms de fonctions VBA, c'est vraiment rechercher les ennuis.

Je souhaite convertir une plage donnée

Définit une zone d'impression.
https://msdn.microsoft.com/fr-fr/lib.../ff198233.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff196103.aspx
https://msdn.microsoft.com/fr-fr/VBA...property-excel

[kiki29]

Salut, est-ce que ceci te sera utile ?

Impression de plusieurs plages non contiguës dans un PDF

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
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function
 
Sub Tst_Nom()
Dim sFichier As String
    sFichier = "19/10/2016.pdf"
    If NomFichierValide(sFichier) Then
        '...
    Else
        MsgBox "Nom de fichier invalide", vbOKOnly + vbInformation
    End If
End Sub

[Vic04]

Du coup, avec vos indications, le module ressemble désormais à ca:

J'y apporte toujours petit à petit des modifications
Merci beaucoup

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
Function CaracSpec(name As String) As String
    CaracSpec = Replace(name, "/", "_")
    CaracSpec = Replace(CaracSpec, "-", "_")
End Function
 
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 DateFiche As String
Dim nomfichier As String
 
 
DateFiche = CaracSpec(Range("K1"))
 
 
nomfichier = "I:\perso\PDF Fiche Recours\Fiche de recours" & nomglobal & DateFiche & ".pdf"
 
 
Range("A1:H" & VariableLigne).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomfichier _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub