bonjour à tous,
voila tout est dans le titre, j'ai migré d'excel 2003 à excel 2007 et quand j'exécute ma macro il me met se message.
Voici ma macro:
et aussi les 2 sub qui sont appelées
Est ce que quelqu'un voit ou est le problème ?
voila tout est dans le titre, j'ai migré d'excel 2003 à excel 2007 et quand j'exécute ma macro il me met se message.
Voici ma macro:
Code:
Sub save(control As IRibbonControl)
Dim path1 As String, path2 As String
On Error GoTo erreur
path1 = "C:\eclairage\feuilles d'heures\eclairage 2011-2012.xlsm"
path2 = "J:\technique\feuilles d'heures\éclairage\eclairage 2011-2012.xlsm"
Application.DisplayAlerts = False
Protege2
ActiveWorkbook.SaveAs Filename:=path2
ActiveWorkbook.SaveAs Filename:=path1
Application.DisplayAlerts = True
pdeproteger2
MsgBox ("sauvegarde terminé")
erreur:
If Err >= 1 Then
MsgBox ("Il y a eu une erreur !" & vbCrLf & "erreur n° " & Err.Number & vbLf & Err.Description)
Exit Sub
End If
End Sub
et aussi les 2 sub qui sont appelées
Code:
Sub Protege2()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Worksheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect password:="truc"
Next i
End Sub
Code:
Sub pdeproteger2()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Worksheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect password:="truc"
Next i
End Sub
Est ce que quelqu'un voit ou est le problème ?
Dernière édition: