Comment ouvrir les fichiers au travers d'une page de garde

Question

Bonjour, 
Je suis étudiant et l'on m'a remis un étudiant en Qualité et l'on m'a remis un projet sur lequel je dois utiliser le VBA toutefois étant débutant je ne sais pas comment le résoudre.
Mon problème est le suivant :
j'aimerais pourvoir ouvrir un fichier excel au travers de ma page de garde , en effet j'ai créer plusieurs fichiers que j'ai réunis dans un seul dossier et j'aimerais pouvoir appeler ces fichiers qui sont présent dans ce dossier au travers de cette page de garde même si le dossier est déplacé dans un autre support (clé USB, DD ou une autre machine).
Merci d'avance pour votre aide


Configuration: Windows / Firefox 49.0

pemeco · Answer

Je suis étudiant et l'on m'a remis un étudiant en Qualité // Je suis un étudiant en qualité. 
Dans la page de garde j'ai créer un formulaire pour que l'utilisateur puisse entrer ces paramètres puis choisir le fichier excel sur lequel il souhaite travailler au travers des chexbox placés à cet effet puis il clic sur le bouton "OK" et le fichier correspondant à son choix puisse apparaître.
Voici ci-après le code que j'ai mis sur le bouton OK

Private Sub OK_Click()
    'controle du nom de l'entreprise
    If Len(Text_BE) = 0 Then
        MsgBox "vous devez obigatoirement saisir le nom de l'entreprise"
    Else
        'controle du nom du consultant
        If Len(Text_consultant) = 0 Then
            MsgBox "vous devez obligatoirement saisir le nom du consultant"
        Else
            If Len(Text_Adresse) = 0 Then
                MsgBox "vous devez obligatoirement saisir une Adresse"
            Else
                If Len(Text_Beneficiaire) = 0 Then
                    MsgBox "veuillez saisir le nom de l'entreprise Beneficiaire"
                Else
                    If Len(Text_lieu) = 0 Then
                        MsgBox "veuillez saisir le nom du Lieu du diagnostic"
                    Else
                        If Len(Text_Tel) = 0 Then
                           MsgBox "vous devez saisir un numéro de téléphone"
                        Else
                             If Len(Text_BP) = 0 Then
                                MsgBox "vous devez saisir un numéro de boite postale correct"
                             Else
                                If Len(Text_debut) = 0 Then
                                MsgBox "veuillez insérer une date de debut correcte"
                                Else
                                    If Len(Text_Fin) = 0 Then
                                    MsgBox "veuillez insérer une date de Fin correcte"
                                    Else
                                        If ((Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                                            MsgBox "Veuillez cocher un ou plusieurs de ces éléments"
                                        Else
                                        Page_de_Garde.Hide
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
    'venir sur la cellule J2
Range("j2").Select
If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
    ActiveCell.Formula = "ISO 9001:2015"
    Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-2015 (avec méthode conçue).xlsm")
Else
    If ((Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
        ActiveCell.Formula = "ISO 14001:2015"
        Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 14001-2015.xlsm")
          Else
        If ((Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
              ActiveCell.Formula = "ISO 22000:2005"
              Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 22000-2005.xlsm")
        Else
            If ((Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False)) Then
                 ActiveCell.Formula = "OHSAS:2007"
                 Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\OHSAS 18001-2007.xlsm")
            Else
                If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                     ActiveCell.Formula = "ISO 9001/ISO 14001"
                     Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001.xlsm")
                Else
                    If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                         ActiveCell.Formula = "ISO 9001/ISO 22000"
                         Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 22000.xlsm")
                    Else
                        If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_ISO14001.Value = False)) Then
                             ActiveCell.Formula = "ISO 9001/OHSAS 18001"
                             Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-OHSAS 18001.xlsm")
                        Else
                            If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                                 ActiveCell.Formula = "ISO 9001/ISO 14001/ISO 22000"
                                 Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000.xlsm")
                            Else
                                If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False)) Then
                                     ActiveCell.Formula = "ISO 9001/ISO 14001/ISO 22000"
                                     Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000.xlsm")
                                Else
                                    If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False)) Then
                                       ActiveCell.Formula = "ISO 9001/ISO 22000/OHSAS 18001"
                                       Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 22000 -OHSAS 18001.xlsm")
                                    Else
                                        If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True)) Then
                                           ActiveCell.Formula = "Tous les Quatre(04)référentiels"
                                          Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000-OHSAS 18001.xlsm")
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
End Sub

Merci pour votre aide

yg_be · Answer

Souhaites-tu poser une question, ou obtenir de l'aide?  Merci de préciser ce que tu demandes.

Comment ouvrir les fichiers au travers d'une page de garde

2 réponses

Newsletters