Vb.net (probleme savefiledialog)

Résolu
Bonjour,
salut , le but est de extraire les donnees from datagrid to pdf , j'ai 2 boutons un pour choisir la destination , le 2eme , pour exporter , quand je clique sur le 1 er bouton je reçois ce message


merci de m'aider

12 réponses

  1. Bonjour,

    Mon vb est un peu rouillé, mais est-ce qu'i lne faudrait pas tester la valeur DialogResult du dialogue, versus DialogResult.OK ?

    If SaveFileDialog1.ShowDialog().DialogResult = DialogResult.OK Then


    Xavier
    0
    1. If SaveFileDialog1.ShowDialog().DialogResult = DialogResult.OK Then n'est pas connu par system.windows.form.dialogresult
      0
  2. Bonjour,

    La méthode showDilaog retourne directement un DialogResult

    If SaveFileDialog1.ShowDialog()= DialogResult.OK Then

    Voir l'exemple sur l'aide en ligne
    https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.commondialog.showdialog?redirectedfrom=MSDN&view=netframework-4.8#code-snippet-2
    0
    1. quelle est le rapport avec mon problème ?
      0
  3. avec plaisir

    SaveFileDialog1.FileName = ""
    If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
    ' declaration textbox2 to save file dialog name
    TextBox2.Text = SaveFileDialog1.FileName
    End If
    0
    1. Ok, et cela marche?
      0
    2. non il m'affiche toujours le meme message
      0
  4. j'ai pas bien compris la page que tu ma indiqué , peux tu me montrer la syntaxe , si'l te plait
    0
    1. Et si tu essayes

      SaveFileDialog1.FileName = "" 
      Dim choix as DialogResult = SaveFileDialog1.ShowDialog()
      If choix = DialogResult.OK Then 
      ' declaration textbox2 to save file dialog name 
      TextBox2.Text = SaveFileDialog1.FileName 
      End If

      ?

      Si ça ne marche pas, merci de préciser quelque ligne plante.
      De plus en survolant les différentes variables ou en mettant des espions, précise leurs contenus
      Quand j'étais petit, la mer Morte n'était que malade.
      George Burns
      0


      1. ça ne marche pas , j'ai pas d'erreur ailleurs , seulement ici

        bon je vais vous montrer ça

        http://www6.hc-kr.com/?tdfs=1&searchbox=1&showDomain=1
        0
        1. Bonjour,
          tu devrais essayer comme ça

          If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 
          ' declaration textbox2 to save file dialog name
          TextBox2.Text = SaveFileDialog1.FileName
          Else
          TextBox2.Text = ""
          End If
          0
      2. j'ai ajouter filedialog sur d'autre form ça marche bien


        mais ça marche pas sur le form ou j'en ai besoin !!!!!!
        0
        1. Alors peut-être comme ça

          Dim Save_File As New SaveFileDialog
          If Save_File.ShowDialog() = DialogResult.OK Then
          ' declaration textbox2 to save file dialog name
          TextBox2.Text = Save_File.FileName
          Else
          TextBox2.Text = ""
          End If
          0
      3. enfin ,ça marché , alors c'est cette Dim Save_File As New SaveFileDialog

        merci beaucoup
        0
        1. alors le problème vient du design de la form, supprime la boite initiale.
          Eventuellement, remets en un pour essayer.
          0
      4. tu veux dire , je supprile le save file dialog , et le remettre ?
        0
        1. Puisque ça marche avec le code de yoda. Pas forcément besoin. Mais si le design déconne tu auras peut être d'autres soucis. Alors ça peut valoir le coup d'essayer
          0
      5. tu as raison j'ai supprimer un bouton pour voir , j'ai rencontrer le problème encore, est ce qu'il ya une solution pour y remédier ?
        0
        1. Corriger, comme ça je ne sais pas.
          Contourner, peut-être.
          Tu crées un autre projet, tu donnes le même nom à la form.
          Tu dessines le même design (pas copié/collé), tu donnes les mêmes noms aux contrôles.
          Je pense que tu peux copier le code behind.
          Tu enregistres tout bien et tu remplaces la form du premier projet par la nouvelle.
          0
          1. oui ,ou je peut laisser la procédure d'impression la dernière chose a faire

            merci
            0