création d'un PDF un peu lourd

[pascal21]

bonjour à tous
j'utilise un code donné sur ce forum pour créer et archiver un PDF dans un dossier
ce code fonctionnait très bien et générait des PDF d'un "poids" d'environ 70 ko
j'ai utilisé le même code dans un autre classeur quasi similaire et le "poids" du PDF est passé à environ 200ko
qu'est-ce qui peut faire que le "poids" triple presque?
alors que le code est identique
merci de votre aide

 

[Compte Supprimé 979]

Re : création d'un PDF un peu lourd

Bonjour Pascal21

Le changement de poids peut être dû à un logo (image) dans ton fichier Excel

A+

 

[pascal21]

Re : création d'un PDF un peu lourd

bonjour Bruno
ben non même pas
il s'agit de deux feuilles de pointages d'heures quasi identiques
est-ce que le fait que la feuille souche (celle qui sert de base pour le PDF) contient des zones de listes changerait quelque chose?
perso je ne pense pas
normalement ce qui fait le poids d'un .doc est le nombre de caractères
serait-ce la même chose sous .PDF
il y a bien quelques cellules encadrées mais bon!!!!!
je vous mets une copie des deux feuilles souches
la 1ere produit un pdf de 70ko
et le 2eme un pdf de 200ko
le code qui permet la copie PDF celui de la feuille1

Sub copiePDF() 'code copie en PDF et classement

Dim sNomDossier As String
Dim sNomFichierPDF As String


    sNomDossier = ThisWorkbook.Path
    
    sNomFichierPDF = Format(Feuil1.Range("l5"), "dddd dd mmmm yyyy") & "   n° " & Range("z58") 'nom du fichier + N° de document
    
     sNomDossier = ThisWorkbook.Path & "\année 2013\" & Format(Feuil1.Range("m6 "), "mmmm yyyy") & "\"
     
    If Len(sNomFichierPDF) > 0 Then
        If NomFichierValide(sNomFichierPDF) Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=sNomDossier & "/" & _
                                                      sNomFichierPDF & ".pdf" _
                                                      , Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
        Else
            Feuil1.Range("l5").Select
            MsgBox "Ce nom de fichier est invalide", vbOKOnly + vbInformation, "Nom de Fichier"
        End If
    End If
 ' MsgBox ("Le fichier PDF nommé " & sNomFichierPDF & " à bien été crée dans le répertoire " & sNomDossier)


End Sub


'suite code copie PDF
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"


    NomFichierValide = True
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

 

[Compte Supprimé 979]

Re : création d'un PDF un peu lourd

Bonjour Pascal 21

Pour moi cela me parait normal, dans une feuille tu as des objets, dans l'autre pas
Et le fait de l'exporter en PDF ne permet pas de supprimer le poids de ceux-ci 😉

A+

 

[pascal21]

Re : création d'un PDF un peu lourd

re
ha! bon, je ne pensais pas que le poids des objets étaient transférés aussi
alors dans ce cas il faudrait que je fasse un copier/coller spécial valeurs de la feuille souche dans une autre feuille puis lancer ma macro pdf1
pas trop compliqué à mettre en oeuvre
je regarde ça dans la semaine si j'ai le temps