Probléme de recherche
Bonjour le forum,
Un petit souci avec un code , j'ai fait un code pour voir si un fichier existe ou pas !!
Private Sub Hpe_Click()
Dim Rep As String
Rep = "M:\DOP DT\......\....\....\2014"
Dim Fich As String
Fich = "Semaine" & Range("B1").Value & ".xlsm"
If Dir(Rep + Fich, vbDirectory) <> "" Then
MsgBox "Le répertoire n'existe pas"
Else
MsgBox "Le répertoire existe"
End If
End Sub
Le problème, c'est qu'il me dit qu'il existe même quand il n'existe pas.
Merci d'avance
Coco
Rep & "\" & Fich
Merci pour la réponse
C'est bien comme ca?
If Dir(Rep & "\" & Fich, vbDirectory) <> "" Then
Parce que cela fait toujours pareil.
Merci
ton else est inversé si dir est différent de vide alors il existe, sinon il n'existe pas..
Ah mince j'avais pas vu....
Merci pour aide,
Cordialement Coco
Re c'est biazard ça ne fonctionne pas tout à fait comme je veux
En fait il me trouve le dossier, mais jamais le fichier,
Quel peu etre la cause ?
Pour tant le fichier se nomme bien Semaine51.xlsm
Fich = "Semaine" & Range("B1").Value & ".xlsm"
Pour info j'ai résolu mon problème, C'été un espace entre "Semaine " et 51
Voilà j'ai améliorer le code :
Avec l'ouverture du fichier si il existe.
Private Sub Hpe_Click()
Dim Rep As String
Rep = "M:\...\....\2014"
Dim Fich As String
Fich = "Semaine " & Range("B1").Value & ".xlsm"
If Dir(Rep & "\" & Fich, vbDirectory) <> "" Then
MsgBox "Attention!!!" & vbCrLf & "La semaine existe déjà", 0 + 16, "Attention"
Workbooks.Open Filename:=Rep & "\" & Fich
Application.WindowState = xlMaximized
Else
MsgBox "Le répertoire n'existe pas"
End If
End Sub
Merci à tous le forum pour votre .