Excel et macro pdf automatique sur mac

Lorrelei87 Messages postés 28 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis sur Mac et début complètement avec excel.

J'ai un classeur avec 8 feuilles. J'ai créé un bouton sur deux d'entre elles pour enregistrer le document en format PDF automatiquement. Le pb... Cela m'enregistre une page blanche. Que faire ?

Voici les macros écrites pour les deux feuilles :

-------------

Sub PDFFI()
'
'

PdfFullName = Worksheets("FI").Cells(8, 8).Value & "_" & Worksheets("FI").Cells(3, 7).Value & Worksheets("FI").Cells(3, 8).Value

' PDFFI Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Macintosh HD:Users:bidule:Dropbox:pouet:truc:" & PdfFullName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=2, To:=2
End Sub

-----------------------------------

Sub PDFFF()
'
'

PdfFullName = Worksheets("FF").Cells(8, 8).Value & "_" & Worksheets("FF").Cells(3, 7).Value & Worksheets("FF").Cells(3, 8).Value

' PDFFI Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Macintosh HD:Users:bidule:Dropbox:pouet:truc:" & PdfFullName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=3, To:=3
End Sub

--------------------------------

Quel est le soucis ?

Merci beaucoup!!!!

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    As-tu défini une zone d'impression correcte ?
    0
    1. Lorrelei87 Messages postés 28 Statut Membre
       
      Oui, tout à fait. Je ne comprends vraiment pas ce qui cloche. :/
      0
    2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Pourquoi tu fais "ActiveSheet.Export" alors que tu as l'air de fonctionner sur une autre feuille " Worksheets("FI")"
      0
    3. Lorrelei87 Messages postés 28 Statut Membre
       
      Hello gbinforme,

      Merci pour ta réponse.

      Je dois mettre Worskeets("FI") à la place de "ActiveSheet"?

      Comme ceci :

      Sub PDFFI()
      '
      '

      PdfFullName = Worksheets("FI").Cells(8, 8).Value & "_" & Worksheets("FI").Cells(3, 7).Value & Worksheets("FI").Cells(3, 8).Value

      ' PDFFI Macro
      '
      Worksheets("FI").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "Macintosh HD:Users:bidule:Dropbox:pouet:truc:" & PdfFullName & ".pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True, _
      From:=2, To:=2
      End Sub


      Si oui, ça ne fonctionne pas non plus :s. Ca m'ouvre une fenêtre de debug :/
      0
    4. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,
      Pas facile de voir ton souci sans Mac, sans classeur et sans connaitre le contexte.
      C'est quelle ligne en jaune ?
      0
    5. Lorrelei87 Messages postés 28 Statut Membre
       
      Oui j'imagine bien :s. Désolée... Qu'est ce que je peux vous donner comme infos pour que ce soit plus clair ?

      La ligne jaune est

      Celle ci :


      Worksheets("FI").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "Macintosh HD:Users:bidule:Dropbox:pouet:truc:" & PdfFullName & ".pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True, _
      From:=3, To:=3
      0