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.