Macro copier onglet depuis un classeur (ouvert ou fermer) vers un autre

Bonjour à Tous

j'ai un soucis avec un code vba

Code :

Sub test()

Dim wkA As Workbook, wkB As Workbook

Dim chemin As String, fichier As String

'classeur A qui contient la macro

Set wkA = ThisWorkbook

'chemin ou se trouve le fichier B

chemin = "\\Chemin"

'nom du fichier B

fichier = "PLANNING.xlsx"

'ouvre le fichier B

Workbooks.Open chemin & fichier

'met en variable le classeur B

Set wkB = ActiveWorkbook

'copie la feuille "feuil1" du classeur A avant la feuille 1 dans le classeur B

wkA.Sheets("S09").Copy before:=wkB.Sheets("OTI")

MsgBox ("La feuille est maintenant copiée") 'message pour dire que la feuille est copiée.

wkB.Close True 'ferme et enregistre le classeur B

End Sub

==> Le code doit copier les données depuis un Classeur Excel ouvert (en lecture seul) ou fermer un onglet ... vers le classeur cible et l'onglet désigné ... MAIS j'ai un Bug .... qui dit "Erreur 9 : L'incident n'appartient pas à la sélection"

Merci d'avance pour votre aide les AMIS

Cheeers

Bonjour,

Tu dis :

'copie la feuille "feuil1" du classeur A avant la feuille 1 dans le classeur B

et le code est :

wkA.Sheets("S09").Copy before:=wkB.Sheets("OTI")

C'est "Feuil1" ou "S09" ?

Vérifie l'orthographe de tes feuilles, c'est probablement là que se trouve le problème.

Oui, Pardon ...

C'est c'est bien copier la feuil "S09" du classeur d'origine / source vers la destination feuil"OTI"

Merci pour votre support

Ci-joint un exemple

Re,

et avec ceci ?

chemin = "\\Chemin\"'<--- le slash de fin pour séparer le chemin du dossier du nom du fichier
Workbooks.Open chemin & fichier

Bonjour

==> Le code doit copier les données depuis un Classeur Excel ouvert (en lecture seul) ou fermer un onglet ... vers le classeur cible et l'onglet désigné ... MAIS j'ai un Bug .... qui dit "Erreur 9 : L'incident n'appartient pas à la sélection"

le bug est au niveau de cette ligne :

'copie la feuille "feuil1" du classeur A avant la feuille 1 dans le classeur B

wkA.Sheets("S09").Copy before:=wkB.Sheets("OTI")

merci pour votre aide

Rechercher des sujets similaires à "macro copier onglet classeur ouvert fermer"