Discussion :

[Buleur]

Bonjour,

J'écris cette fois pour un problème concret.

J'ai chercher un moyen de d'enregistrer une zone de ma feuille : Sheets("Feuil4").Range("E1:K44") sous format pdf sous un répertoire défini :
C:\Dossier1\Dossier12.

Avant des créer ce poste j'ai effectuer divers recherches sur le sujet, et je suis tombé sur cette discussion : http://www.developpez.net/forums/d15...lon-d-cellule/

J'ai copier le code et j'ai tenté de d'insérer la ligne de code pour l'enregistrement, l'ennui c'est qu'il m'envoie: "erreur 13 incompatibilité des types" à la ligne 6.

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
Private Sub CommandButtonExport_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim sNomFichier As String, sNom As String, Rep As Long
 
    sNom = Sheets("Feuil4").Range("X17")
 
    If sNom Then
        Sheets("Feuil4").Select
    ActiveSheet.PageSetup.PrintArea = "$E$1:$K$44"
    ActiveWindow.SelectedSheets.PrintPreview
        sNomFichier = ThisWorkbook.Path & "\" & sNom & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="R:\Dossier1\Dossier12\sNomFichier", Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                        False
    End If
End Sub

Je ne sais pas trop comment faire pour régler ce problème.

J'avis aussi fait un enregistrement de macro fonctionnel sauf que je n'arrivait pas a faire en sorte que le nom de la feuille soit déterminé par une cellule.

Code :

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

1
2
3
4
5
6
ActiveSheet.PageSetup.PrintArea = "$E$1:$K$44"
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Dossier1\Dossier12\Analyse de panne.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Bonne journée.

[patricktoulon]

bonjour
exemple

Code :

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

1
2
3
4
5
6
Sub plage_to_PDF()
    chemin = "C:\Users\polux\Desktop\"
    nom = "Classeur1.pdf"
    Range("B3:D13").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom, _
    quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

[Buleur]

Merci patricktoulon,

Votre code est parfait, j'ai juste remplacé Classeur1.pdf par range("A1") et cela à marcher du premier coup.
En plus si un fichier porte le même nom il est automatiquement remplacé.

Merci encore.

[patricktoulon]

re
de rien
mais je tiens a dire que cela m'a pris 2 secondes et demie pour le faire avec l'enregistreur de macro et nétoyé le code pour l'aménager

donc essayer l'enregistreur de macro avant de poster

si tu avais deja essayé l'enregistreur voici une capture d'ecran qui te montre ce que tu a manqué
quand tu a choisi le format pdf tu clique sur "OPTION" et tu a une nouvelle petite fenetre et la tu clique sur "selection"

[Buleur]

A d'accord je n'avais pas remarqué ce bouton quand j'ai sélectionné le format pdf pendant l'enregistrement de macro.
Merci pour cette astuce.

[kiki29]

Salut, à titre de précaution et documentaire, rajoute ceci pour vérifier la validité du nom de fichier

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
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    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