Lecteur de code barre et Excel

Function Scanne()

'   *Fonction de récupération du nom labo*
'   --------------------------------------
'
'Fonction permettant de récupérer le "nom labo" à partir de la douchette. Lorsque l'on scanne,
'le nom apparait dans une inputbox. Celui-ci peut-être récupéré par la fonction qui à appelé
'cette fonction.
'
'20/03/08   Création de la base

'Dim Repscan As String

Repscan = InputBox("Veuillez scanner l'instrument ou entrer son nom propre au laboratoire")
    'Boite de dialogue demander de scanner l'instrument
    Scanne = Repscan

End Function


Private Sub CommandButton1_Click()

Range("A" & 1).Value = Scanne

End Sub