Macro : copie d'onglet entre 2 fichiers excel

[liop49]

Bonjour,

Je viens juste de m'inscrire sur le forum après avoir fais une recherche qui n'a pas abouti.

J'ai un problème 😕 sur ma macro à l'ouverture de mon fichier excel (NLot.xls)

Je dois à l'ouverture aller copier un onglet (Copie entrées) ou les cellules de cet onglet d'un autre fichier exel (CopieLot.xls).
Ensuite je dois coller dans mon onglet (Copie entrées) du fichier NLot.xls les cellules copiées ou écraser l'onglet existant par le nouveau.
Et pour finir je dois fermer le fichier excel m'ayant permis de faire le copier c'est à dir CopieLot.xls

Voici mon code :

Code :

Private Sub Workbook_Open()
    
 ChDir "\\monserveur\lot.xls"
 Workbooks.Open Filename:= _
     "\\monserveur\lot.xls\CopieLot.xls"
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.Copy
 Windows("Nlot.xls").Activate
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
 
End Sub

Il me met : "erreur d'execution '1004'" et "Erreur définie par l'application ou par l'objet"

J'ai pourtant essayé en créant une macro manuellement et c'est le code qu'il m'a sorti.

Je veux bien votre aide 😱

Merci d'avance

 

[Pierrot93]

Re : Macro : copie d'onglet entre 2 fichiers excel

Bonjour Liop

Je vois dans ton code des "Active.Sheets" ou "Active.Cells" à remplacer par "ActiveSheet" et "ActiveCell".

La ligne ci dessous

Active.Sheets("Copie Entrées").Select

doit être remplacer par :

Sheets("Copie Entrées").Select

Par contre ce qui m'étonne c'est que tu nous dis que c'est l'enregistreur qui a mis ce code, a moins que tu ais 2007 peut être...

bon après midi
@+

 

[liop49]

Re : Macro : copie d'onglet entre 2 fichiers excel

Merci pour ta réponse

Pour info je suis sur du 2003.

Je viens de faire les modif que tu m'as indiqué pour obtenir le code suivant :

Private Sub Workbook_Open()
    
 ChDir "\\monserveur\lot.xls"
 Workbooks.Open Filename:= _
     "\\monserveur\lot.xls\Copielot.xls"
Sheets("Copie Entrées").Select
 ActiveCells.Select
 Selection.Copy
 Windows("Nlot.xls").Activate
Sheets("Copie Entrées").Select
 ActiveCells.Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 Sheets("Recherche CB ou BA").Select
 Active.Range("B6").Select
 

End Sub

Pour contre j'ai une erreur sur

Sheets("Copie Entrées").Select

Erreur d'exécution '9'
L'indice n'appartien pas à la sélection

😕

 

[liop49]

Re : Macro : copie d'onglet entre 2 fichiers excel

Personne pour m'aider

Je pense qu'il y a une connerie mais je ne sais pas où 😡

 

[liop49]

Re : Macro : copie d'onglet entre 2 fichiers excel

J'ai réussi tout seul comme un grand 🙂

Je ne suis pas peu fier😎

Merci de ne pas m'avoir aider cela m'a permis de chercher tout seul mais la prochaine fois je suis preneur pour votre aide 😛

Voici le code dans le fichier NLot.xls :

Sub auto_open()

'
' Macro enregistrée le 08/12/2006 par Nicolas BAUDRY
'

'
    Workbooks.Open Filename:= _
        "\\monserveur\lot.xls\Copielot.xls"
    
    Windows("Copielot.xls").Activate
    Worksheets("Copie Entrées").Activate
    Cells.Select
    Selection.Copy
    Windows("NLot.xls").Activate
    Worksheets("Copie Entrées").Activate
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Copielot.xls").Close False
    Range("A1").Select
End Sub

Et voilà !!!