matthieu2701
XLDnaute Occasionnel
Bonjour,
J'ai une cellule ou je rentre le nom et le prénom du client. Afin d'harmoniser tous les dossiers,sur une deuxième feuille, j'ai fais une formule qui permet de mettre le NOM en majuscule et le Prénom avec la première lettre en majuscule et le reste en minuscule.
Voici ma macro qui me permet de créer le dossier client en fonction des éléments renseignés.
Je souhaiterais, que si seulement le NOM est renseigné avoir un msgbox indiquant que le prénom est obligatoire. Actuellement, cela m'ouvre la fenêtre de débogage .
Merci par avance de votre aide.
J'ai une cellule ou je rentre le nom et le prénom du client. Afin d'harmoniser tous les dossiers,sur une deuxième feuille, j'ai fais une formule qui permet de mettre le NOM en majuscule et le Prénom avec la première lettre en majuscule et le reste en minuscule.
Voici ma macro qui me permet de créer le dossier client en fonction des éléments renseignés.
Code:
Sub Dossier()
'NNI des agents
'Marignane
Matthieu = "b90570"
Yacine = "J03455"
Sophie = "d41254"
Maxence = "J33056"
Remi = "f02756"
Camille = "c60772"
Cindy = "cm0d924n"
Sarah = "ss0c0can"
Priscilla = "d91472"
Zoe = "F90572"
Elodie = "d04673"
Virginie = "VR023B1N"
Daniel = "h86540"
Nathalie = "b22929"
Alexandre = "i62338"
Stephane = "a06745"
Florent = "C65470"
'Nimes
Fabienne = "f74844"
Claudia = "J88653"
Magali = "J37249"
'Dans ma feuille Echéancier
With Sheets("Echéancier")
Nom = .Range("B2")
PCE = .Range("G6")
End With
'Si Nom et PCE ne sont pas remplis alors msgbox
If Nom = "" Or PCE = "" Then
MsgBox "Veuillez compléter les champs Nom/Prénom et PCE pour pouvoir générer le dossier du client.", vbOKOnly + vbCritical, "Attention"
Exit Sub
End If
'Recherche de l'utilisateur qui a ouvert la session
utilisateur = Environ("username")
Select Case utilisateur
Case Matthieu, Yacine, Sophie, Maxence, Remi, Camille, Cindy, Sarah, Priscilla, Zoe, Elodie, Virginie, Daniel, Nathalie, Alexandre, Stephane, Florent
chemin = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & Feuil3.Cells(2, 2).Text & " " & Feuil3.Cells(6, 7).Text
Case Fabienne, Claudia, Magali
chemin = "Q:\AAG\DOSSIERS NUMERIQUES PDD\" & Feuil3.Cells(2, 2).Text & " " & Feuil3.Cells(6, 7).Text
End Select
'Si erreur, aller à la fin
On Error GoTo fin
'Création du dossier
MkDir chemin
'Faire apparaite bulle
ActiveSheet.Shapes("MonBouton1").Visible = True
Application.OnTime Now + TimeValue("00:00:02"), "EffacerMessage1"
Exit Sub
'Renvoi si erreur
fin:
MsgBox "Le dossier numérique " & Nom & " " & PCE & " a déjà été créé. Impossible de le créer une seconde fois.", vbCritical, "Attention"
End Sub
'Effacement de la bulle
Sub EffacerMessage1()
ActiveSheet.Shapes("MonBouton1").Visible = False
End Sub
Je souhaiterais, que si seulement le NOM est renseigné avoir un msgbox indiquant que le prénom est obligatoire. Actuellement, cela m'ouvre la fenêtre de débogage .
Merci par avance de votre aide.
Dernière édition: