Discussion :

[VBANoJutsu]

Bonjour à tous,

Je me permets de poster today car j'ai un problème lors d'un copier / coller. J'ai voulu copier la feuille "RECAP" de mon fichier OK.xlsx sur le fichier AA.xlsx à la suite des autres feuilles.

J'ai une erreur qui apparait toujours , l'erreur 9 , j'ai vérifier mon orthographe je ne vois pas de faute et je ne comprends pas d'ou cela provient.

[Menhir]

Si tu ne présentes pas ton code (de préférence entre balises CODE), difficile de te dire ce que tu as fait de travers.
Et quand tu indiques une erreur, donne plutôt le message d'erreur plutôt que le numéro que quasiment personne a de chance de savoir interpréter.

[VBANoJutsu]

Désolé

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub COPIERPLAGE()
Dim MaPlage As Range
 
With Workbooks("OK.xlsx").Worksheets("RECAP") 
Set MaPlage = .Range("a:x") 
End With
 
MaPlage.Copy
ActiveSheet.Paste Destination:=ThisWorkbook.Worksheets("destination").Range("A1")  
Application.CutCopyMode = False
End Sub

Ici j'ai voulu copier les colonnes de A à X du classeur OK, feuille RECAP , n'arrivant pas à les mettre dans la feuille suivante du classeur AA , j'ai crée une feuille destination .

Ca a marché avec un autre fichier , or ca ne fonctionne plus ..

[Patrice740]

Bonjour,

Au lieu de :

Code :

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

1
2
MaPlage.Copy
ActiveSheet.Paste Destination:=ThisWorkbook.Worksheets("destination").Range("A1")

La bonne syntaxe est :

Code :

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

MaPlage.Copy Destination:=ThisWorkbook.Worksheets("destination").Range("A1")

Avec l'avantage d'éviter le presse papier !