Discussion :

[cedric6367]

Bonjour à tous,
Voilà une matinée de passée sans trouver de solution.
J'ai une macro qui ouvre un document, copier les données et viens les coller dans un classeur.
Mes données ne sont présentes que dans la colonne A mais sur un nombre de ligne variable.
Quand j'ai plusieurs la macro fonctionne parfaitement mais lorsque je n'ai qu'une seule ligne contenant des données, la macro s'arrête avec le message suivant :
ERREUR D’EXÉCUTION '1004' : vous ne pouvez pas coller cet élément ici car les zones Copier et de collage sont de taille différente.
J'ai tenté en mettant une boucle si dans ma macro mais cela fait planter excel.
Voici 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub copie_colle_TXT()
'
 
Dim chemin As String
Dim i As Integer
i = 1
nb = Sheets("Feuil1").Cells(1, 12)
MsgBox nb
For i = 1 To nb
chemin = Sheets("Feuil1").Cells(i, 1)
 
 
    Workbooks.OpenText Filename:= _
        "V:\_Dossiers personnels\Cédric\Controle billets\2020\FRANCE BILLET\Fichiers_Ventes_2020\" & chemin & ".mjb", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
 
 
    'Supprimer les lignes vides
    'Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    'Selectionner toutes les cellules pleines
    Dim MaPlage As Range
    Set MaPlage = Range("A1:A" & Range("A1").End(xlDown).Row)
    MaPlage.Select
 
 
    'Range("A1:A65000").Select
    Selection.Copy
    Windows("Analyse_FRANCE BILLET_2020_v1.xlsm").Activate
 
    ActiveSheet.Paste
    'vider le presse papier
    Application.CutCopyMode = False
 
 'Selectionner la première ligne vide
    Range("A65536").End(xlUp).Offset(1).Select
    Windows(chemin & ".mjb").Activate
    ActiveWindow.Close SaveChanges:=False
 
 
Next
 
 
End Sub

Je vous remercie grandement par avance

[Menhir]

Remplace Range("A1").End(xlDown).Row par Cells(Rows.Count, 1).End(xlUp).Row.

A passage, ton code aurait besoin d'un bon nettoyage : une déclaration Dim dans une boucle , des Select/Activate partout , des assignation de variables inutiles, L'utilisation de Window à la place de Workbook, le nombre de ligne max écrit en dur et obsolète, etc.

[Yumat]

Bonjour à tous. J'ai la même erreur 1004 avec ces lignes :

Code :

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

1
2
3
4
5
        Range("O12:O" & 12 + nbjTri).Copy
        Range("NbGene").ClearContents
        Range("AJ25:AJ" & 25 + nbjTri).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

J'ai essayé toutes les combinaisons possibles pour coller et rien à faire.
Le comble c'est que cela fonctionnait et brutalement erreur 1004 et je ne pense pas avoir fait une modif!!!!

Au fait Menhir, j'ai résolu mon problème "Quitter une Userform". Dès que j'aurais un petit moment je répondrais à la discussion.
Merci

[Yumat]

Petite précision :
Si je fais cette manip à la main, elle fonctionne!
C'est ce qui m'inquiète de plus l'onglet n'est pas protégé ......

[Menhir]

Bjr à tous. J'ai la même erreur 1004 avec ces lignes :

Quelle est la ligne désignée par le débugage ?

Si je fais cette manip à la main, elle fonctionne!

Il est peut probable que la sélection d'une copie survive à une effacement.
Dans Excel, quand on fait un "copier", il faut faire le "coller" juste après parce que toute modification dans les cellules supprime l'action du "copier".

Autre chose : il est préférable d'éviter les Select/Selection, surtout sur les cellules. C'est néfaste à plus d'un titre.

Et il vaut toujours mieux utiliser des parenthèses dès qu'il y a risque d'ambigüité.

Donc, ton code :

Code :

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

1
2
3
        Range("NbGene").ClearContents
        Range("O12:O" & (12 + nbjTri)).Copy
        Range("AJ25:AJ" & (25 + nbjTri)).PasteSpecial Paste:=xlPasteValues

Reste encore à savoir ce que contient REELLEMENT la variable nbjTri.

[Patrice740]

Bonjour,

Range("O12:O" & 12 + nbjTri).Copy
Range("NbGene").ClearContents
Range("AJ25:AJ" & 25 + nbjTri).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Un petit rappel de la citation précédente de Menhir, en partie applicable à ce code :

A passage, ton code aurait besoin d'un bon nettoyage : ..., des Select/Activate partout ,

De plus, des "Range" orphelins et un "ClearContents" à l’intérieur d'un séquence Copy / Paste montrent une architecture brouillon et désordonnée ...

Pour copier des valeurs, il est préférable d'éviter le Presse Papier et d'utiliser :

Code :

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

 CelluleCible.Resize(PlageSource.Rows.Count, PlageSource.Columns.Count).Value = PlageSource.Value

[Jurserg]

Bonsoir et merci à tous
A 80 ans, on en apprend tous les jours😜😜😜
Mon pb est résolu ! Comment et pourquoi : c'est le ClearContents à l'intérieur du copi-coller qui perturbait tout!

N'empêche merci pour vos conseils et votre technique qui me laisse pantois. Je m'endormirais bien moins bête ce soir (je rigole mais c'est vrai).
Une chose est sûre : lorsque mon projet, projet qui me passionne, sera terminé, je revisite rais l'ensemble en tâchant, je dis bien tâchant, d'appliquer un maximum de vos techniques. Mais cela risque d'être extrêmement difficile je le sais déjà à moins... A moins que l'un d'entre vous soit décidé à me guider???
Qui sait???? Cela est peut-être possible non? Qu'en pensez-vous?

Encore merci et un autre merci anticipé pour ma suggestion d'aide. Malgré mon (grand) âge je suis tjrs curieux et avide d'apprendre.

Qui sait À bientôt Peut être.
Amicalement et respectueusement