//public bool saisieTabs_setVisible(object sender, EventArgs e)
//{
// return false;
//}
public void toggleButton1_Click(object sender, RibbonControlEventArgs e)
{
bool isMyApp;
if (AddInUtilities.GetIsAddIn(out isMyApp)) //UNCHECKButton
{
//ShowXLBackStageView:
//Globals.Ribbons.CustomRibbon.Tabs[Your tab id].RibbonUI.ActivateTab("");
//Globals.Ribbons.ManageTaskPaneRibbon.RibbonUI.ActivateTab("FileTab");
//Excel 2010 or higher: Build in way to activate tab
if (Globals.Ribbons.ManageTaskPaneRibbon.RibbonUI != null)
{
toggleButton1.Checked = false;
System.Windows.Forms.SendKeys.Send("%{f}%"); //va aller dans le backstage view de Excel
return;
//Globals.Ribbons.ManageTaskPaneRibbon.RibbonUI.ActivateTab("TabHome");
}
}
if (!isMyApp)
{
//Globals.Ribbons.ManageTaskPaneRibbon.tab2.Visible = false; // messagebox pour avertir l'utilisateur ou fermer la visibilité...
string userProfile = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile);
if (!System.IO.File.Exists(userProfile + "\\Desktop\\" + "XLApp" + ".lnk"))
{
// code si aucun raccourci sur le bureau :
string msgErr = "";
// vérifier si c'est au moins excel 2013 et 64 bit (version 15)
int noVers = int.Parse(Globals.ThisAddIn.Application.Version.ToString().Split('.')[0]);
//bool Is64bit = Environment.GetEnvironmentVariable("ProgramW6432").Length > 0
if (noVers < 15)
{
msgErr = "Pour finaliser l'installation, la version d'Excel 2013 ou plus récente est requise, option 64 bit.";
}
//vérifier si l'accès à la sécurité est activé avant de poursuivre, sinon, informez l'utilisateur comment le faire.
try {
var VDP = Globals.ThisAddIn.Application.ActiveWorkbook.VBProject;
if (VDP != null)
{
VDP = null;
}
} catch {
if (msgErr != "")
{
msgErr += "\n\nEnsuite, vous devez configurer une option de sécurité dans Excel en suivant cette procédure :\n\nFichier > Options > Paramètres du Centre de gestion de la confidentialité > Paramètres des macros > Cocher \"Accès approuv au modèle d'objet du projet VBA\"";
}
else
{
msgErr += "Pour finaliser l'installation, configurer une option de sécurité en suivant cette procédure :\n\nFichier > Options > Paramètres du Centre de gestion de la confidentialité > Paramètres des macros > Cocher \"Accès approuv au modèle d'objet du projet VBA\"";
}
}
if (msgErr != "")
{
System.Windows.MessageBox.Show(msgErr, "XLApp");
toggleButton1.Checked = false;
return;
}
AddInUtilities.InitiateFirstLaunch();
// if (AddInUtilities.InitiateFirstLaunch()) {
// updateDeskTopShortCutDescription("XLApp");
// System.Windows.MessageBox.Show("Pour utiliser l'application, veuillez lancer le raccourci par votre bureau ou par le menu démarrer.", "XLApp");
// }
//Globals.Ribbons.ManageTaskPaneRibbon.tab2.Visible = false;
//AddInUtilities.UnConnectAddin();
}
else
{
DialogResult result1 = MessageBox.Show("Lancer l'application?",
"XLApp",
MessageBoxButtons.YesNo,
MessageBoxIcon.Question,
MessageBoxDefaultButton.Button1);
if (result1 == DialogResult.Yes)
{
Globals.Ribbons.ManageTaskPaneRibbon.tab2.Visible = false;
AddInUtilities.UnConnectAddin();
AddInUtilities.LaunchApp();
}
else
{
Globals.Ribbons.ManageTaskPaneRibbon.tab2.Visible = false;
AddInUtilities.UnConnectAddin();
}
}
return;
}
Globals.ThisAddIn.TaskPaneInterfaceVert.Visible = ((RibbonToggleButton)sender).Checked;
//Globals.ThisAddIn.Application.Run("resizeWindow");
//if (!Globals.Application.ActiveWorkbook.IsAddin)
// Globals.ThisAddIn.TaskPane.Visible = ((RibbonToggleButton)sender).Checked;
//else
// Globals.Application.Run("SheetList_RDB");
}