Discussion :

[Lothily]

Bonjour à tous,

après plsuieur test/recherche je ne comprend pas pourquoi ma macro ne fonctionne pas donc je me tourne vers vous.

tout d'abord voici ma macro :

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
 
Sub test2()
 
 
Dim SourceFile As String
Dim nomListePiece As String
Dim nomFichier As String
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
 
recherche = Mid(Cells(15, 3).Value, 4, 2)
moisencour = MonthName(recherche)
anneeencour = Right(Cells(15, 3).Value, 4)
 
 
 
    Range("A1:P60").Select
    Selection.Copy
    nomFichier = "C:\Users\209783\Documents\CRA\test\CRA " & moisencour & " " & anneeencour & ".xls"
    Workbooks.Open (nomFichier)
 
    Sheets("CRA").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, Transpose:=True
 
End Sub

et maintenant mon problème, quand j'exécute la macro via un bouton présent sur mon fichier excel source j'ai un erreur 400 qui apparait au moment du collage (qui fonctionne manuellement).
et quand j'exécute la macro via le code direct j'ai :
erreur d'exécution 1004 : erreur définie par l'application ou par l'objet.

Et je comprend pas pourquoi.

j'ai vraiment besoin d'aide.... sinon je crois que je laissé tomber.

Merci.

[Invité]

Code :

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

1
2
3
4
5
6
7
Range("A1:P60").Copy
nomFichier = "C:\Users\209783\Documents\CRA\test\CRA " & moisencour & " " & anneeencour & ".xls"
set NewClasseur= Workbooks.Open(nomFichier)
 
    NewClasseur.Sheets("CRA").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, Transpose:=True
 
End Sub

[Lothily]

merci de cette réponse rapide mais j'ai variable non défini pour

Code :

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

NewClasseur

je le met en quoi ?

quand je met

Code :

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

Dim NewClasseur As String

j'ai une erreur.

[Invité]

Code :

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

dim NewClasseur as Workbook

[Lothily]

Merci beaucoup, cela fontionne, mais maintenant j'ai autre soucis quand cela colle les données je n'ai pas du tout la même mise en page, y-a-t-il une option pour que la copie soit identique ?

EDIT : bon sans le transpose c'est mieux mais pas encore ca, j'ai pas mon logo (image) et les colonnes n'ont pas les bonnes dimentions

[joe.levrai]

Bonjour,

dans ton premier code, tu effectue une collage spécial avec transposition des valeurs (les lignes en colonne, et inversement)
rdurupt a donc conservé ce paramètre, d'où une mise en page de destination qui est différente de la mise en page de source.


EDIT :

- pour l'image : une image n'est pas "quelque chose" dans "une cellule". C'est un objet " au dessus". Il faut donc le copier et le coller également
- pour la dimension des colonnes : voir la méthode "AutoFit" de l'objet Range