Erreur d'exécution '1004':

  • Initiateur de la discussion Quaisako
  • Date de début
Q

Quaisako

Guest
Bonjour le Forum,

Voici le code que j'essaie d'utiliser pour copier la plage (A6:Sxxx) d'un certain classeur, dans un classeur nommé(Global).
Je précise que la feuille "Source" et la feuille "Cible" ont un format identique.

Lorsque je lance le code, un message d'erreur apparaît:

Erreur d'exécution '1004':
Impossible de coller les informations car les zonnes Copier et de collage sont de forme et de tialle différentes......etc.......

Private Sub CommandButton2_Click()

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Copy
Range("A6").Select
ChDir "C:\WINDOWS\Bureau\OmniSport\"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\OmniSport\Global.xls"
ActiveSheet.Paste
Range("A6").Select
Windows("Global.XLS").Activate
Application.CutCopyMode = False
Range("A6").Select
Windows("Global.XLS").Close

End Sub

Merci d'avance pour vos explications.

Quaisako
 
A

A_Binouze_Drinker_Among_Others

Guest
remplace
Workbooks.Open Filename:="C:\WINDOWS\Bureau\OmniSport\Global.xls"
ActiveSheet.Paste
Range("A6").Select

par
Workbooks.Open Filename:="C:\WINDOWS\Bureau\OmniSport\Global.xls"
Range("A6").Select
ActiveSheet.Paste

pour voir si ça marche
 
Q

Quaisako

Guest
Salut,

Suite à ce changement, un nouveau message apparaît:

Erreur d'exécution '1004':
La méthode Select de la classe Range a échoué.

Si tu as d'autres suggestions, je prends.

Merci

Quaisako
 
V

véronique

Guest
J'ai le même message d'erreur pour la méthode AdvancedFilter de la classe Range (cf mon message du 10/03).
Ce message n'apparait que lorsque je partage le fichier excel.
En mode exclusif la macro s'éxécute normalement.
?
 
Q

Quaisako

Guest
Bonsoir Véronique, bonsoir le Forum,

Merci pour ton aide.

En bidouillant, je suis parvenu à un petit résultat.

Maintenant j'ai d'autres soucis avec ce prg, mais ce sera l'objet d'un autre post.

@+ Quaisako
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla