jeromear
XLDnaute Junior
Bonjour à tous
J'ai mis en place cette macro qui lance la macro EFFACER de tous les fichiers du chemin
La protection à la fin de la macro EFFACER ne marche plus : elle selectionne les cellules déverrouilées et verrouillées aussi et ca ne devrait pas.
Quelqu'un y comprend quelque chose ?
Merci pour votre aide
Pourtant la macro EFFACER fonctionne bien toute seule : elle ne selectionne bien que les cellules déverrouilées
J'ai mis en place cette macro qui lance la macro EFFACER de tous les fichiers du chemin
La protection à la fin de la macro EFFACER ne marche plus : elle selectionne les cellules déverrouilées et verrouillées aussi et ca ne devrait pas.
Quelqu'un y comprend quelque chose ?
Merci pour votre aide
Code:
Sub EFFACER_SUR_TOUS_LES_FICHIERS()
Dim wbk As Workbook, awbk As Workbook
Dim Fich As String
Const chemin = "C:\COMMANDES C&A SEM51\SEMAINE 51\COMMANDES CLIENTS"
Set awbk = ThisWorkbook
Fich = Dir(chemin & "\*.xls")
Do While Fich<>""
Set wbk = Workbooks.Open(chemin & "\" & Fich)
'
Application.Run"[B]'[/B]"&wbk.Name&"'!EFFACER"
wbk.Save
wbk.Close
Set wbk = Nothing
Fich = Dir
Loop
Set awbk = Nothing
End Sub
Pourtant la macro EFFACER fonctionne bien toute seule : elle ne selectionne bien que les cellules déverrouilées
Code:
Sub EFFACER()
'
' EFFACER Macro
' Macro enregistrée le 14/01/2010 par JEROME
'
Dim cel As Range
Dim tablo, i As Byte
Application.ScreenUpdating = False
tablo = Array("COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "COM10") 'nombre de feuilles étudiées limité à 255, sinon => i As Integer
For i = 0 To UBound(tablo)
With Sheets(tablo(i))
.Unprotect
.Range("A10:AI24").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next i
End Sub
Dernière édition: