Bonjour à tous,

Je viens de mettre en place une macro qui me permet de copier les cellules d'un fichier et de les coller dans un autre fichier.
Problème: lors de mon collage je pourri la mise en forme de destination.
Aurait-il une possibilité pour effectuer le code avec un collage en valeur pour ainsi garder la mise en forme de destination?

Merci pour votre aide.

Ci dessous mon code:

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
Sub IMPORTATION()
 
'ouverture de la boite de dialogue pour parcourir le fichier à copier
UserForm1.Show
    fichier1 = UserForm1.TextBox1
        If Not UserForm1.TextBox1 = vide Then
            Workbooks.Open (fichier1)
            nomfichier = ActiveWorkbook.Name
            fichierPTR = "Resultat"
 
Workbooks(nomfichier).Sheets(2).Range("T20").Copy Workbooks(fichierPTR).Sheets("GA").Range("E21")
 
End if
 
End sub