Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1639 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA PPT2003] Fonction FileDialog(msoFileDialogSaveAs) choix du filter

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA PPT2003] Fonction FileDialog(msoFileDialogSaveAs) choix du filter

n°1280167
sakuraba
Posté le 10-01-2006 à 10:32:01  profilanswer
 

bonjour,
 
je n'arrive pas à mettre une option filter donc jpg et le seul moyen que j'ai trouvé c est d exporter en jpg
 
voici mon code :
 

Code :
  1. Sub Function_SaveAsJpg()
  2. With Application.FileDialog(msoFileDialogSaveAs)
  3.          .AllowMultiSelect = False         'Un seul Fichier possible
  4.          .InitialFileName = "C:\Mes donnees\"          'Répertoire d'ouverture de la fenetre
  5.          .Title = "Choix de l'image"
  6.         If .Show = -1 Then
  7.             TheFile = .SelectedItems(1)
  8.             Application.ActivePresentation.Slides(1).Export TheFile & ".jpg", "JPG"
  9.             Call Function_RemiseA0
  10.             Call supprImage
  11.             Unload UserForm4
  12.             UserForm3.Show
  13.         Else: TheFile = 0
  14.                 Exit Sub
  15.         End If
  16. End With
  17. End Sub

mood
Publicité
Posté le 10-01-2006 à 10:32:01  profilanswer
 

n°1282196
Vasek
Posté le 12-01-2006 à 15:26:17  profilanswer
 

Hello,
 

Code :
  1. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pSavefilename As SAVEFILENAME) As Long
  3. Private Type SAVEFILENAME
  4.     lStructSize As Long
  5.     hwndOwner As Long
  6.     hInstance As Long
  7.     lpstrFilter As String
  8.     lpstrCustomFilter As String
  9.     nMaxCustFilter As Long
  10.     nFilterIndex As Long
  11.     lpstrFile As String
  12.     nMaxFile As Long
  13.     lpstrFileTitle As String
  14.     nMaxFileTitle As Long
  15.     lpstrInitialDir As String
  16.     lpstrTitle As String
  17.     flags As Long
  18.     nFileOffset As Integer
  19.     nFileExtension As Integer
  20.     lpstrDefExt As String
  21.     lCustData As Long
  22.     lpfnHook As Long
  23.     lpTemplateName As String
  24. End Type
  27. Private Sub Save_Click()
  28. Dim OFName As SAVEFILENAME
  29.     OFName.lStructSize = Len(OFName)
  30.     'Select a filter
  31.     OFName.lpstrFilter = "Image Files (*.jpg)" + Chr$(0) + "*.jpg;*.jpeg"
  32.     'create a buffer for the file
  33.     OFName.lpstrFile = Space$(254)
  34.     'set the maximum length of a returned file
  35.     OFName.nMaxFile = 255
  36.     'Create a buffer for the file title
  37.     OFName.lpstrFileTitle = Space$(254)
  38.     'Set the maximum length of a returned file title
  39.     OFName.nMaxFileTitle = 255
  40.     'Set the initial directory
  41.     OFName.lpstrInitialDir = "C:\"
  42.     'Set the title
  43.     OFName.lpstrTitle = "Save Image"
  44.     'No flags
  45.     OFName.flags = 0
  47.     'Show the 'Open File'-dialog
  48.     If GetSaveFileName(OFName) Then
  49.         MsgBox "File to Save: " + Trim$(OFName.lpstrFile)
  50.     Else
  51.         MsgBox "Cancel was pressed"
  52.     End If
  53. End Sub


Message édité par Vasek le 12-01-2006 à 15:35:46
n°1282217
sakuraba
Posté le 12-01-2006 à 15:41:27  profilanswer
 

ok je vais regarder


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA PPT2003] Fonction FileDialog(msoFileDialogSaveAs) choix du filter

 

Sujets relatifs
[VBA][EXCEL] 2 valeurs pour une même cellule ?Fonction FormulaR1C1 qu ine marche pas tout les jours
Fonction C/C++ pour gérer la batterieParametre de fonction
EXCEL Liste déroulante de choixVBA/EXCEL/SQL
Besoin d'aide pour écrire un code VBAVBA - EXCel erreur formule à l'éxcécution
Une fonction peut-elle retourner le numéro de la ligne qui l'appelle ?[VBA Excel] BackgroundQuery et protection de la feuille
Plus de sujets relatifs à : [VBA PPT2003] Fonction FileDialog(msoFileDialogSaveAs) choix du filter

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.060 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR