Bonjour
J'ai repris sur le net ce code qui insiste sur la NON existence de C etc... mais ?
Voir PJ
Sub ExistenceRacine()
If Dir("C:", vbVolume) = vbNullString Then
MsgBox "Le lecteur reseau n'existe pas"
MsgBox ThisWorkbook.Path
Else
MsgBox "lecteur reconnu"
End If
End Sub
Sub ExistenceRepertoire()
Dim chemin As String
chemin = "C:\Program Files"
If Dir(chemin, vbVolume) = vbNullString Then
MsgBox Left(ThisWorkbook.Path, 1)
Else
MsgBox "lecteur reconnu"
End If
End Sub
Merci
J'ai repris sur le net ce code qui insiste sur la NON existence de C etc... mais ?
Voir PJ
Sub ExistenceRacine()
If Dir("C:", vbVolume) = vbNullString Then
MsgBox "Le lecteur reseau n'existe pas"
MsgBox ThisWorkbook.Path
Else
MsgBox "lecteur reconnu"
End If
End Sub
Sub ExistenceRepertoire()
Dim chemin As String
chemin = "C:\Program Files"
If Dir(chemin, vbVolume) = vbNullString Then
MsgBox Left(ThisWorkbook.Path, 1)
Else
MsgBox "lecteur reconnu"
End If
End Sub
Merci