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

Résumé de la discussion

Sur Mac, un classeur Excel avec huit feuilles utilise des boutons pour enregistrer des PDFs automatiquement, mais le résultat est une page blanche. Les macros PDFFI et PDFFF utilisent ActiveSheet.ExportAsFixedFormat avec Type:=xlTypePDF et construisent le nom du fichier à partir des cellules des feuilles FI et FF, puis exportent From et To. Des échanges montrent qu'une virgule oubliée et des références de feuille mal ciblées provoquaient la page blanche, et que la correction porte sur le nom du chemin et sur la feuille active. Par exemple, en adaptant le code pour cibler une feuille précise et corriger une ponctuation, l'export PDF peut s'effectuer sans produire une page vide et le fichier est sauvegardé au chemin spécifié.

Bobot (l'IA à votre service)
  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