Discussion :

[jambonland]

Bonjour,

J'ai un problème similaire à cette discussion, avec l'erreur "la méthode Paste de la classe worksheets a échouée".
Je ne le comprends pas car le code est issu d'un enregistrement de macro, auquel j'ai juste modifié les valeurs fixes par des variables.

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
Windows("MACRO Indicateur ruptures.xls").Activate
    Sheets("Tableau J").Activate
    derniere_ligne = Range("A65536").End(xlUp).Row
    derniere_colonne = Range("IV1").End(xlToLeft).Column
    Range(Cells(1, 1), Cells(derniere_ligne, derniere_colonne)).Select
    Selection.Copy
 
    Windows("MACRO QUOTIDIENNE.xls").Activate
    Sheets("Tableau J").Activate
    ActiveSheet.Cells.ClearContents
    ActiveSheet.Cells.ClearFormats
    Range("A1").Select
    ActiveSheet.Paste

Avez-vous une idée d'où peut venir l'erreur?

Bonne journée,

jambonland

[nibledispo]

bonjour,

essai ceci :

Code :

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

1
2
3
4
5
6
7
 
Sub Copie_Vers_MacroQuotidienne()
  Sheets("Tableau J").Copy
 
  ClasseurCible = "MACRO QUOTIDIENNE.xls"
  ActiveWorkbook.SaveAs ClasseurCible
End Sub

il est indispensable de prévoir displayealerte = false pour éviter les messages inutiles.

pour rendre à Cesar le merite qui lui revient: j'ai trouver cette syntaxe sur le site de Michel Vergriete section excel VBA.

cordialement

[evx136]

Bonjour

Même réponse qu'ISSORAM

Commence par effacer les données de ta feuille cible et execute par la suite ton copier coller.

bonne continuation

[jambonland]

Bonjour,

Merci pour vos réponses.
En revanche, la macro s'effectue sur le fichier "MACRO QUOTIDIENNE", qui est aussi le fichier de destination de la feuille à copier (ce fichier contient plusieurs feuilles). Je reçois donc un message d'erreur qui me dit qu'il n'est pas possible d'effectuer cette opération sur un classeur déjà ouvert.
Savez-vous comment il est possible de contourner ce problème?

Bonne journée,

J'ai trouvé un autre moyen qui fonctionne de faire la copie.
Voici la ligne de code :

Code :

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

ActiveWorkbook.Sheets("Tableau J").Copy Before:=Workbooks("MACRO QUOTIDIENNE.xls").Sheets("Tableau J")

Cette ligne ajoute par contre une nouvelle page au fichier "MACRO QUOTIDIENNE.xls".

Bonne journée,

[nibledispo]

bonjour,

evx136: Bizarre, je ne vois pas de réponse ISSORAM sur mon ordi !

jambonland: Quelle réponse as-tu retenue ?
Je ne comprends pas: Ta macro est logée dans un module standard ou sur la feuille Excel de destination ?

cordialement.

[jambonland]

nibledispo :
Je n'ai pas de réponse d'ISSORAM non plus.
J'ai retenu le code suivant :

Code :

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

ActiveWorkbook.Sheets("Tableau J").Copy Before:=Workbooks("MACRO QUOTIDIENNE.xls").Sheets("Tableau J")

Ma macro est dans un module standard du fichier "MACRO QUOTIDIENNE.xls" (fichier de destination). Quand je voulais à partir de cette macro utiliser votre code, j'avais un message d'erreur disant que je ne pouvais agir sur le fichier déjà ouvert (celui sur lequel tourne la macro).

[nibledispo]

re....,

la discussion est résolue ?

Qu'as-tu fait pour résoudre le problème, la solution finale, peut interesser des gens, ne crois-tu pas ?

Par ailleurs, module standard ou sur feuille destination, ce n'est pas la même chose

Cordialement.

[jambonland]

Bonjour,

Oui comme dit dans mon message précédent, le code ci-dessous m'a permis de résoudre le problème :

Code :

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

ActiveWorkbook.Sheets("Tableau J").Copy Before:=Workbooks("MACRO QUOTIDIENNE.xls").Sheets("Tableau J")

Il suffit d'activer le fichier source auparavant :

Code :

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

worbooks(fichier_source).activate

La copie est effectuée sur le fichier de destination (sur la feuille "Tableau J"), qui est le fichier contenant le module standard dans lequel la macro tourne.

Est-ce clair?

Cordialement,