Petite Correction

Bonjour;

je voudrai copier les données du classeur1 vers classeur2, mais une erreur qui me bloque, merci d'avance

Hosni

Bonjour

2 méthodes à tester

Sub COPIERPLAGE()
Dim MaPlage As Range

  With ThisWorkbook.Worksheets("Feuil1")
      Set MaPlage = Application.Range("A1:A36000")
  End With
  MaPlage.Copy
  ActiveSheet.Paste Destination:=Workbooks("Classeur2").Worksheets("Feuil1").Range("A1")
  Application.CutCopyMode = False
End Sub

Sub COPIERPLAGEbis()
Dim MaPlage As Range

  With ThisWorkbook.Worksheets("Feuil1")
      Set MaPlage = Application.Range("A1:A36000")
  End With
  MaPlage.Copy Destination:=Workbooks("Classeur2").Worksheets("Feuil1").Range("A1")
End Sub

Bonjour;

Merci à Banzai, je teste et je te tiens au courant aussi le temps de voir la différence entre les deux méthodes, encore merci et à plus

Hosni

Bonjour;

Salut à toi Banzai64, quand j’exécute la marcro une erreur s'affiche, "ERREUR D’EXÉCUTION 9" l'indice n'appartient pas à la sélection et pointe sur la ligne MaPlage.Copy Destination:=Workbooks("Classeur2").Worksheets("Feuil1").Range("A1"), merci de me corriger et bon courage.

Hosni

Bonjour

Cela je n'ai pas changé

Il te faut les deux classeurs ouverts

La page du classeur Classeur2 doit s'appeler Feuil1

Parce que l'une ou l'autre méthode je l'ai testée et pas de problème

je reviens de les tester et la copie s'effectue bien

Bonjour à tous;

Salut Banzai64 désolé mais sans vouloir te contredire, l'erreur persiste et je ne vois vraiment pas ou est le problème, y-aurait-il une autre façon de le faire? (autre que celle que j'ai proposé à corriger). Merci d'avance et à Plus

Hosni

Bonjour

Je persiste et signe

Voila un fichier test

Bonjour;

Je viens de tester et le problème perciste toujours, j'ai même essayer d'autre routine tjrs la meme chose, je ne doute pas une seconde de tes compétences mais le problème ??? je dois m'absenter je reprend ce soir pour comprendre et corriger, merci à toi et bon courage

Hosni

Bonjour

Je redis encore

Banzai64 a écrit :

Il te faut les deux classeurs ouverts

Je viens de faire l'essai et si le classeur2 est fermé j'ai la même erreur que celle que tu as eue

Je redis encore

Banzai64 a écrit :

La page du classeur Classeur2 doit s'appeler Feuil1

Avec le classeur2 ouvert mais le nom de la page différent , j'ai la même erreur que celle que tu as eue

Si quelqu'un peut tester merci

Bonjour

Si quelqu'un peut tester merci

Après test j'ai un retour d'erreur.

En modifiant le code comme suit dans les deux macros cela fonctionne :

With ThisWorkbook.Worksheets("Feuil1")
      Set MaPlage = .Range("A1:A36000")
End With

Bon après midi.

Amicalement

edit dan : Pour Banzai, je t'avais mis un MP sur le sujet.

Bonjour

@Dan : Merci

C'est vrai que après lecture le code me parait bizarre, mais je me suis focalisé sur l'erreur qui arrive sur la ligne suivante, et en plus, le code tel quel fonctionne bien avec XL 2003

Bon le principal c'est que le problème est réglé

Encore merci

Bonne journée

Re,

Oui Banzai j'avais également trouvé cela bizarre.

Pour moi ceci devrait fonctionner par contre

With Application.ThisWorkbook.Worksheets("Feuil1")
      Set MaPlage = .Range("A1:A36000")
End With

Attendons de voir Hosni.

Si ok, merci de cloturer le fil en cliqant sur le V Vert à coté du bouton EDITER

Amicalement

Bonjour;

J'ai ouvert les classeurs sur un autre ordinateur et ça a marché comme par magie, alors je n'ai pas trop chercher le pourquoi. Merci à toi Banzai64 et aussi Dan.

Hosni