XL 2016 erreur d'affichage sur une boîte de dialogue pour exporter en pdf

halecs93

halecs93

XLDnaute Impliqué
Bonjour à toutes et à tous....

Je tente de finaliser, grâce à mes bidouillages et aux conseils donnés ici, mon fichier permettant de créer des organigrammes. Je souhaitais pouvoir exporter le fichier créer en pdf grâce à une macro. Curieusement, la macro fonctionne mais, dans la boîte de dialogue le nom de fichier apparaît avec l'extension xlsx pour finalement se nommer xlsx.pdf à la sauvegarde. Je n'arrive pas à régler le souci.

L'ensemble du code VBA va sembler bien lourd aux spécialistes, mais encore une fois, je bricole.

Je mets le fichier en pj et une copiee d'écran.

Merci beaucoup
erreur organigramme.jpg
 

Pièces jointes

  • ORGANIGRAMME 9 - 4 NIVEAUX - text.xlsm
    38.5 KB · Affichages: 12
Solution
C
Re,

Pour moi il y a confusion dans le code 🤔

Votre Sub s'intitule "ExporterShapesEnJPG" alors qu'au final vous voulez un PDF

Donc voici un code plus simple qui devrait convenir
Code: 
Sub ExporterEnPDF()
  Dim Ws As Worksheet
  Dim CheminNomPDF As String
  ' Spécifiez la feuille contenant l'organigramme
  Set Ws = ThisWorkbook.Sheets("ORGANIGRAMME")
  ' Demande le chemin et nom du fichier
  CheminNomPDF = Application.GetSaveAsFilename("Organigramme.pdf", _
    FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Enregistrer l'organigramme en tant que fichier PDF")
  '
  If CheminNomPDF <> "Faux" Then
      ' Définissez les paramètres de mise en page pour s'ajuster à une seule page
      With Ws.PageSetup
          .Zoom = False...
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Bonjour halec93

Vous avez raison au #3, kiki29 ne sait plus que donner le lien vers son fichier fourre tout, sans aucune explication (pourquoi se fatiguer, bravo l'aide) :rolleyes:

@job75, pas cool à 22h58 tu aurais mieux d'aller te coucher plus tôt :rolleyes:

La problématique est simple, votre souci vient de cette ligne et notamment de l'option choisie
VB: 
Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
Vous demande a Excel d'afficher la boite de dialogue, "enregistrer sous", donc forcément avec l'extension ".xls*"

Remplacez simplement par
Code: 
Set dlgSave = Application.FileDialog(msoFileDialogFilePicker)

Voilà bonne journée ;)
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
BrunoM45 à dit:
Bonjour halec93

Vous avez raison au #3, kiki29 ne sait plus que donner le lien vers son fichier fourre tout, sans aucune explication (pourquoi se fatiguer, bravo l'aide) :rolleyes:

@job75, pas cool à 22h58 tu aurais mieux d'aller te coucher plus tôt :rolleyes:

La problématique est simple, votre souci vient de cette ligne et notamment de l'option choisie
VB: 
Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
Vous demande a Excel d'afficher la boite de dialogue, "enregistrer sous", donc forcément avec l'extension ".xls*"

Remplacez simplement par
Code: 
Set dlgSave = Application.FileDialog(msoFileDialogFilePicker)

Voilà bonne journée ;)
Cliquez pour agrandir...
Bonjour et merci pour votre réponse.

J'ai bien remplacé la ligne... mais cela ne permet pas d'enregistrer l'organigramme en PDF... c'est une boite de dialogue pour ouvrir un document.

Je mets la capture d'écran.

Encore merci.

1687419232985.png
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
BrunoM45 à dit:
Re,

Désolé, je n'ai pas compris et je suis allé trop vite

Il faut alors utiliser l'instruction
VB: 
Application.GetSaveAsFilename
learn.microsoft.com

Méthode Application.GetOpenFilename (Excel)

Rubrique de référence sur Office VBA
learn.microsoft.com

A+
Cliquez pour agrandir...
En effet... l'instruction est bien plus simple. Mais.... la suite du code se met en erreur à la ligne
' Configurez les options de la boîte de dialogue
With dlgSave
.Title = "Enregistrer l'organigramme en tant que fichier PDF"
.InitialFileName = "Organigramme.pdf"

Je pense que c'est à cause de 'With dlgSave' puisqu'il n'apparait plus dans la nouvelle instruction.
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re,

Pour moi il y a confusion dans le code 🤔

Votre Sub s'intitule "ExporterShapesEnJPG" alors qu'au final vous voulez un PDF

Donc voici un code plus simple qui devrait convenir
Code: 
Sub ExporterEnPDF()
  Dim Ws As Worksheet
  Dim CheminNomPDF As String
  ' Spécifiez la feuille contenant l'organigramme
  Set Ws = ThisWorkbook.Sheets("ORGANIGRAMME")
  ' Demande le chemin et nom du fichier
  CheminNomPDF = Application.GetSaveAsFilename("Organigramme.pdf", _
    FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Enregistrer l'organigramme en tant que fichier PDF")
  '
  If CheminNomPDF <> "Faux" Then
      ' Définissez les paramètres de mise en page pour s'ajuster à une seule page
      With Ws.PageSetup
          .Zoom = False
          .FitToPagesWide = 1
          .FitToPagesTall = 1
          .CenterHorizontally = True ' Centre horizontalement la feuille
      End With
      ' Exportez la feuille en tant que fichier PDF
      Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminNomPDF, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      ' Petit message
      MsgBox "L'organigramme a été exporté en tant que fichier PDF avec succès."
    End If
End Sub

A+
 
Vote positif 0 Vote négatif
Solution
halecs93

halecs93

XLDnaute Impliqué
Usine à gaz à dit:
Bjr Le Fil, le Forum :)
Peut-être comme dans le fichier joint
:)
Cliquez pour agrandir...
C'est une autre approche en effet. Mais je crois qu'elle ne permet pas de choisir le dossier de sauvegarde, ni le nom du fichier à sauvegarder.
BrunoM45 à dit:
Re,

Pour moi il y a confusion dans le code 🤔

Votre Sub s'intitule "ExporterShapesEnJPG" alors qu'au final vous voulez un PDF

Donc voici un code plus simple qui devrait convenir
Code: 
Sub ExporterEnPDF()
  Dim Ws As Worksheet
  Dim CheminNomPDF As String
  ' Spécifiez la feuille contenant l'organigramme
  Set Ws = ThisWorkbook.Sheets("ORGANIGRAMME")
  ' Demande le chemin et nom du fichier
  CheminNomPDF = Application.GetSaveAsFilename("Organigramme.pdf", _
    FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Enregistrer l'organigramme en tant que fichier PDF")
  '
  If CheminNomPDF <> "Faux" Then
      ' Définissez les paramètres de mise en page pour s'ajuster à une seule page
      With Ws.PageSetup
          .Zoom = False
          .FitToPagesWide = 1
          .FitToPagesTall = 1
          .CenterHorizontally = True ' Centre horizontalement la feuille
      End With
      ' Exportez la feuille en tant que fichier PDF
      Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminNomPDF, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      ' Petit message
      MsgBox "L'organigramme a été exporté en tant que fichier PDF avec succès."
    End If
End Sub

A+
Cliquez pour agrandir...
En effet...pour le nom de la macro, c'est qu'au début je souhaitais un export sous forme d'image... et je n'ai pas modifié son nom après. Quant à ce code, il marche à la perfection. Merci pour cette approche.
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bjr :)
"Mais je crois qu'elle ne permet pas de choisir le dossier de sauvegarde, ni le nom du fichier à sauvegarder."

Code modifié :
Dim Nom$
Nom = ThisWorkbook.Name
ChDir "C:\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\lionel\Desktop\" & ThisWorkbook.Name & " " & [r4] & " " & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Pour le nom : c'est réglé avec :
"C:\Users\lionel\Desktop\" & ThisWorkbook.Name & " " & [n4] & " " & ".PDF", Quality:= _

Pour choisir l'emplacement, ça doit pas être bien difficile mais j'ai pas le temps maintenant.

Voir fichier joint
:)
 

Pièces jointes

  • ORGANIGRAMME 9 - 4 NIVEAUX - text.xlsm
    42.9 KB · Affichages: 2
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Usine à gaz à dit:
Re-Bjr :)
"Mais je crois qu'elle ne permet pas de choisir le dossier de sauvegarde, ni le nom du fichier à sauvegarder."

Code modifié :
Dim Nom$
Nom = ThisWorkbook.Name
ChDir "C:\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\lionel\Desktop\" & ThisWorkbook.Name & " " & [r4] & " " & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Pour le nom : c'est réglé avec :
"C:\Users\lionel\Desktop\" & ThisWorkbook.Name & " " & [n4] & " " & ".PDF", Quality:= _

Pour choisir l'emplacement, ça doit pas être bien difficile mais j'ai pas le temps maintenant.

Voir fichier joint
:)
Cliquez pour agrandir...
Merci beaucoup
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
7
Affichages
445
sylvanu
sylvanu
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
183
Nico2978
Nico2978
J
  • Question
Microsoft 365 Exporter automatiquement des noms d'élèves d'un onglet excel sur une autre onglet en fonction de la classe qui est attribuée
Réponses
7
Affichages
510
fanfan38
fanfan38
Amay
  • Question
Microsoft 365 Exporter une ligne excel en pdf
Réponses
12
Affichages
880
kiki29
kiki29
C
  • Question
XL pour MAC Export en pdf d'une plage de cellule, avec nom de fichier dans une cellule
Réponses
10
Affichages
1 K
Phil69970
Phil69970
Frank2000
  • Question
Microsoft 365 Exporter massivement le contenu de chaque cellule en .jpg ou .txt
Réponses
4
Affichages
772
Frank2000
Frank2000
M
  • Question
XL 2016 Décocher l'option 'Compatible ISO 19005-1 (PDF/A)' lors d'un export en PDF
Réponses
0
Affichages
955
MinnieChat
M
Y
  • Question
Microsoft 365 Faire une macro sur word pour enregistrer automatiquement le fichier en PDF
Réponses
0
Affichages
2 K
Yann21
Y
C
  • Question
Exporter une feuile Excel en PDF
Réponses
4
Affichages
810
chindou
C
S
  • Question
Améliorer une macro pour fusion de fichiers
Réponses
7
Affichages
999
Dranreb
Dranreb

Membres actuellement en ligne

10 membres et 98 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 267
Membres
103 168
dernier inscrit
isidore33