[XL-2007] La copie d'une ligne ne se fait pas

[defluc]

Bonjour à tous,

J'ai un classeur dans lequel je copie des lignes d'un classeur ouvert dans une autre instance de Excel quand une condition est remplie.

Code :

1
2
        GestWbk.Sheets(1).Rows(j).Copy
        ActiveWorkbook.Sheets(1).Cells(NoLine, 1).Insert

Rien n'est copié et quand je ferme le classeur, je reçois l'habituel message me proposant de vider le presse-papier.
Pourtant, en exécution pas à pas, je constate que la ligne copiée contient bien des valeurs.
En remplaçant Insert par Paste, j'ai le message d'erreur "Propriété ou méthode non gérée par cet objet".
De même, quand je fais

Code :

1
2
        GestWbk.Sheets(1).Rows(j).Copy _
        Destination:=ActiveWorkbook.Sheets(1).Cells(NoLine, 1)

Je reçois le message "La méthode Copy de la classe Range a échoué".

Je peux récupérer une à une les valeurs des cellules de la feuille source et les copier dans la feuille cible, mais ce n'est pas très élégant.
C'est pourquoi je vous demande si quelqu'un a une idée sur la raison de cet échec de copie.

Merci d'avance.

[jfontaine]

Bonjour,

je pense que ton problème vient de la copie sur une autre instance d'excel.
Ne peux tu pas faire ton traitement dans la même instance d'application?

[defluc]

Ne peux tu pas faire ton traitement dans la même instance d'application?

Je ne veux pas que l'utilisateur puisse voir le classeur source, c'est la raison pour laquelle je l'ouvre dans une autre instance d'excel.
Mon hypothèse est également que c'est la raison du dysfonctionnement, mais c'est quand même un bug.

[jfontaine]

Je ne veux pas que l'utilisateur puisse voir le classeur source, c'est la raison pour laquelle je l'ouvre dans une autre instance d'excel.

Et en désactivant l'affichage, ca ne conviendrait pas?

Code :

1
2
3
4
5
6
 
Application.ScreenUpdating = False
 
... CODE
 
Application.ScreenUpdating = True

[pijaku]

Bonjour à tous,
Une solution totalement différente serait peut être de passer par une variable tableau.

Code :

1
2
3
Dim Ligne()
Ligne = Application.Transpose(GestWbk.Sheets(1).Rows(j).Value)
ActiveWorkbook.Sheets(1).Cells(NoLine, 1).Resize(1, UBound(Ligne, 1)) = Application.Transpose(Ligne)

PS : je n'ai pas testé ce code, donc... à voir!

[defluc]

Code :

Ligne = Application.Transpose(GestWbk.Sheets(1).Rows(j).Value)

génère l'erreur incompatibilité de type

[pijaku]

Envoyé par defluc

Code :

Ligne = Application.Transpose(GestWbk.Sheets(1).Rows(j).Value)

génère l'erreur incompatibilité de type

Exact. Donc ... fausse bonne idée.
Désolé.
Je laisse la main à jfontaine.
Bon courage et bonne journée