Enregistrer sous une plage de cellule en format Excel

Bonjour à tous,

Je suis novice dans le codage VBA et je cherche à "enregistrer sous" une plage de cellule en format Excel.

Je travaille sur Mac avec Excel 2016.

J'ai commencé à travailler mon code (cf. ci-dessous)

'Enregistrer l'OF en PDF

Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, DernColonne))
maPlage.Select

Dim chemin As String
Dim nom As String
chemin = "/Users/Moi/Documents/Appli/Produits finis/OF/"

    ActiveWorkbook.SaveAs Filename:=chemin & [B1] & ".pdf" _
        , FileFormat:=xlPDF, PublishOption:=xlSelection
        

Lorsque j'active la macro deux messages d'erreur apparaissent:

• Erreur lors de l'impression
• Erreur d'exécution « 1004 »: L'élément portant ce nom est introuvable.

Est-ce que cela vous inspire?

Par avance merci pour votre aide.

Floflo

Hello,

à tester :

'Enregistrer l'OF en PDF

Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, DernColonne))
maPlage.Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Moi\Documents\Appli\Produits finis\OF\" & [B1] & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        

R@g

Bonjour,

Merci pour ta réponse, malheureusement le message d'erreur persiste...

Est-ce que le fait d'être sous mac pourrait la raison?

Hello,

Oui c'est certain ...

Mais je t'avoue que je n'ai pas de Mac et du coup ne pas pouvoir t'aider d'avantage ...

La seule chose que je peux te conseiller c'est d'utiliser à la rigueur l'enregistreur de macro, regarder le code.

Tu pourras peut-être adapter ton code avec le code de l'enregistreur de macro.

R@g

C'est la première chose que j'ai faite malheureusement

Merci quand même en tout cas!!