Raaaahhh j'y suis presque mais j'ai une question subsidiaire : Est ce qu'on peut réutiliser les valeurs calculées dans une macro VBA ?
J'ai créé un Range "folders" à partir de la colonne calculée via Power Query puis la macro ci-dessous qui doit créer des dossiers pour chaque valeur sauf si vide ou "To be corrected" + sous-dossiers sur la base d'un Range "sub_folders"
Mais ça tourne sans fin et aucun message d'erreur ... Par contre elle me crée des sous-dossiers à la racine du Path \\MyShare
A noter que sans Power Query la macro fonctionnait parfaitement
Help I need somebody Help !!
Sub create_folders()
Dim f As Range
Dim sf As Range
Dim Path As String
Path = "\\MyShare"
For Each f In Range("folders")
If f.Value <> "To be corrected" Then
If Trim(f.Value) <> "" And Dir(Path & "\" & f.Value, vbDirectory) = "" Then MkDir Path & "\" & f.Value
For Each sf In Range("sub_folders")
If Dir(Path & "\" & f.Value & "\" & sf.Value, vbDirectory) = "" Then MkDir Path & "\" & f & "\" & sf.Value
Next
End If
Next
End Sub