1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Sub Register_macro()
Dim CheminNomExtFichier As String
CheminNomExtFichier = Chr(34) & "fichier_de_ma_macro.xla" & Chr(34)
If Lit(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN") = "Erreur" Then
Ecrit HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN", CheminNomExtFichier, REG_String
End If
If Lit(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN") = CheminNomExtFichier Then
End
End If
For i = 1 To 20 'on gère jusqu'à 20 macros complémentaires déjà installées
If Lit(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN" & i) = CheminNomExtFichier Then
End
ElseIf Lit(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN" & i) = "Erreur" Then
Ecrit HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Excel\Options\OPEN" & i, CheminNomExtFichier, REG_String
End
End If
Next i
End Sub |
Partager