bonjour Fifine
essaie quelque chose dans le genre:
Sub test()
reponse = InputBox('quelle date', 'planning')
ActiveSheet.Pictures.Insert( _
'C:\\Program Files\\Fichiers communs\\Microsoft Shared\\Clipart\\cagcat50\\sy01265_.wmf' _
).Select
End Sub
dans la variable reponse tu auras la date saisie dont tu feras l'usage qui te conviens
Message édité par: pierrejean, à: 31/03/2006 10:05