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

halecs93 · 21 Juin 2023

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

Compte Supprimé 979 · 22 Juin 2023

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

kiki29 · 21 Juin 2023

Salut, à télécharger puis consulter : Liste Contributions PDF

halecs93 · 21 Juin 2023

kiki29 à dit:
Salut, à télécharger puis consulter : Liste Contributions PDF

Pour le coup... je ne vois pas de rapport concret avec ma problématique...ni avec le code VBA de mon fichier. Vous l'avez vu ?

job75 · 21 Juin 2023

Bonsoir,

halecs93 à dit:
je ne vois pas de rapport concret avec ma problématique...ni avec le code VBA de mon fichier. Vous l'avez vu ?

Quand le code fourni, sans la moindre explication, dépasse 20 lignes, il n'y a plus beaucoup d'amateurs.

A+

Compte Supprimé 979 · 22 Juin 2023

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)

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

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

halecs93 · 22 Juin 2023

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)

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

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

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.

Compte Supprimé 979 · 22 Juin 2023

Re,

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

Il faut alors utiliser l'instruction

VB:

Application.GetSaveAsFilename

Méthode Application.GetOpenFilename (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

A+

halecs93 · 22 Juin 2023

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

Méthode Application.GetOpenFilename (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

A+

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.

Compte Supprimé 979 · 22 Juin 2023

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+

Usine à gaz · 22 Juin 2023

Bjr Le Fil, le Forum
Peut-être comme dans le fichier joint

halecs93 · 22 Juin 2023

Usine à gaz à dit:
Bjr Le Fil, le Forum
Peut-être comme dans le fichier joint

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+

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.

Usine à gaz · 22 Juin 2023

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

halecs93 · 22 Juin 2023

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

Merci beaucoup

Phil69970 · 15 Novembre 2023

Bonjour @Mafalda78

Au lieu de multi-poster la même demande et de polluer tous les fils il faut ouvrir ton propre fil de discussions

Relire la charte

Mafalda78 · 15 Novembre 2023

Bien je viens donc de créer une demande.

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

halecs93

XLDnaute Impliqué

Pièces jointes

Compte Supprimé 979

kiki29

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Compte Supprimé 979

Guest

halecs93

XLDnaute Impliqué

Compte Supprimé 979

Guest

Méthode Application.GetOpenFilename (Excel)

halecs93

XLDnaute Impliqué

Méthode Application.GetOpenFilename (Excel)

Compte Supprimé 979

Guest

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Mafalda78

XLDnaute Nouveau

Discussions similaires