XL 2010 Copier un fichiers txt qui ont le même nom de plusieurs sous-dossiers vers un dossier

H

hamzaelhathout

XLDnaute Nouveau
Bonjour,

J'ai un dossier qui contiens plusieurs sous-dossier pour chaque journée qui ont pour nom "aaaa-mm-jj".
Dans ces sous-dossier, il y a un rapport au format txt qui a toujours le même nom "XXXXX.txt"

Je voudrais créer une macro qui aille chercher ce fichier txt dans chaque sous dossier et me le copie avec comme nom, celui du sous dossier dans lequel il se trouve (donc aaaa-mm-jj.txt) vers un dossier "destination".

J'ai cherché dans le forum mais je n'ai pas trouvé exactement ça.

Merci d'avance.
 
Solution
H
Super merci.

J'ai adapté pour le nom du fichier exact.

VB: 
Option Explicit

Sub Test()
    Call FichiersSousRépertoires("C:\Users\Youssef\Documents\fansub\testmacro\")
End Sub

'---------------------------------------------
'Fichiers des sous-répertoires d'un répertoire
'---------------------------------------------
Sub FichiersSousRépertoires(NomRépertoire As String)
    Dim oFSO As Object
    Dim oDir As Object
    Dim oSubDir As Object
    Dim oFile As Object

    'File System Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    'Directory Object
    Set oDir = oFSO.GetFolder(NomRépertoire)

    'Parcours des sous-répertoires du répertoire
    For Each oSubDir In oDir.SubFolders
        'Parcours des fichiers du...
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
liste des erreur sur C
moyen de controle
VB: 
'On ne traite pas les répertoire ne contenant pas de fichiers avec extension
    If Len(Extension) = 0 Then
        TakeIt = True
    Else
        On Error Resume Next
        If Len(Dir(oDir.Path & "\" & Extension)) > 0 Then TakeIt = True Else TakeIt = False
   If Err.Number > 0 Then Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = "err: " & Err.Number & "dans la condition len(extention) pour " & oDir.Path: TakeIt = False
    Err.Clear
    End If
err: 52dans la condition len(extention) pour C:\Documents and Settings
err: 52dans la condition len(extention) pour C:\MSOCache
err: 52dans la condition len(extention) pour C:\PerfLogs\Admin
err: 52dans la condition len(extention) pour C:\Program Files\Fichiers communs
err: 52dans la condition len(extention) pour C:\Program Files\Windows NT\Accessoires
err: 52dans la condition len(extention) pour C:\Program Files (x86)\Google\CrashReports
err: 52dans la condition len(extention) pour C:\ProgramData\Application Data
err: 52dans la condition len(extention) pour C:\ProgramData\Bureau
err: 52dans la condition len(extention) pour C:\ProgramData\Desktop
err: 52dans la condition len(extention) pour C:\ProgramData\Documents
err: 52dans la condition len(extention) pour C:\ProgramData\Favoris
err: 52dans la condition len(extention) pour C:\ProgramData\Favorites
err: 52dans la condition len(extention) pour C:\ProgramData\Menu Démarrer
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Crypto\RSA\S-1-5-18
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Diagnosis
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\eHome\Cache\S-1-5-20
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Microsoft Antimalware
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\NetFramework\BreadcrumbStore
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Network\Downloader
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\PlayReady\Cache\S-1-5-20
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Search\Data
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\DRM\Cache\Indiv_SID_S-1-5-20
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\Power Efficiency Diagnostics
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\Start Menu\Programmes
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_02288b7c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_06226beb
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0a1e3bc7
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0c521267
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0cc6531e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0d6ecaad
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0de250cd
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0e862c3d
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0eea5762
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0f0e37a2
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_25141b77df81887a1ab879fe1d6fa9a6b04a56f3_0d3fe4c3
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cbba0
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cd3e1
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cec13
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_84a23b50ef1de48583a212108f8f7d14486c551_0cc1fc38
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_9ac5f4ece98694cb1ac3c551267e4d0526a8119_0bb50e23
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_12d03083b14422b55c08060617456f4898ef377_0f946d96
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_1351646416f064175cc4353d45fc8b87df486ef_076cb2bb
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_2b3b6aa4bdfeccddf3ed3654a742169145442_064674f0
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3236e4796115b83f9cd7c3fad6d99dc4412b7bb_0b067cfc
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_347f9ffbdcdfb92027b5acf715ebb31bae55815_06f634f4
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3a6e55fa2fe63389ad9c5dd887ddc34eac67080_0a5ebe8d
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3e10fbac657ebad8ef5311fdb6b919b041d5_0295e8b8
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_46b5401ee02cf43eccf28e957b8b5a955bf325a1_08926547
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_46f1c1da219b1ecf3e76cbab9259faaf2e72b5e_03b0b2bb
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_47be551749e48e693bfd8efbc06bd032c748f09c_0cfa8239
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_483529e12a8f505ba8b9394f7af45cd34a719c6_0f89e6c5
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_4895c99c09d4dc2db54d58054747bde3d617f_1027866e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_5a327969d4a0d82adf28c345b26924a7ddaacc4_08f9e6d5
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_62ca44b4c87f39fe2bdf35838b87499c41a6ee9_12534a19
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_766d9173b91245426fb1adbc57efc4c2a214a50_0e41e704
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_077fc11c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_0867673a
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_0dcc50dd
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_85b5c781aaae57acf243e103dee5cb0e80ccf6_0b14b24e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_96592f2e57f7f995c6590ac6be2a4821aaa1f9_0becb27c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_983fae4487ddf16e687332f9a6961814da251_08c9c061
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_9c76bee86eb13b96dfa45d4b49f91389d3c8a6e2_0ee61fde
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_9dd3a0612af3b0d0363bcf5bf121aac92da837c_0dc67bb4
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a016621e61362ae98b1d547b694f411bbd5f6cd_0b0f00bb
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a55a9513107ac42326391261253fce79f1716369_0a64008d
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a679cd3d5f85adcfafdef54699a087f6e22a84_092c423e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_ac5b5cd0a6b429fc444aa6a9e198fa5534eb09e_0f965a6e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_b0fda44abeb460e86c8c9495b2f586d8e255367a_0a827a2e
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_b43dab7e5b2f8bb2f1eccb63fb8e42dfea5ebf8f_01f06815
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_be77bb61ae7d3a59a4f78ce435a4ce35beb4e1e2_02e89d57
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_c67ce17402ecb14a19ddad39e819d2b55e75184_0fb0b328
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_cb6990aa9cd245c24aa4be1748e6b85ce7bf25f_02e882c6
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_cb6990aa9cd245c24aa4be1748e6b85ce7bf25f_03a2f42d
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_d595ea8f2ebea6b33c7bb9859cdc18bfac8b30e8_0fd4b28c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_035c8036
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_03e073c8
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_03e47a8c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_04046bad
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_04047158
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_040481dc
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_0404951d
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_041079a2
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_HostProblem_f283c22b3fe28142d7ab442ac2ee5ab02b37bd45_03f07271
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_3f4c214bb720a0a71c901929e719d345183a8de2_03f086cb
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_021c7493
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_031c6a94
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_0338732c
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_03f86ec9
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_9e34b7f0f2cb54496edceee0ce45c3eadb8e5f2a_01f48cc4
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows\WER\ReportQueue\Kernel_0_0_cab_0cac2d2a
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows Defender
err: 52dans la condition len(extention) pour C:\ProgramData\Microsoft\Windows NT\MSFax
err: 52dans la condition len(extention) pour C:\ProgramData\Modèles
err: 52dans la condition len(extention) pour C:\ProgramData\NVIDIA Corporation\NvTelemetry\reports
err: 52dans la condition len(extention) pour C:\ProgramData\Start Menu
err: 52dans la condition len(extention) pour C:\ProgramData\Templates
err: 52dans la condition len(extention) pour C:\Recovery
err: 52dans la condition len(extention) pour C:\Users\All Users\Application Data
err: 52dans la condition len(extention) pour C:\Users\All Users\Bureau
err: 52dans la condition len(extention) pour C:\Users\All Users\Desktop
err: 52dans la condition len(extention) pour C:\Users\All Users\Documents
err: 52dans la condition len(extention) pour C:\Users\All Users\Favoris
err: 52dans la condition len(extention) pour C:\Users\All Users\Favorites
err: 52dans la condition len(extention) pour C:\Users\All Users\Menu Démarrer
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Crypto\RSA\S-1-5-18
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Diagnosis
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\eHome\Cache\S-1-5-20
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Microsoft Antimalware
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\NetFramework\BreadcrumbStore
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Network\Downloader
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\PlayReady\Cache\S-1-5-20
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Search\Data
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\DRM\Cache\Indiv_SID_S-1-5-20
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\Power Efficiency Diagnostics
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\Start Menu\Programmes
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_02288b7c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_06226beb
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0a1e3bc7
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0c521267
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0cc6531e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0d6ecaad
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0de250cd
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0e862c3d
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0eea5762
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\AppHang_AMD FUEL Service_cbdc2acd8d939a14233a1dfc4f28ba267ae32279_0f0e37a2
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_25141b77df81887a1ab879fe1d6fa9a6b04a56f3_0d3fe4c3
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cbba0
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cd3e1
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_728a80ab6eb887b5dd6e3628e587d6df594791e_032cec13
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_84a23b50ef1de48583a212108f8f7d14486c551_0cc1fc38
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\Critical_6.1.7601.18766_9ac5f4ece98694cb1ac3c551267e4d0526a8119_0bb50e23
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_12d03083b14422b55c08060617456f4898ef377_0f946d96
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_1351646416f064175cc4353d45fc8b87df486ef_076cb2bb
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_2b3b6aa4bdfeccddf3ed3654a742169145442_064674f0
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3236e4796115b83f9cd7c3fad6d99dc4412b7bb_0b067cfc
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_347f9ffbdcdfb92027b5acf715ebb31bae55815_06f634f4
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3a6e55fa2fe63389ad9c5dd887ddc34eac67080_0a5ebe8d
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_3e10fbac657ebad8ef5311fdb6b919b041d5_0295e8b8
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_46b5401ee02cf43eccf28e957b8b5a955bf325a1_08926547
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_46f1c1da219b1ecf3e76cbab9259faaf2e72b5e_03b0b2bb
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_47be551749e48e693bfd8efbc06bd032c748f09c_0cfa8239
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_483529e12a8f505ba8b9394f7af45cd34a719c6_0f89e6c5
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_4895c99c09d4dc2db54d58054747bde3d617f_1027866e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_5a327969d4a0d82adf28c345b26924a7ddaacc4_08f9e6d5
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_62ca44b4c87f39fe2bdf35838b87499c41a6ee9_12534a19
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_766d9173b91245426fb1adbc57efc4c2a214a50_0e41e704
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_077fc11c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_0867673a
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_77dd672d7337eb4887bf469fd8346ac72c61a7a_0dcc50dd
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_85b5c781aaae57acf243e103dee5cb0e80ccf6_0b14b24e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_96592f2e57f7f995c6590ac6be2a4821aaa1f9_0becb27c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_983fae4487ddf16e687332f9a6961814da251_08c9c061
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_9c76bee86eb13b96dfa45d4b49f91389d3c8a6e2_0ee61fde
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_9dd3a0612af3b0d0363bcf5bf121aac92da837c_0dc67bb4
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a016621e61362ae98b1d547b694f411bbd5f6cd_0b0f00bb
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a55a9513107ac42326391261253fce79f1716369_0a64008d
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_a679cd3d5f85adcfafdef54699a087f6e22a84_092c423e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_ac5b5cd0a6b429fc444aa6a9e198fa5534eb09e_0f965a6e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_b0fda44abeb460e86c8c9495b2f586d8e255367a_0a827a2e
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_b43dab7e5b2f8bb2f1eccb63fb8e42dfea5ebf8f_01f06815
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_be77bb61ae7d3a59a4f78ce435a4ce35beb4e1e2_02e89d57
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_c67ce17402ecb14a19ddad39e819d2b55e75184_0fb0b328
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_cb6990aa9cd245c24aa4be1748e6b85ce7bf25f_02e882c6
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_cb6990aa9cd245c24aa4be1748e6b85ce7bf25f_03a2f42d
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_d595ea8f2ebea6b33c7bb9859cdc18bfac8b30e8_0fd4b28c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_035c8036
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_03e073c8
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_03e47a8c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_04046bad
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_04047158
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_040481dc
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_0404951d
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_7.6.7601.19116_f5ef66544afb785aef4b16aba7be6bb553e331a7_041079a2
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_HostProblem_f283c22b3fe28142d7ab442ac2ee5ab02b37bd45_03f07271
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_3f4c214bb720a0a71c901929e719d345183a8de2_03f086cb
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_021c7493
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_031c6a94
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_0338732c
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_44814d16484afccd16736dd36c2eb2f5f8f143aa_03f86ec9
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportArchive\NonCritical_Microsoft_9e34b7f0f2cb54496edceee0ce45c3eadb8e5f2a_01f48cc4
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows\WER\ReportQueue\Kernel_0_0_cab_0cac2d2a
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows Defender
err: 52dans la condition len(extention) pour C:\Users\All Users\Microsoft\Windows NT\MSFax
err: 52dans la condition len(extention) pour C:\Users\All Users\Modèles
err: 52dans la condition len(extention) pour C:\Users\All Users\NVIDIA Corporation\NvTelemetry\reports
err: 52dans la condition len(extention) pour C:\Users\All Users\Start Menu
err: 52dans la condition len(extention) pour C:\Users\All Users\Templates
err: 52dans la condition len(extention) pour C:\Users\Default\AppData\Local\Application Data
err: 52dans la condition len(extention) pour C:\Users\Default\AppData\Local\Historique
err: 52dans la condition len(extention) pour C:\Users\Default\AppData\Local\History
err: 52dans la condition len(extention) pour C:\Users\Default\AppData\Local\Temporary Internet Files
err: 52dans la condition len(extention) pour C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programmes
err: 52dans la condition len(extention) pour C:\Users\Default\Application Data
err: 52dans la condition len(extention) pour C:\Users\Default\Cookies
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\Ma musique
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\Mes images
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\Mes vidéos
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\My Music
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\My Pictures
err: 52dans la condition len(extention) pour C:\Users\Default\Documents\My Videos
err: 52dans la condition len(extention) pour C:\Users\Default\Local Settings
err: 52dans la condition len(extention) pour C:\Users\Default\Menu Démarrer
err: 52dans la condition len(extention) pour C:\Users\Default\Mes documents
err: 52dans la condition len(extention) pour C:\Users\Default\Modèles
err: 52dans la condition len(extention) pour C:\Users\Default\My Documents
err: 52dans la condition len(extention) pour C:\Users\Default\NetHood
err: 52dans la condition len(extention) pour C:\Users\Default\PrintHood
err: 52dans la condition len(extention) pour C:\Users\Default\Recent
err: 52dans la condition len(extention) pour C:\Users\Default\SendTo
err: 52dans la condition len(extention) pour C:\Users\Default\Start Menu
err: 52dans la condition len(extention) pour C:\Users\Default\Templates
err: 52dans la condition len(extention) pour C:\Users\Default\Voisinage d'impression
err: 52dans la condition len(extention) pour C:\Users\Default\Voisinage réseau
err: 52dans la condition len(extention) pour C:\Users\Default User
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Application Data
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\ElevatedDiagnostics
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Google\Chrome\User Data\SwReporter
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Historique
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Temp\CR_6C7DB.tmp
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Temp\msdtadmin
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Temp\{281e902f-c71e-5db3-88f0-774b6e4fbf13}
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Temp\{A595AED6-8DA3-49DE-8BF9-B7243079EAF9}
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Local\Temporary Internet Files
err: 52dans la condition len(extention) pour C:\Users\polux\AppData\Roaming\Microsoft\Windows\Start Menu\Programmes
err: 52dans la condition len(extention) pour C:\Users\polux\Application Data
err: 52dans la condition len(extention) pour C:\Users\polux\Cookies
err: 52dans la condition len(extention) pour C:\Users\polux\Documents\Ma musique
err: 52dans la condition len(extention) pour C:\Users\polux\Documents\Mes images
err: 52dans la condition len(extention) pour C:\Users\polux\Documents\Mes vidéos
err: 52dans la condition len(extention) pour C:\Users\polux\Local Settings
err: 52dans la condition len(extention) pour C:\Users\polux\Menu Démarrer\Programmes
err: 52dans la condition len(extention) pour C:\Users\polux\Mes documents
err: 52dans la condition len(extention) pour C:\Users\polux\Modèles
err: 52dans la condition len(extention) pour C:\Users\polux\Recent
err: 52dans la condition len(extention) pour C:\Users\polux\SendTo
err: 52dans la condition len(extention) pour C:\Users\polux\Voisinage d'impression
err: 52dans la condition len(extention) pour C:\Users\polux\Voisinage réseau
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\Ma musique
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\Mes images
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\Mes vidéos
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\My Music
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\My Pictures
err: 52dans la condition len(extention) pour C:\Users\Public\Documents\My Videos
err: 52dans la condition len(extention) pour C:\Windows\AppCompat\Appraiser\Telemetry
err: 52dans la condition len(extention) pour C:\Windows\AppCompat\Programs
err: 52dans la condition len(extention) pour C:\Windows\LiveKernelReports
err: 52dans la condition len(extention) pour C:\Windows\Logs\HomeGroup
err: 52dans la condition len(extention) pour C:\Windows\Logs\SystemRestore
err: 52dans la condition len(extention) pour C:\Windows\Logs\WindowsBackup
err: 52dans la condition len(extention) pour C:\Windows\Minidump
err: 52dans la condition len(extention) pour C:\Windows\ModemLogs
err: 52dans la condition len(extention) pour C:\Windows\Prefetch
err: 52dans la condition len(extention) pour C:\Windows\security\audit
err: 52dans la condition len(extention) pour C:\Windows\ServiceProfiles\LocalService
err: 52dans la condition len(extention) pour C:\Windows\ServiceProfiles\NetworkService
err: 52dans la condition len(extention) pour C:\Windows\System32\com\dmp
err: 52dans la condition len(extention) pour C:\Windows\System32\config
err: 52dans la condition len(extention) pour C:\Windows\System32\LogFiles\Fax\Incoming
err: 52dans la condition len(extention) pour C:\Windows\System32\LogFiles\Fax\Outgoing
err: 52dans la condition len(extention) pour C:\Windows\System32\LogFiles\Firewall
err: 52dans la condition len(extention) pour C:\Windows\System32\LogFiles\HTTPERR
err: 52dans la condition len(extention) pour C:\Windows\System32\LogFiles\WMI\RtBackup
err: 52dans la condition len(extention) pour C:\Windows\System32\Msdtc
err: 52dans la condition len(extention) pour C:\Windows\System32\NetworkList
err: 52dans la condition len(extention) pour C:\Windows\System32\Tasks
err: 52dans la condition len(extention) pour C:\Windows\SysWOW64\com\dmp
err: 52dans la condition len(extention) pour C:\Windows\SysWOW64\config
err: 52dans la condition len(extention) pour C:\Windows\SysWOW64\Msdtc
err: 52dans la condition len(extention) pour C:\Windows\SysWOW64\NetworkList
err: 52dans la condition len(extention) pour C:\Windows\SysWOW64\Tasks
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
VB: 
'On ne traite pas les répertoire ne contenant pas de fichiers avec extension
    If Len(Extension) = 0 Then
        TakeIt = True
    Else
        On Error Resume Next
        If Len(Dir(oDir.Path & "\" & Extension)) > 0 Then TakeIt = True Else TakeIt = False
   If Err.Number > 0 Then TakeIt = False
    Err.Clear
    End If

mais attention c'est la ou le bas blesse dans ce genre de code
c'est que le fichier avec le dir ->extension en erreur oui mais les sous dossiers sont aussi zappé alors que c'est peut être simplement un fichier a la racine du dossier qui est interdit
je le sais par ce que j'avais corrigé cette méprise dans ma fonction dir sur DVP


pour faire plaisir a @Dudu2


Capture.JPG
 
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
juste pour info
avec dir bath 14 secondes pour 235 213 fichiers
et j'ai pas le processeur qui rougi 🤣 🤣 :)
je dis ça moi je dis rien

on a bien bossé
perso FSO comme on l'a mené c'est bien pour un disque de 10000 fichier au delà c'est pas pro
l'exercice n'est pas moins intéressant personne ne l'avait fait jusqu’à maintenant
bravo et merci a tous
 
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
D'où l'utilité d'analyser les erreurs quand elles ne relèvent pas de situations identifiées.

Cette fonction Dir() introduit des erreurs #52 (Nom de fichier ou numéro incorrect) sur des répertoires FSO que je ne peux pas expliquer.
Par exemple j'ai un répertoire H:\TEMP parfaitement légitime et contenant des fichiers tous autorisés qui sort en erreur #52 dès qu'un Dir() est exécuté par le code (avant ? après ?).

Donc je ne vois qu'une solution: NE PAS appeler la fonctions Dir() dans cette fonction FSO.
Je l'ai retirée. Et tanpis pour le temps "perdu" en recherche de fichiers avec extension, l'essentiel étant d'avoir un résultat correct.

J'ai laissé le Dir() en commentaire dans le code. Pour ceux qui veulent vérifier que ça fout le bazar.
Les Post #194 et Post #72 ont été pour la nième fois mis à jour pour refléter cette modification.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
j'ai testé
mis un dossier TEMP dans H
supprimer les autorisation system donc grant administrator et propriétaire
ben pas de soucis

beaucoup font cette erreur en devenant propriétaire avec contrôle total pensent qu'il sont les seul hors un dossier est d'office autorisé à l'entité system et donc le contrôle total grant administrator est caduque dans dans le cadre d'une tierce App qui tenterait d'accéder a ce dossier comme dans le cas présent avec FSO
Capture.JPG
 
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
Je ne sais rien des conditions qui génèrent ce problème. Mais pour le reproduire, je suppose que tu peux essayer sur un plus gros répertoire ou disque. Tu devrais tomber tôt ou tard sur cette erreur, et même à plusieurs reprises dans 1 seul exécution. Le MsgBox donnera le nom des répertoires en erreur #52.

Puis tu ré-exécutes la même recherche en masquant l'instruction Dir() et tu constateras qu'il n'y a plus d'erreur #52.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
erreur 52 c'est accès non autorisé ça veux dire que selon les app tiers tu ne pourra pas y accéder
la raison je te l'ai donné
en l’occurrence ici dir ne peux y accéder
bien sur il y a le dir (chemin ,VB critères) qui peux faire le laron(a tester)
après sincèrement je le redis lister C avec FSO c'est ridicule même si nous sommes arrivés a des vitesses plus que correctes (justement grâce à dir)
il y a aussi par exemple le temp de windows qui peux jouer des tours justement parce qu'il est occupé a encaisser ou lu par autre app
bref C a bien trop de contraintes; perso j'utilise le bath 14 secondes pour lister le disque sur la feuille
si je collectionne juste les fichiers recherchés je tombe a 6 secondes(même moyennant le tour de passe avec replace)

après entendons nous bien, le but est de rechercher des fichiers ;dans les boucles si on collectionne les fichier a garder et seulement eux, la durée diminue considérablement(avec quelque méthode que ce soit)

aussi !!! dans windows tu a des raccourcis chemins relatif avec le même nom par exemple mes documents ,mes images ma musique etc.... qui ne sont même pas accessibles par la boite de dialogue et c'est ce dir choppe justement

d'ou mon conseil plus haut d'utiliser les vbconstantes vbdirectory+vbsystem+....' la totale ...
quand tu les choppe et que tu fait un dir dessus ; ben un dir( chemin &"\*.*") sur un raccourci va planter forcement :)
par contre un dir(chemin,vbdirectory or vbsystem or vbhidden,or vbnormal etc....) pourrait passer sauf protégé bien sur comme les dossiers cruciaux de windows
exemple
demo8.gif


Voilà :)
 
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
Je n'arrive plus à la reproduire là où elle se produisait avant (sur H:\) mais je la reproduis sur "F:\".
Comme je l'ai dit puis effacé, l'erreur #52 n'a rien à voir avec "Accès non autorisé".
La preuve...
1612860085478.png

1612860592717.gif


De plus, je suis tombé aussi sur une erreur #53, qui n'a rien à voir non plus avec des droits d'accès.
J'ai vérifié et le répertoire existe bel et bien.

Ces erreurs qui se produisent sur l'object Folder oSubDir sur l'instruction de la boucle For Each oSubDir In oDir.subfolders ne se produisent pas si la fonction Dir() n'est pas appelée en amont dans le code.
Si c'était un simple problème de droits d'accès, l'erreur se produirait indépendamment de Dir().

Donc, je confirme que Dir() dans le code génère des altérations dans l'environnement FSO et qu'il faut donc ne pas l'utiliser.
 

Pièces jointes

  • 1612860540707.gif
    1612860540707.gif
    219.1 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

edgy63
  • Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
430
alexga78
A
F
  • Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
263
Dudu2
Dudu2
vgendron
  • Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
945
Staple1600
Staple1600
T
  • Question
XL 2010 VAB - Copier les fichiers manquants d'un dossier et de ses sous-dossiers
Réponses
2
Affichages
369
Titi456
T
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
119
Noymie
N
V
  • Question
XL 2021 Implémenter tableau avec des fichiers mis dans un dossier
Réponses
2
Affichages
304
merinos
merinos
F
  • Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
T
  • Résolu(e)
XL 2010 Bouton - Supprimer photos JPG dans un dossier et ses sous-dossiers
Réponses
9
Affichages
590
Titi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton extraction structure dossier sélectionné
Réponses
5
Affichages
825
Titi456
T
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
554
Staple1600
Staple1600

Membres actuellement en ligne

15 membres et 165 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 647
Messages
2 111 533
Membres
111 191
dernier inscrit
Assjmka