Discussion :

[Holycat]

Salut à tous !

je souhaiterais faire une sélection, et créer un pdf uniquement avec cette sélection.

Voici mon code qui ne marche pas :

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
 
Sub PDF()
 
    Worksheets("Feuil1").Activate
    Range("A4:D8").Select
 
    Dim fichier As String, Fichier2 As String
 
    fichier = ThisWorkbook.Path & ":mika.pdf"
    Fichier2 = Replace(Replace(fichier, "Macintosh HD", ""), ":", "/")
 
    ' Fichier = ThisWorkbook.Path & Application.PathSeparator & "Répartition:test.pdf"
    MsgBox Fichier2
 
    ActiveSheet.PageSetup.PrintArea = "A4:D8"
    'ActiveSheet.PageSetup.PrintArea = Selection.Address
 
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier2, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
 
End Sub[ATTACH=CONFIG]229186[/ATTACH]

Je joins le fichier.

[unparia]

Bonjour
Je n'ouvre jamais un classeur tiers et n'ai donc pas ouvert le tien
Je n'ai par ailleurs pas la version Mac
J'observe toutefois que le code que tu montres tend à exporter toute une feuille et non la seule sélection fairte.
Il me semble que la méthode à utiliser dans ce cas serait la méthode Range.ExportAsFixedFormat, où Range peut être défini ou remplacé par l'objet Selection (si sélection faite).

[kiki29]

Salut, voir ici ?

[Holycat]

Merci unparia, j'ai modifié 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
Sub PDF()
 
    Worksheets("Feuil1").Activate
 
 
    Dim fichier As String, Fichier2 As String, Zone As Range
 
    fichier = ThisWorkbook.Path & ":mika.pdf"
    Fichier2 = Replace(Replace(fichier, "Macintosh HD", ""), ":", "/")
 
    ' Fichier = ThisWorkbook.Path & Application.PathSeparator & "Répartition:test.pdf"
    MsgBox Fichier2
 
    ActiveSheet.PageSetup.PrintArea = "A4:D8"
    'ActiveSheet.PageSetup.PrintArea = Selection.Address
    Set Zone = Range("A4:D8")
 
    Zone.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier2, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
 
End Sub

Mais ça bloque, c'est ça qui bug :

Code :

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

1
2
3
Zone.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier2, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

Et merci également kiki29, j'ai cherché chez rondebruin mais c'est une solution complexe avec des scripts.
J'espère vraiment trouver une solution simple pour un problème simple.

[RyuAutodidacte]

Bonjour,
Il y a eu déjà des posts avec un problème similaire, mais il me semble qu'il n'y a pas de solution trouvée pour l'instant. Fait une recherche sur le forum export pdf et erreur 1004 (je crois qu celle ci que tu as dû rencontrée)

[kiki29]

Re, à voir via le lien donné plus haut.