PB MACRO Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)

[verolyde]

Bjr,

Cette macro qui marche bien, sur environ 20 réitération :

Sub lancerO()
x = InputBox("Quelle semaine voulez-vous ?")
Call EXTSEMYVELO(x)
End Sub
Sub EXTSEMYVELO(semaine)

Workbooks.Open Filename:= _
"\\c-01\bureautique\commun\CONGES\VETT\DECOMPTES HEURES\DH VETT12.xls"
Sheets(semaine).Select
Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)
ActiveSheet.Unprotect Password:="ADM"
Range("C4:E4").Select
Selection.Copy
Sheets(semaine).Select
Sheets(semaine).Name = "VETT"
Application.CutCopyMode = False
Windows("DH VETT12.xls").Activate
ActiveSheet.Protect Password:="ADM"
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"\\c-01\bureautique\commun\CONGES\CATT\DECOMPTES HEURES\DH CATT12.xls"
Sheets(semaine).Select
Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)
ActiveSheet.Unprotect Password:="ADM"
Range("C4:E4").Select
Selection.Copy
Sheets(semaine).Select
Sheets(semaine).Name = "CATT"
Application.CutCopyMode = False
Windows("DH CATT12.xls").Activate
ActiveSheet.Protect Password:="ADM"
ActiveWorkbook.Save
ActiveWorkbook.Close

répétition sur Workbooks.Open Filename:= _ 'se lance avec 20 fichiers différents

Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete

ActiveWorkbook.Save
ActiveWorkbook.Clos

End Sub

se plante toujours sur les mêmes fichiers, malgré que je les ai refait.

Pb sur : Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)
(msg erreur : trop de caractères par cellule 255 caractères), ce qui est étrange car c'est toujours le même modèle

Que je puisse-je faire. je ne trouve pas mon erreur.

Merci de votre aide !

Verolyde

 

[Roland_M]

Re : PB MACRO Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)

bonjour,

tu dis > 'se plante toujours sur les mêmes fichiers, malgré que je les ai refait.'
et pourtant ce ne peut être que les fichiers puisque ce sont toujours les mêmes !?

il ne s'agit que du Range("C4:E4")
voir des cellules fusionnées !?

difficile sans voir ces fichiers en question !?