Discussion :

[olivier-tig]

bonjour

je ne sais pas comment ecrire l'instruction suivante dans ma macro.

en fait je voudrai que vba execute la macro1 si il trouve le dossier nomé "BASE" , placer dans mes document et si il ne le trouve pas execute la Macro2.
merci pour votre aide

[mercatog]

Code :

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

1
2
3
4
5
6
7
Sub Test()
stFichierComp="C:\Mes Documents\BASE.xls"
If Dir(stFichierComp)="" Then
   Call Macro2()              'Ta 1ère macro si fichier non trouvé
Else
  Call Macro1()               'Ta 2ème macro si fichier trouvé
End Sub

Dans stFichierComp, le nom complet de ton fichier (chemin + nom fichier+ extension)

EDIT: en appliquant tes données

[olivier-tig]

merci de ton aide

[olivier-tig]

Finalement après essai, je constate que ca ne fonctionne pas
voici le code que j'ai essayer et que le dossier soit present ou pas, vba ne le trouve pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
stFichierComp = "C:\Documents and Settings\Olivier\Mes documents\aolivier.xls"
If Dir(stFichierComp) = "" Then
MsgBox "pas bon"
Else
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "acceuil" Then
ws.Visible = True
End If
Next ws
MsgBox "super"
End If
End Sub

[Krovax]

Tu dois avoir un autre souci car le code fonctionne bien, vérifie ton chemin

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test)
stFichierComp = "C:\test\test.xls"
If Dir(stFichierComp) = "" Then
MsgBox "pas bon"
Else
MsgBox "ok"
End If
End Sub

[olivier-tig]

tu as raison autant pour moi. mon chemin n'etait pas correcte.
ceci dit pour reconnaitre un dossier et non une feuille (xls) quel extension faut il mettre?

[mercatog]

bien sûr ne fera rien, où est ton fichier s'il le trouve??
tu dois d'abord le récupperer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim wbk As Workbook
Dim ws As worksheet
....
Set wbk = Workbooks.Open(stFichierComp)
For Each ws In wbk.Worksheets
  If ws.Name <> "acceuil" Then
    ws.Visible = True
  End If
Next ws
...
 
 
Set wbk=nothing

Essaie d'adapter

[mercatog]

J'ai mal lu,
tu testes l'existence d'un dossier et non d'un fichier!!!!

[olivier-tig]

oui exactement .
j'ai essayer avec l'enregistreur de macro pour avoir l'extension qu'il faut pour les dossiers, mais il n'y en avait pas t ltt pa corrcmen fonctioner

[mercatog]

Dans ce cas (test sur existence de dossier)

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
dim exist as boolean
stDoss = "C:\Users\user\Desktop\"
VarDoss = Dir(stDoss, vbDirectory)
 
Do While VarDoss <> ""
    If VarDoss = "BASE" Then     'BASE est ton dossier cherché à l'intérieur de stDoss
        exist = True
        Exit Do
    End If
    VarDoss = Dir
Loop
 
If exist Then
    MsgBox "bon"
Else
    MsgBox "pas bon"
End If

[olivier-tig]

je te remercie