Re
Alors voila la solution proposer (du code qui va te mettre sur la piste mais que tu va devoir modifier toi meme)
Sub ouvrir()
Workbooks.Open Filename:="C:\Users\Ben\Desktop\finale\cible - Copie2007ok.xlsm"
Sheets("Feuil2").Select
Application.CutCopyMode = False
Sheets("Feuil2").Copy After:=Workbooks("cible - Copie2007ok.xlsm").Sheets(16)
End Sub
Workbooks.Open Filename:="C:\Users\Ben\Desktop\finale\cible - Copie2007ok.xlsm"
Alors workbooks.open permet d'ouvrir ton fichier PDM , pour cela il va falloir que tu trouve le chemin d'acces de ton fichier PDM
http://www.pcastuces.com/pratique/astuces/2817.htm
Ensuite le reste du code
Sheets("Feuil2").Select
Application.CutCopyMode = False
Sheets("Feuil2").Copy After:=Workbooks("cible - Copie2007ok.xlsm").Sheets(16)
Fais avec l'enregistreur de macro , active le click droit sur ton onglet de feuille ->"déplacer ou copier" (il y'aura une liste déroulante avec tous tes classeurs) vers PDM (Attention il faut qu'il soit ouvert) puis envoie ta feuille en dernier , fais sa avec toutes feuilles , recupere le code que tu as créer
Voila fini
Cordialement