Re : Activer feuille par macro dans un autre fichier
Macro 1 (dans le fichier A)
Private Sub Workbook_Open()
' mise_a_jour Macro
' Ouverture d'un fichier de mise à jour pour correction ou évolution du DE
'
Workbooks.Open Filename:= _
"S:\ fichierb.xls"
Application.Run "fichierb.xls'!modif_de"
ActiveWorkbook.Close
End Sub
Macro 2 (dans le fichier B)
Sub modif_de()
' modif_de Macro
' modification du DE ou prise en compte des évolutions
'
Sheets("Feuille1").Select
ActiveSheet.Unprotect
Range("A31").Select
ActiveCell.FormulaR1C1 = "2"
Range("F32:J32").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingRows:=True
Windows("fichierb.xls").Activate
End Sub
J'ai un message d'erreur car il ne veut pas ouvrir la Feuille1 (erreur d'éxécution '9' l'indice n'appartient pas à la sélection).