Comment ouvrir les fichiers au travers d'une page de garde
Fermé
pemeco
Messages postés
2
Date d'inscription
mercredi 2 novembre 2016
Statut
Membre
Dernière intervention
2 novembre 2016
-
2 nov. 2016 à 09:53
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 5 nov. 2016 à 16:13
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 5 nov. 2016 à 16:13
A voir également:
- Comment ouvrir les fichiers au travers d'une page de garde
- Supprimer une page word - Guide
- Ouvrir fichier rar - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Comment ouvrir un fichier apk ? - Guide
- Ouvrir fichier .bin - Guide
2 réponses
pemeco
Messages postés
2
Date d'inscription
mercredi 2 novembre 2016
Statut
Membre
Dernière intervention
2 novembre 2016
2 nov. 2016 à 10:12
2 nov. 2016 à 10:12
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
Merci pour votre aide
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
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
5 nov. 2016 à 16:13
5 nov. 2016 à 16:13
Souhaites-tu poser une question, ou obtenir de l'aide? Merci de préciser ce que tu demandes.