Discussion :

[mao....girl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[mao....girl]

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

[EricDgn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.