Problème de copie avec excel

Question

&#192; l'aide svp,

J'ai un classeur nomm&#233; planning dans lequel je s&#233;lectionne une s&#233;rie de lignes, ensuite je clique sur un bouton nomm&#233; backup. Cette action doit ouvrir le classeur 2005.xls et coller les lignes s&#233;lectionn&#233;es de mon classeur planning &#224; l'endroit de la premi&#232;re ligne vide. Il serait important que je vide le presse papier avant, car je veut m'assurer qu'il ne contient rien d'autre.

J'ai beau essayer et &#231;a ne marche pas...

Sub backup_final()
Dim j
Dim l

 ' Ici je voudrais vider le presse papier, mais je ne sais pas comment
   'Clipboard.Clear
'Je copie la s&#233;lection de mon classeur planning
    Selection.Copy
    'chemin du fichier 2005.xls    
Workbooks.Open Filename:=  _
        "C:\Documents and Settings\Louise\Bureau\precision\2005.xls"
        
          'Activation de ma feuille de mon classeur 2005.xls 
        Worksheets("Feuil1").Activate
        
      'Recherche de ma derni&#232;re ligne non vide pour obtenir le num&#233;ro
      ActiveCell.SpecialCells(xlLastCell).Select
        
        l  = Split(ActiveCell.Address, "$")(2)
      
         ' ici je s&#233;lectionne un plage pour recevoir la copie, j'aimerais mieux s&#233;lectionner des lignes compl&#232;tes, mais je sais pas comment faire
         Range("A" & l + 1 & ":" & "AJ" & l + 1).Select


       ' Je colle les donn&#233;es et c'est ici que j'obtient l'erreur "erreur d'ex&#233;cution -2147417848..." la m&#233;thode  paste de l'objet worksheet a &#233;chou&#233;

         ActiveSheet.Paste
        Application.CutCopyMode = False
         'Je m'assure que le classeur est actif avant la sauvegarde et fermeture
        Windows("2005.xls").Activate
        ActiveWorkbook.Save
        ActiveWindow.Close
End Sub

Est-ce que vous pouvez m'aider, je travaille sur ce code depuis des lunes et je trouve pas la solution

Un gros merci

Une d&#233;butante
Louise

michelxld · Answer

bonjour


tu peux tester cette macro pour vider le presse papier

Sub viderPressePapier()
'n&#233;c&#233;ssite d'activer la r&#233;f&#233;rence "Microsoft Forms 2.0 Object Library."
Dim Cible As dataObject
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
Set Cible = Nothing
End Sub

bonne soiree
michel

thtdlx2 · Answer

Je n 'ai pas essay&#233; de vider le presse papier (je n'en vois pas l'utilit&#233;, dans la mesure o&#249; tu viens de faire Selection.Copy, cela remplace tout ce qu'il pouvait y avoir &#224; l'int&#233;rieur)

Donc sans le faire, j'ai juste remplac&#233; ta ligne
 Range("A" & l + 1 & ":" & "AJ" & l + 1).Select

par la ligne suivante :
Cells(CInt(l) + 1, 1).Select

Cela permet de s'affranchir de la zone sur laquelle coller (si elle n'est pas identique &#224; celle d'origine, &#231;a ne va pas)
Et cela semble marcher. Dis moi si c'est le cas chez toi.

cs_tilous · Answer

Bonjour,

Merci pour votre aide, mais j'obtiens encore l'erreur pour le collage, snif snif...

Je commence &#224; d&#233;sesp&#233;rer royalement...

L'orsque je lance le code, mon fichier 2005.xls ouvre et il copie mes donn&#233;es &#224; la bonne ligne, mais j'obtiens l'erreur  pour le paste juste avant la sauvegarde et fermeture. Je n'y comprends rien.

Auriez-vous une id&#233;e, je pourrais vous faire parvenir mon fichier pour que vous puissiez voir ce qui ce passe.

Une d&#233;butante
Louise

thtdlx2 · Answer

Effectivement, passes moi ton fichier. Tu peux envoyer cela &#224; thibaut.delachaux chez netcourrier.com (je ne met pas le @ volontairement pour ne pas &#234;tre l'objet de spamming automatique !)

Problème de copie avec excel

4 réponses

Discussions similaires