cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 20 janv. 2006 à 03:05
Salut
S'il y a d'autres fichiers sur ce répertoire cible, il suffit de tester avec un Dir et une gestion d'erreur :
Dim sTemp As String
On Error Resume Next ' En cas d'erreur, continuer
sTemp = Dir(monRépertoireCible & "\*.*")
If Err.Number <> 0 Or sTemp = "" Then
Debug.Print "Pas good"
Else
Debug.Print "Good"
End If
On Error Goto 0 ' Annule la gestion d'erreur
Ca devrait suffire
Tu peux aussi le faire avec l'objet FileSystemObject, mais c'est plus compliqué.
Eventuellement, cherche ce mot et tu trouveras des sources qui l'utilisent.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
kalobit
Messages postés169Date d'inscriptionmardi 15 juillet 2003StatutMembreDernière intervention 7 avril 20082 24 janv. 2006 à 14:44
salut,
la méthode de jack fonctionne bien mais excel peut lagger le temps de chercher le répertoire. Je te conseil donc d'utiliser FSO pour lister les disques connecter à ton PC et verrifier que t'est bien en réseau.
L'utilisation de FSO peut effrayer mais c'est en fait très simple.