ERREUR SUR PROCEDURE

[br44]

Bonsoir le forum

voici un petit problème sur ma procèdure qui j'èspere pourras êtres résolu .

j'ai une Erreur d'excution '1004' qui me dit:

La methode Select de la classe Range à echoué.

je voudrais savoir comment solusionner ce petit problème .
voici ma procèdure :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Dim I As Integer
Dim y As Integer

Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook

ActiveWorkbook.Save

Wb2.Sheets('Détail').UsedRange.Select
Selection.Copy
Wb1.Sheets(Mois).Range('A65536').End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues

Wb2.Sheets('Facture').UsedRange.Select
Selection.Copy
Wb1.Sheets(Mois).Range('A65536').End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues

With Wb1.Sheets(Mois)
For I = 1 To .UsedRange.Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets('Détail').Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .UsedRange.Rowns.Count
.Rows(I).RownHeight = Wb2.Sheets('Facture').Rows(y).RowHeight
Next
End With
End Sub
L'erreur se situe au niveau de la ligne :

Wb2.Sheets('Détail').UsedRange.Select

Je vous remmercie par avence pour toutes les solutions où conseil qui me seront transmis .Je vous dit donc à bientôt sur le forum BR44

 

[br44]

re:Bonjour le forum ,Bonjour Beber

petit message pour te remercier pour t'as dernière version .

malgrés t'es modiffe je vois que le résultat n'est guerre mieux .
J'ai réflèchi à tous ça et me suis dis qu'en crèant des macros formats j'aurrais peut-être un meilleur résultat ,donc j'ai fait deux macros mais j'ai des soucis .
je vais donc relancer un sujet la dessus et mettre fin a celui ci .
Le temps pour moi de faire quelques recherches sur le forum et de rediger ma demande sous le titre :'PROCEDURE POUR MACRO' .

En attandent je te dis encore merci pour tous t'es efforts et peut-être à plus sur le forum
BR44
P.S Merci aussi à toutes celles et tous ceux qui sont venus visiter se fil .
BR44