XL 2019 Macro + message d'alerte

[Utilisateur222.222]

Bonjour à tous.

Je rédige des documents de rapports.

Chaque rapport est enregistré dans la façon suivante : NumeroRapport_(NumeroIdentification)

Le numéro de rapport ainsi que le numéro d’identification sont chacun renseignés dans une cellule du fichier excel comme présenté dans le fichier joint.
J'ai crée une macro me permettant d'enregistrer un pdf automatiquement.

Cependant, j'aimerais que l'on m'affiche un message ( avec MsgBox par exemple) comme "Veuillez vérifier les numéros de rapports" si jamais le NumeroRapport n'est pas le même que celui contenu dans la cellule du fichier excel et de même pour le NumeroIdentification s'il n'est pas le même que celui renseigné dans le fichier excel.

Cela permettrait de ne plus avoir d'erreur avec un rapport qui porterait le numéro d'un autre ( oubli du changement du numero de rapport si l'on en prends un ancien pour le modifier ou autre par exemple)

J'aimerais donc de l'aide dans la façon de rédiger ceci dans le programme de la macro, un exemple avec le fichier joint me serait d'une grande aide.

Je vous remercie de vos réponses

 

[Jacky67]

Bonjour à tous.

Je rédige des documents de rapports.

Chaque rapport est enregistré dans la façon suivante : NumeroRapport_(NumeroIdentification)

Le numéro de rapport ainsi que le numéro d’identification sont chacun renseignés dans une cellule du fichier excel comme présenté dans le fichier joint.
J'ai crée une macro me permettant d'enregistrer un pdf automatiquement.

Cependant, j'aimerais que l'on m'affiche un message ( avec MsgBox par exemple) comme "Veuillez vérifier les numéros de rapports" si jamais le NumeroRapport n'est pas le même que celui contenu dans la cellule du fichier excel et de même pour le NumeroIdentification s'il n'est pas le même que celui renseigné dans le fichier excel.

Cela permettrait de ne plus avoir d'erreur avec un rapport qui porterait le numéro d'un autre ( oubli du changement du numero de rapport si l'on en prends un ancien pour le modifier ou autre par exemple)

J'aimerais donc de l'aide dans la façon de rédiger ceci dans le programme de la macro, un exemple avec le fichier joint me serait d'une grande aide.

Je vous remercie de vos réponses

Bonjour,
J'ai crée une macro me permettant d'enregistrer un pdf automatiquement.
Il n'y a aucune macro de ce type dans le classeur en pj

 

[Utilisateur222.222]

Bonjour,
J'ai crée une macro me permettant d'enregistrer un pdf automatiquement.
Il n'y a aucune macro de ce type dans le classeur en pj

Bonjour, voici le fichier modifié avec la macro.

 

[Utilisateur222.222]

Le programme de la macro pour générer le fichier pdf est le suivant :

Sub macro_test()
'
' macro_test Macro
'

''Pour la generation du PDF

Chemin = ThisWorkbook.Path & "\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name

' Construction du chemin complet

CheminComplet = Chemin & NomFichier & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

 

[Jacky67]

Le programme de la macro pour générer le fichier pdf est le suivant :

Sub macro_test()
'
' macro_test Macro
'

''Pour la generation du PDF

Chemin = ThisWorkbook.Path & "\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name

' Construction du chemin complet

CheminComplet = Chemin & NomFichier & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

Re..
Un classeur .Xlsx ne peut pas contenir de macro
Selon l'exemple donné, la macro pourrait ressembler à ceci

Sub macro_test()
    Dim chemin$, NomFichier$
    chemin = ThisWorkbook.Path & "\"
    NomFichier = Split(ThisWorkbook.Name, ".")(0)
    If Trim(Replace(Replace(NomFichier, "_(", ""), ")", "")) = Replace([c6], "N°", "") & [d18] Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    Else
        MsgBox "Saisie incorrecte" & vbLf & "Le classeur n'est pas enregistré", vbCritical, "Information"
    End If
End Sub

 

[Utilisateur222.222]

Re..
Un classeur .Xlsx ne peut pas contenir de macro
Selon l'exemple donné, la macro pourrait ressembler à ceci

Sub macro_test()
    Dim chemin$, NomFichier$
    chemin = ThisWorkbook.Path & "\"
    NomFichier = Split(ThisWorkbook.Name, ".")(0)
    If Trim(Replace(Replace(NomFichier, "_(", ""), ")", "")) = Replace([c6], "N°", "") & [d18] Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    Else
        MsgBox "Saisie incorrecte" & vbLf & "Le classeur n'est pas enregistré", vbCritical, "Information"
    End If
End Sub

Parfait, j'ai essayé votre proposition et elle fonctionne très bien merci beaucoup, et merci pour l'information également