Enregistrer sous une plage de cellule en format Excel

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
floflo45
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 14 septembre 2019
Version d'Excel : 2016 FR, Mac

Message par floflo45 » 14 septembre 2019, 20:23

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
R
Rag02700
Membre fidèle
Membre fidèle
Messages : 323
Appréciations reçues : 4
Inscrit le : 26 décembre 2017
Version d'Excel : 2010

Message par Rag02700 » 14 septembre 2019, 20:49

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
f
floflo45
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 14 septembre 2019
Version d'Excel : 2016 FR, Mac

Message par floflo45 » 16 septembre 2019, 19:19

Bonjour,
Merci pour ta réponse, malheureusement le message d'erreur persiste...
Est-ce que le fait d'être sous mac pourrait la raison?
R
Rag02700
Membre fidèle
Membre fidèle
Messages : 323
Appréciations reçues : 4
Inscrit le : 26 décembre 2017
Version d'Excel : 2010

Message par Rag02700 » 16 septembre 2019, 21:40

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 ... :bof: :bof:

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. :wink:

R@g
f
floflo45
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 14 septembre 2019
Version d'Excel : 2016 FR, Mac

Message par floflo45 » 19 septembre 2019, 20:23

C'est la première chose que j'ai faite malheureusement :cry: :cry:
Merci quand même en tout cas!!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message