XL 2010 Insérer une vidéo dans un formulaire

[Toubabou]

Bonjour à tous,
J'ai créé avec l'aide de beaucoup de personne un fichier pour noter des recettes de cuisines, de famille ou trouvés sur internet.
Maintenant je voudrais que lorsqu'une vidéo est disponible, pourvoir l'insérer dans mon fichier, pareillement que pour les images de mes recettes.(Celles-ci ont le même nom que la recette afin de les retrouver dans le dossier "IMAGES", c'est pour cela que je pense ajouter un dossier "VIDÉO"

C’est pour cela que j'ai besoin d'un peu d'aide; surtout que j'ai énormément de mal avec le VBA.
- Pour avoir accès au fichier MP: "0000"
- Réduire la fenêtre et l'agrandir pour avoir accès au ruban
- Cliquer sur "RECETTES" pour ouvrir l'UserForm"
Ci joint mon fichier:
http://www.cjoint.com/doc/17_04/GDEilE5JtPb_Recettes-test.zip

Merci à tous dans l'attente

Toubabou

 

[Lone-wolf]

Bonjour Toubabou 🙂

J'ai pas trop regardé le fichier, mais il y a une correction à faire dans userform_initialize.

Supprime Feuil2.Activate et met ceci si ça appartient à Feuil2, sinon change le nom de la feuille. Supprime aussi ws.activate, vu que tu à mis Set ws = ....

Me.WindowsMediaPlayer1.Visible = False

With Feuil2
  .[TYPE_PLATS].Sort .[A2], xlAscending
  ComboBox1.List = .[TYPE_PLATS].Value
  Textbox1.List = .[NBRE_PERSONNES].Value
  Textbox2.List = .[NIVEAU_DIFFICULTE].Value
  Textbox3.List = .[COUT].Value
  Textbox4.List = .[TEMPS].Value
  Textbox5.List = .[TEMPS].Value
  .[VIN].Sort .[F2], xlAscending
  Textbox9.List = .[VIN].Value
End With

Ajoute ceci dans le formulaire, sans oublier d'activer la référence windows media player.

Private Sub WinMedia()
Dim Fichier As String, Nom As String

Nom = TxtAvi.Text 'Si une textbox porte le nom du fichier .avi _
sans l'extension
Fichier = ThisWorkbook.Path & "\Videos\"

WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = Fichier & Nom & ".avi"
WindowsMediaPlayer1.Controls.Play
End Sub

Dans une des combobox de recherche

If ComboBox1.Text <> "" Then
Call WinMedia
Else
Exit Sub
End If

Pour réduire la fenêtre Excel à l'ouverture du classeur
Application.WindowState = xlMinimized

Pour l'affichage normal
Application.WindowState = xlNormal

 

[Toubabou]

Merci beaucoup Lone Wolf

Malheureusement je ne suis pas tres doué encore en VBA et je n'ai pas réussit à adapter vos conseils

Merci malgrés-tout

Toubabou

 

[Lone-wolf]

Re

Je ne comprends pas. Qui a fait le code dans ce cas?? 🙄

 

[Toubabou]

Re,
Comme écrit plus haut:
"avec l'aide de beaucoup de personne un fichier..."

 

[HONORE M.A.H.J]

Bonjour,

Ci-après un lien sur un programme qui pourrait peut être correspondre à votre besoin (page téléchargement)!

https://www.excel-downloads.com/resources/excellab©nutrition-cuisine-et-recettes.980/

Cordialement,
HONORE