Copier coller entre deux feuilles

[MimiVba]

bonsoir ,

je souhaite faire un copier coller de la sorte , le calcul de la derniere me permet copier à la suite sur la meme feuille mais j'ai une erreur qui s'affiche au moment du collage :

voici mon code :

 Sub infos()
Sheets("infos").Select
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A2:R" + CStr(derligne)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\moi\document\infos.xls"
Sheets("infos").Select
Windows("infos.xls").Activate
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A" + CStr(derligne)).Paste
End Sub

 

[juju_69]

Re : Copier coller entre deux feuilles

Hello,

ce qui est bien c'est de cliquer sur debugage pour que tu puisses nous indiquer la ligne qui plante.

Essaie çà :
Sub infos()
Sheets("infos").Select
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A2:R" + CStr(derligne)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\moi\document\infos.xls"
Sheets("infos").Select
Windows("infos.xls").Activate
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A" + CStr(derligne)).select
selecion.Paste
End Sub

Si ce n'est pas çà dis nous quelle ligne est en erreur et le msg svp

@ te lire

Juju

 

[MimiVba]

Re : Copier coller entre deux feuilles

non sa ne fonctionne pas !

il y a toujours une erreur au moment du collage !

 

[MimiVba]

Re : Copier coller entre deux feuilles

Je pense que sa ne doit pas etre très compliqué mais je ne trouve rien, aidez moi si vous le pouvez ...

merci a tous d'avance

 

[juju_69]

Re : Copier coller entre deux feuilles

Bonsoir

Au risque de me répéter : "Si ce n'est pas çà dis nous quelle ligne est en erreur et le msg svp"

 

[MimiVba]

Re : Copier coller entre deux feuilles

Sub infos()
Sheets("infos").Select
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A2:R" + CStr(derligne)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\moi\document\infos.xls"
Sheets("infos").Select
Windows("infos.xls").Activate
derligne = 0
derligne = Range("A65536").End(xlUp).Row
Range("A" + CStr(derligne)).select
selecion.Paste <== l'erreur est toujours ici (le reste fonctionne)
End Sub

 

[MimiVba]

Re : Copier coller entre deux feuilles

Personne ne peut m'aider ?? Svp c'est très important

 

[excalibur]

Re : Copier coller entre deux feuilles

bonjour le fil peut etre selection.paste au lieu de selecion.Paste
ou
ActiveSheet.Paste
Application.CutCopyMode = False

 

[juju_69]

Re : Copier coller entre deux feuilles

ben oui dsl mimivba j'ai fait une faute de frappe !

Désolé^^