hi
Salut
Je suis débutand en prog et je me prend la tête pour capturer une photos à partir d'une webcam , j'ai trouvé des truc mais ca ne marche pas visual bloque et plante lorsqu'il fait :

Dim Itm As Item
Dim Img As ImageFile

Set Itm = Dev.ExecuteCommand(wiaCommandTakePicture)

If Not Itm Is Nothing Then
Set Img = Itm.Transfer

If Not Img Is Nothing Then
Set Image1.Picture = Img.FileData.Picture
End If
End If

Si qq pouvait me dépanner se serait super cool !!!!
merci d'avance
martineau_3@hotmail.com