C
camadian
Guest
Bonjour, a tous
le but
lors de la création d'un projet je crée un répertoire avec des sous dossiers sur le disque C
l'utilisateur effectue son travail et vient implémenter les sous dossiers avec différents types de fichiers.
Une fois le projet finalisé l'utilisateur vient archiver sont projet en le déplacent sur le disque D
mon PB
mais au moment de la recherche du projet et de l'affichage des fichiers je souhaiterai que si le projet est actif j'ai le message " pas encore archivé"
si archiver on affiche la liste des fichiers
si joint la partie du code qui me pose pb
je joint également le fichier dans sa totalité
en remerciant toute les bonnes volonté(e)s
Sub recup_fic_mes_doc()
Dim chemin As String
Dim fichier As Object
Dim i As Integer
Dim SourceFolderName As String
Dim listeFichiers As Object
'nb_fichier = 0
With Worksheets("Tool_Dossiers")
'If .Range("P8") = "" Then Exit Sub
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("P8").Cells(i, 1)) = "ACTIF" Then
MsgBox "Le dossier n'a pas ete archivé"
Else
'Sheets(4).Select
SourceFolderName = Range("A2") & "\TITI\"
ChDir ("D:\" & SourceFolderName)
chemin = ("D:\" & SourceFolderName)
Set listeFichiers = CreateObject("Scripting.filesystemobject").getfolder(chemin).Files
If listeFichiers.Count > 0 Then
For Each fichier In listeFichiers
résultat.ListBox1.AddItem fichier.Name
Next
End If
If listeFichiers.Count = 0 Then
MsgBox "Le répertoire " & vbCrLf & vbCrLf & chemin & vbCrLf & vbCrLf & "est VIDE !", vbCritical, "INFORMATION !"
End If
End If
End With
End Sub
le but
lors de la création d'un projet je crée un répertoire avec des sous dossiers sur le disque C
l'utilisateur effectue son travail et vient implémenter les sous dossiers avec différents types de fichiers.
Une fois le projet finalisé l'utilisateur vient archiver sont projet en le déplacent sur le disque D
mon PB
mais au moment de la recherche du projet et de l'affichage des fichiers je souhaiterai que si le projet est actif j'ai le message " pas encore archivé"
si archiver on affiche la liste des fichiers
si joint la partie du code qui me pose pb
je joint également le fichier dans sa totalité
en remerciant toute les bonnes volonté(e)s
Sub recup_fic_mes_doc()
Dim chemin As String
Dim fichier As Object
Dim i As Integer
Dim SourceFolderName As String
Dim listeFichiers As Object
'nb_fichier = 0
With Worksheets("Tool_Dossiers")
'If .Range("P8") = "" Then Exit Sub
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("P8").Cells(i, 1)) = "ACTIF" Then
MsgBox "Le dossier n'a pas ete archivé"
Else
'Sheets(4).Select
SourceFolderName = Range("A2") & "\TITI\"
ChDir ("D:\" & SourceFolderName)
chemin = ("D:\" & SourceFolderName)
Set listeFichiers = CreateObject("Scripting.filesystemobject").getfolder(chemin).Files
If listeFichiers.Count > 0 Then
For Each fichier In listeFichiers
résultat.ListBox1.AddItem fichier.Name
Next
End If
If listeFichiers.Count = 0 Then
MsgBox "Le répertoire " & vbCrLf & vbCrLf & chemin & vbCrLf & vbCrLf & "est VIDE !", vbCritical, "INFORMATION !"
End If
End If
End With
End Sub
