reference dans une macro

bonjour,

'Variable déclarée en entête de module
Dim FichierCible As Workbook
Dim Fichier As Variant


'Demande le numéro du fichier souhaité
Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier = "f:\imp\besoins\Pré " & Fichier & ".xls"
If Dir(Fichier) = "" Then Exit Sub
'Ouvre le fichier en lecture seule, sans mise à jour des liens
Set FichierCible = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)

1) je voudrai inscrire le numero de la semaine que j'inscrit dans la boite de dialogue dans la cellule b3
ou que la boite de dialogue reprenne la valeur de la cellule b3

Imaginons ce code:comment l'inclure?

'Text1box1.Value = Range("b3")


2) je voudrai ouvrir une boite de dialogue avec le message : fichier non trouve
si le fichier n'a pas ete trouve

a+