Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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

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

[pijaku]

Code :

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

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