Microsoft 365 VBA : Coller les cellules du presse papier

[JulienLebreton]

Bonjour à tous,

Je cherche à créer une macro qui colle les éléments du presse papier (que j'ai préalablement copier manuellement d'un autre classeur). Je ne sais pas si c'est faisable.
Je crois que cela ne fonctionne pas parce que les cellules du presse papier ne sont pas copier initialement en VBA.

Voici le code :

Sub test()

On Error Resume Next

  Worksheets("Export").Select
    Cells(65535, 1).End(xlUp)(3).Select
    ActiveSheet.Paste


End Sub

Merci de votre aide,

A bientôt,

Julien

 

[Jacky67]

Bonjour à tous,

Je cherche à créer une macro qui colle les éléments du presse papier (que j'ai préalablement copier manuellement d'un autre classeur). Je ne sais pas si c'est faisable.
Je crois que cela ne fonctionne pas parce que les cellules du presse papier ne sont pas copier initialement en VBA.

Voici le code :

Sub test()

On Error Resume Next

  Worksheets("Export").Select
    Cells(65535, 1).End(xlUp)(3).Select
    ActiveSheet.Paste


End Sub

Merci de votre aide,

A bientôt,

Julien

Bonjour,
Essaye comme ceci

Sub test()
    On Error Resume Next    ' rien de copier
    Paste Worksheets("Export").Cells(65535, 1).End(xlUp)(3)
End Sub

 

[JulienLebreton]

Bonjour jacky,

Merci de ta réponse, j'ai une erreur de compilation : Sub ou fonction non défini quand je test cette modification.

Est ce que tu as pu le faire fonctionner de ton cotés ?

Merci bien,

Julien

 

[Jacky67]

Bonjour jacky,

Merci de ta réponse, j'ai une erreur de compilation : Sub ou fonction non défini quand je test cette modification.

Est ce que tu as pu le faire fonctionner de ton cotés ?

Merci bien,

Julien

Re..
Aucune difficulté chez moi avec ce code
Le code se trouve dans le classeur cible

 

[JulienLebreton]

Bonjour,

Je n'y arrive pas, pourrais tu regarder ce fichier pour me dire ce que j'ai fais de mal ?

A bientôt,

Julien

 

[Jacky67]

Bonjour,

Je n'y arrive pas, pourrais tu regarder ce fichier pour me dire ce que j'ai fais de mal ?

A bientôt,

Julien

Re..
Et comme ceci ?
Une copie doit être en cours

Sub test()
    On Error Resume Next    ' rien de copier
    Worksheets("Export").Paste Worksheets("Export").Cells(65535, 1).End(xlUp)(3)
End Sub

 

[JulienLebreton]

Bonjour Jacky,

C'est génial ca fonctionne à la perfection !

Merci beaucoup,

Julien

 

[Jacky67]

Bonjour Jacky,

C'est génial ca fonctionne à la perfection !

Merci beaucoup,

Julien

Re..
Pour moi ceci devrait être suffisant
Le code étant dans la feuille

Sub test()
    On Error Resume Next    ' rien de copier
    ActiveSheet.Paste Cells(65535, 1).End(xlUp)(3)
End Sub