Bonjour,
Voici mon code :
Sub test()
If Mid(ThisWorkbook.Name, 2, 1) <> "0" Then
'MsgBox Mid(ThisWorkbook.Name, 2, 1)
repertoire = Mid(ThisWorkbook.Name, 2, 4)
'MsgBox repertoire
Else
repertoire = Mid(ThisWorkbook.Name, 3, 3)
'MsgBox repertoire
End If
Select Case repertoire
Case Is <= 100
repertoire1 = "001-100"
Case Is <= 200
repertoire1 = "101-200"
Case Is <= 300
repertoire1 = "201-300"
Case Is <= 400
repertoire1 = "301-400"
Case Is <= 500
repertoire1 = "401-500"
Case Is <= 600
repertoire1 = "501-600"
Case Is <= 700
repertoire1 = "601-700"
Case Is <= 800
repertoire1 = "701-800"
Case Is <= 900
repertoire1 = "801-900"
Case Is <= 1000
repertoire1 = "901-1000"
Case Is <= 1100
repertoire1 = "1001-1100"
Case Is <= 1200
repertoire1 = "1101-1200"
Case Is <= 1300
repertoire1 = "1201-1300"
Case Is <= 1400
repertoire1 = "1301-1400"
Case Is <= 1500
repertoire1 = "1401-1500"
Case Is <= 1600
repertoire1 = "1501-1600"
Case Is <= 1700
repertoire1 = "1601-1700"
Case Is <= 1800
repertoire1 = "1701-1800"
Case Is <= 1900
repertoire1 = "1801-1900"
Case Is <= 2000
repertoire1 = "1901-2000"
End Select
'MsgBox repertoire1
Debutchemin = "W:\PE\Dossiers Projets"
'MsgBox Debutchemin
chemincomplet = Debutchemin & "\" & repertoire1 & "\"
MsgBox chemincomplet
End Sub
J'exécute cette macro sur un fichier toujours nommé Gxxxx-0000....xls. Elle détecte le numéro de dossier qui m'intéresse et sélectionne le chemin correspondant jusqu'à un certain point. Je cherche un solution pour trouver le chemin du dernier répertoire dont je ne connais que le début du nom et y créer un autre sous répertoire nommé "13 - Nomenclature".
Je m'explique par un exemple :
Mon fichier est le G1387-0000A12.xls
Ma macro trouve le 1387 et trouve le chemin W:\PE\Dossiers Projets\1301-1400\
Il y a encore 100 sous répertoires qui commencent tous par le numéro de dossier mais on plein de caractères après ici 1387 3823732.
Comment ajouter ce sous répertoire dans le chemin et y créer un sous répertoire "13 - Nomenclature" ?
Cordialement et merci pour vos réponses.