Discussion :

[wahbii]

Bonjour à tous,

Je sèche depuis un moment sur un code VBA. Je m'explique :
Je veux copier coller automatiquement une plage de données d'un classeur Excel vers un autre après le clique sur un bouton. La procédure fonctionne parfaitement sans problème (Cf. Code ci-dessus) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
If TextBox1.Text <> "" Then
        Workbooks.Open Filename:=TextBox1.Text
        Range("A:A,B:B,C:C,D: D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O: O,P: P").Select
        Selection.Copy
        Windows("Reporting AAT.xlsm").Activate
        Sheets("Contrats Cadres M2I").Range("A: P").Select
        Cells.Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
            MsgBox ("Assurez vous que vous avez bien choisi un fichier !")
    End If
End Sub

Donc l'objectif est de récupérer la plage de données de la colonne A à la colonne P et de la coller sur un deuxième classeur et précisément sur la feuille "Contrats Cadres M2I".
Le problème que j'ai est que sur la feuille "Contrats Cadres M2I" je veux définir des formules qui traitent les données disponible sur cette dernière. Mais quand je relance la procédure de copier coller je perds les formules. C'est comme si Excel supprime toutes les données et les formules sur la feuille de destination avant de coller les données.

Je vous remercie d'avance pour votre réponse.

[Daniel.C]

Bonjour,

Essaie comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
If TextBox1.Text <> "" Then
    Workbooks.Open Filename:=TextBox1.Text
    Range("A:P").Copy
    Windows("Reporting AAT.xlsm").Activate
    Sheets("Contrats Cadres M2I").Range("A1").Paste
Else
    MsgBox ("Assurez vous que vous avez bien choisi un fichier !")
End If
End Sub

Si tu ne veux copier que les formules, remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Contrats Cadres M2I").Range("A1").Paste

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Contrats Cadres M2I").Range("A1").PasteSpecial xlPasteFormulas

[wahbii]

Merci pour la réponse rapide.

Néanmoins quand je modifie mon code comme tu m'as précisé j'ai un erreur de type " Propriété ou méthode non gérée par l'objet" sur la ligne ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Contrats Cadres M2I").Range("A1").Paste

[Daniel.C]

Exact, je n'avais pas testé; soit tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Workbooks.Open Filename:=TextBox1.Text
    Range("A:P").Copy _
    Workbooks("Reporting AAT.xlsm").Sheets("Contrats Cadres M2I").Range("A1")

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Workbooks.Open Filename:=TextBox1.Text
    Range("A:P").Copy
    Workbooks("Reporting AAT.xlsm").Sheets("Contrats Cadres M2I").Range("A1").PasteSpecial xlPasteFormulas

[wahbii]

Impeccable.

Merci pour ton aide.