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