Discussion :

[brunchinio]

Bonjour tout le monde,

Je cherche à effectuer un copier-coller d'un classeur de mon fichier Excel mais ce classeur possède des cellules fusionnées sur les 4 premières colonnes de la première ligne.

J'obtiens l’erreur suivante :
"Erreur d'éxécution 1004 :
Impossible de coller les informations car les zones Copier et de collage sont de forme et de taille différentes. [...]
"
Voilà 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Copier_coller()
 
Dim Fichier As String
Dim Chemin As String
Dim ClasseurSource As Workbook
 
Application.EnableEvents = False 'Evite l'exécution éventuelle de macros liées aux fichiers ouverts
 
Chemin = "C:\Users\ABADIAA\Documents\Archives\"
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
    Set ClasseurSource = Workbooks.Open(Chemin & Fichier)
    ClasseurSource.Worksheets("Détail financier fid  bis").Select 'nom de la feuille source (commune à tous les fichiers sources)
    Application.ScreenUpdating = False
    Range("A1:BL65536").Select
    Range("A1:BL65536").Activate
    Range(Selection, Selection.End(xlDown)).Select 'selection de la zone à copier
    Selection.Copy
    ThisWorkbook.Activate 'fichier ouvert "macro.xlsm"
    Sheets("Feuil1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    ClasseurSource.Close
    Fichier = Dir 'Fichier suivant présent dans le dossier source
Loop
 
 
Application.EnableEvents = True
Application.DisplayAlerts = True
 
End Sub

L'erreur se situe ici : Selection."PasteSpecial Paste:=xlPasteFormats"
Pouvez vous m'aidez ? J'ai essayé d'autre techniques de collage mais rien n'y fait je n'y arrive pas ...

[tamtam64]

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 	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
28
29
30
 
 
Sub Copier_coller()
 
Dim Fichier As String
Dim Chemin As String
Dim ClasseurSource As Workbook
 
Application.EnableEvents = False 'Evite l'exécution éventuelle de macros liées aux fichiers ouverts
 
Chemin = "C:\Users\ABADIAA\Documents\Archives\"
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
    Set ClasseurSource = Workbooks.Open(Chemin & Fichier)
    ClasseurSource.Worksheets("Détail financier fid  bis").Select 'nom de la feuille source (commune à tous les fichiers sources)
    Application.ScreenUpdating = False
    Range("A1:BL65536").Select
    Range("A1:BL65536").Activate
    Range(Selection, Selection.End(xlDown)).Select 'selection de la zone à copier
    Selection.Copy
    ThisWorkbook.Activate 'fichier ouvert "macro.xlsm"
    Sheets("Feuil1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    ClasseurSource.Close
    Fichier = Dir 'Fichier suivant présent dans le dossier source
Loop
 
 
Application.EnableEvents = True
Application.DisplayAlerts = True
 
End Sub

pourquoi ne pas les fusionner apres collage? si elles ne sont pas ammenées a changer