Bonjour,

Je viens vers vous car j'ai créer une macro pour le travail qui fonctionne très bien.
Mon soucie est que ma macro a atteint ses limites, j'ai ajouter une ligne et lorsque je lance la macro j'ai un message me disant que la macro est trop longue.

Je pense qu'il y a un moyen de simplifier l'ensemble mais mes connaissance en VBA étant assez limité je ne sais pas comment faire.

Je vous mets un bout de code pour vous donner une idée de ce que j'utilise pour le moment.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub creation_dossier_AB()
On Error Resume Next
Dim lig As Byte
lig = Range("A65536").End(xlUp).Row
 
 
    If Cells(ActiveCell.Row, 13) = "Paris" Then
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\PARIS_75\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8)
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\PARIS_75\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\ETUDE_TVX"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\PARIS_75\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\FINANCIER"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\PARIS_75\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\RECEPTION"
 
    ElseIf Cells(ActiveCell.Row, 13) = "Strasbourg" Then
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\STRASBOURG_67\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8)
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\STRASBOURG_67\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\ETUDE_TVX"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\STRASBOURG_67\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\FINANCIER"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\STRASBOURG_67\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\RECEPTION"
 
    ElseIf Cells(ActiveCell.Row, 13) = "Nantes" Then
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\NANTES_44\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8)
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\NANTES_44\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\ETUDE_TVX"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\NANTES_44\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\FINANCIER"
    MkDir "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\06_GESTION 2017_2020\01_COLLECTIVITES\02_COMMUNES\NANTES_44\09_TRAVAUX\" & "DV" & Cells(ActiveCell.Row, 8) & "\RECEPTION"
 
    End If
 
End Sub
Merci d'avance à ceux qui pourrons m'aider.

Florent