Salut br, j'utilise moi aussi Excel 2003, d'après le code qui est dans ton post tu as changé de préoccupation et y figure ++ erreurs
- Cette ligne est mauvaise
Wb2.Sheets('Détail').UsedRange.SelectSelection.Copy
, voici ce que j'ai écris :
Workbooks('Copie').Sheets('Feuil1').UsedRange.Select
Selection.Copy
' Remarque Selection.Copy est sur une autre ligne. Pour la mettre sur la même ligne (ce que tu as voulu faire faut séparer les 2 instructions par un 2 point (:))
- Range('A1').Values est incomplet !! dans mon code c'est plutôt Range('A1').select
- Il faut que les 2 classeurs soient ouverts
Voici un nouvel exemple adapté à ta nvelle préoccupation :
Sub CopiSansLiaisons()
Application.DisplayAlerts = False
Workbooks('Wb2').Activate
Workbooks('Wb2').Sheets('Détail').UsedRange.Select
Selection.Copy: Workbooks('Wb1').Activate
Workbooks('Wb1').Sheets('Mois').Select 'Copie dans le classeur 2 mais dans la feuille 1
Range('A65536').End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Finalisation
Workbooks('Wb2').Sheets('Détail').Range('A1').Select
Workbooks('Wb1').Sheets('Mois').Range('A1').Select
Application.DisplayAlerts = False
End Sub
'Je te rappelle qu'il faut mettre les cotes entre Mois (nom de la feuille) dans wb1.sheets
Ciao