Discussion :

[vbanovice]

bonjour

j'ai encore un petit probleme de macro

si le fichier n'existe pas --> pas de probleme ca fonctione

si le fichier existe --> pas de probleme jusqu'a l'ouverture du msgbox
si reponse oui --> ouverture du fichier ok
si reponse non j'aimerais faire un exit sub, mais le fichier s'ouvre quand meme

je tourne en rond depuis 2 heures

pouvez vous m'aider?

merci
si joint macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub dossierexiste()
Dim Num_Article As String, Stockage As String
'définir le répertoire de stockage des fichiers
Stockage = "D:\donnees\"
'demande le numéro d'article
Num_Article = Application.InputBox(prompt:="Entrez le numéro d'article", Type:=2)
 
If Num_Article > "" Then
'teste l'existence du fichier avant de l'ouvrir
If (Dir$(Stockage & Num_Article & ".xls", vbDirectory) = "") Then
 
MsgBox "dossier n'existe pas" & vbCrLf & "Veuillez entrer les donées"
Range("b10").Select
End If
 
If Not (Dir$(Stockage & Num_Article & ".xls", vbDirectory) = "") Then
MsgBox "dossier existe" & vbCrLf & "voulez vous l'ouvrir?", vbYesNo
If vbYes Then
If Num_Article > "" Then
'teste l'existence du fichier avant de l'ouvrir
'If Not (Dir$(Stockage & Num_Article & ".xlsm", vbDirectory) = "") Then
Workbooks.Open Filename:=Stockage & Num_Article & ".xls"
ReadOnly = False
Else
Exit Sub
End If
End If
End If
End If
 
 
 
 
 
End Sub

@+

[Minick]

Salut,

Tu testes (veux tester) la reponse a la Msgbox donc soit tu passes la reponse dans
une variable, soit tu testes directement la reponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If Not (Dir$(Stockage & Num_Article & ".xls", vbDirectory) = "") Then
    If MsgBox("dossier existe" & vbCrLf & "voulez vous l'ouvrir?", vbYesNo) = vbYes Then
        If Num_Article > "" Then
            'teste l'existence du fichier avant de l'ouvrir
            'If Not (Dir$(Stockage & Num_Article & ".xlsm", vbDirectory) = "") Then
            Workbooks.Open Filename:=Stockage & Num_Article & ".xls"
            ReadOnly = False
        Else
            Exit Sub
        End If
    End If
End If

++
Minick

[vbanovice]

merci pour ton aide
ca fonctione comme je le desirais

a bientot