reference dans une macro

[al1000]

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+

 

[Eric 45]

Re : reference dans une macro

Bonjour à tous et à toi al1000

Si j'ai bien compris, essaie :

à cette ligne "If Dir(Fichier) = "" Then et avant Exit Sub

msgbox " fichier non trouvé"

et pour le transfert de b3 et la boîte de dialogue

Text1box1.Value = Range("b3") modifiée en :

Textbox1.Value = Range("b3").value ou inversement suivant ce que tu veux

A+

 

[al1000]

Re : reference dans une macro

bonjour,

Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
Textbox1.Value = Range("b3").Value

'Vérifie que le fichier existe
Fichier = "l:\imp\besoins\Prés " & Fichier & ".xls"
If Dir(Fichier) = "" Then msgbox " fichier non trouvé" Exit Sub

'Ouvre le fichier en lecture seule, sans mise à jour des liens
Set FichierCible = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)

je ne comprends plus grand chose!!!!

a+

 

[PascalXLD]

Re : reference dans une macro

Bonjour

Remplaces

If Dir(Fichier) = "" Then msgbox " fichier non trouvé" Exit Sub

Par

If Dir(Fichier) = "" Then
msgbox " fichier non trouvé"
Exit Sub
end if

Pour ta première question j'ai pas tout compris

 

[al1000]

Re : reference dans une macro

bonjour,

la macro fonctionne si le fichier est inexistant il affiche message non trouve

merci pour l'aide

maintenant je voudrai :

dans ma macro il me demande le n° de la semaine(input box)

et je voudrai que le n° inscrit bans la boite de dialogue se copie dans la cellule b3

a+

 

[PascalXLD]

Re : reference dans une macro

Re

essaies

Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
Range("b3")=Fichier

 

[al1000]

Re : reference dans une macro

bonjour

c'est super

a+