Erreur Code Macro Excel Résolu/Fermé

Question

Bonjour,

Est-ce que quelqu'un peut m'aider avec ce code simple ? Je ne vois pas l'erreur :(

Private Sub CommandButton1_Click()

Dim sFicRegistre    As String
Dim sPathRegistre   As String
Dim WbkR            As Workbook
Dim WbkC            As Workbook
Dim ShtR            As Worksheet
Dim ShtC            As Worksheet
Dim li              As Long

  sFicRegistre = "Registre.xlsm"
  sPathRegistre = "P:\Bon de Commande\"
  Set WbkC = ThisWorkbook
  Set ShtC = ThisWorkbook.Sheets("Feuil1")
  ' Ouvrir le classeur en OLE
  Set WbkR = GetObject(sPathRegistre & "\" & sFicRegistre)
  Set ShtR = WbkR.Sheets("Registre")
  
  
  
  WbkC.Sheets("Feuil1").Range("G2:G").Copy _
                                      WbkR.Sheets("Registre").Range("G2:G")
                                      
  WbkC.Sheets("Feuil1").Range("H2:H").Copy _
                                      WbkR.Sheets("Registre").Range("H2:H")
                                      
  WbkC.Sheets("Feuil1").Range("I2:I").Copy _
                                      WbkR.Sheets("Registre").Range("I2:I")
                                      
  WbkC.Sheets("Feuil1").Range("J2:J").Copy _
                                      WbkR.Sheets("Registre").Range("J2:J")
                                      
  WbkC.Sheets("Feuil1").Range("K2:K").Copy _
                                      WbkR.Sheets("Registre").Range("K2:K")
                                      
  WbkC.Sheets("Feuil1").Range("L2:L").Copy _
                                      WbkR.Sheets("Registre").Range("L2:L")
  
  
  WbkR.Close savechanges:=True

End Sub

j'obtiens une erreur 1004
<config>Windows XP / Internet Explorer 8.0</config>

michel_m · Answer

Bonjour

C'aurait été sympa de nous dire sur quelle ligne tu as cette erreur!!

mais

Range("G2:G") est une erreur
il faudrait par exemple
Range("G2:G100")

et peut-^tre simplifier avec
Shtc.range("G2:L100").copy Sthr.range("G2:L100")

Martin · Answer

Oui j'avais meme pas pensé, Merci ! :)

Parcontre lorsque j'essaie de réouvrir le fichier (registre), Excel s'ouvre, mais la fenêtre ne s'affiche pas ?!?

Tu comprends pourquoi ?

Merci de m'aider

Erreur Code Macro Excel

2 réponses

Discussions similaires