OpenFileDialog problème de code

Version imprimable

Bonjour,

Tout d'abord je vous précise que c'est la 1ère fois que je fais du VBA je n'y comprends donc pas grand chose....

Dans un formulaire je cherche à ajouter une image en aperçu via une boîte de dialogue.

Je pourrais les ajouter manuellement dans la table mais voilà je ne serai pas la seule à utiliser le formulaire et donc je n'ai pas envie que le travail fait jusqu'à maintenant puisse être bousillé... ;)

J'ai trouvé ce code sur ce forum mais chez moi ça ne fonctionne pas....

Voici:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Form_Click() public void Ouvrir() { Stream myStream; OpenFileDialog ouvrir = new OpenFileDialog(); ouvrir.InitialDirectory = "c:\\"; ouvrir.Filter = "All files (*.*)|*.*"; ouvrir.FilterIndex = 2; ouvrir.RestoreDirectory = true; if (ouvrir.ShowDialog() == DialogResult.OK) { if ((myStream = ouvrir.OpenFile()) != null) { //C:\Users\Fions\Pictures\CDTHEQUE(); } } } End Sub
Tout est joliment en rouge...

Ensuite, comment je fais pour appliquer cette action au bouton?

J'ai accédé au VBA sur le formulaire en mode création par "Evénement" -> "Sur clic" -> "Procédure événementielle" -> "..."

Merci par avance de votre aide!!

26/06/2016, 17h04
EricDgn

Effectivement, Visual Basic n'est absolument pas comme le langage C.
En particulier, aucun emploi des { et }
Le mieux est de regarder quelques exemples d'applications toutes faites.
Bonne continuation.
26/06/2016, 17h31
mao....girl

Justement je sais bien mais alors pourquoi donner un code sur le forum si ce n'est pas juste??

Je n'ai toujours pas vraiment bien compris ce que vous cherchez à faire, mais voici toujours un début.
Cette fonction permet d'obtenir l'adresse d'un fichier sélectionné à l'aide de la boite de dialogue, fonction à mettre dans un module.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function FichierChoisi() As String
   '--- Requires reference to Microsoft Office Object Library.
   Dim fDialog As Office.FileDialog
   FichierChoisi = ""
   '--- Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .AllowMultiSelect = False     '--- not multiple selections
      .Title = "Sélectionnez UN fichier"
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      '--- Show the dialog box.
      '--- If the .Show method returns True, the user picked at least one file.
      '--- If the .Show method returns False, the user clicked Cancel.
      If .Show = True Then
         FichierChoisi = fDialog.SelectedItems(1)
      End If
   End With
   Set fDialog = Nothing
End Function

Bonne continuation.