Bonjour

J'ai une macro qui marche tres bien sauf que l'utilisateur voit des fenetres bougés et c'est pas très rapide pouvez vous m'aider à l'optimiser visuellement

Le principe est de copié une mise en forme d'un tableau contenu dans fichier et de l'appliquer au tableau de ma feuille actuel
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
'pathexemple est le chemin du fichier que l'on veut ouvrir 
'rangetab est une plage du tableau de reception
 
Function LoadStyle(PathExemple As String, RangeTab As Range)
 
'Fonction d'init de la plage de selection
    MISEAZERO RangeTab
 
    Dim NameClasseurcur As String
    Dim NameClasseurtemp As String
    NameClasseurcur = ActiveWorkbook.Name
    Workbooks.Open Filename:=PathExemple ', Editable:=True
    Range("A1").CurrentRegion.Select
    NameClasseurtemp = ActiveWorkbook.Name
    Selection.Copy
    Windows(NameClasseurcur).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows(NameClasseurtemp).Activate
    Workbooks(NameClasseurtemp).Close False
    Windows(NameClasseurcur).Activate
 
end sub