XL 2019 erreur avec loop de formule vba

My<3 à dit:

Aussi j'ai eu la mention que le bouton fonctionne a partir du bureau mais lorsque la personne travail a distance (qui on accès a leur Outlook et le serveur) ca ne marche pas si jamais vous voyer l'erreur c'est la bienvenue

Cliquez pour agrandir...

TooFatBoy à dit:

Ça me paraît normal car il me semble que, pour faire simple, quand tu travailles dans un classeur ouvert depuis Outlook il y a des problèmes à cause du chemin ThisWorkbook.

Cliquez pour agrandir...

kiki29 à dit:

Salut, le nom de fichier généré est : 2022.11.30_22000*-DIV02 qui n'est pas valide car il contient un caractère interdit *

VB:

Sub EnregistrerPDF()
Dim Nomfichier As String, Chemin As String
Dim LaDate As String
Dim Numero As String, sFichier1 As String

    Application.StatusBar = ""
    Chemin = ThisWorkbook.Path

    With Feuil1
        .Select
        .PageSetup.PrintArea = "$A$1:$J$47"
        LaDate = Format(Date, "yyyy.mm.dd")
        Numero = .Range("A2")
    End With

    Nomfichier = LaDate & "_" & Numero
    sFichier1 = Chemin & "\" & Nomfichier

    If NomFichierValide(Nomfichier) Then
        Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier1
    Else
        MsgBox "Nom de fichier invalide", vbCritical + vbOKOnly
        Exit Sub
    End If
    Application.StatusBar = "Création des PDFs effectuée"
End Sub

Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?\|[]"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

Peut-être modifier

Code:

Chemin = Environ("USERPROFILE") & "\" & "Documents"

Cliquez pour agrandir...

My<3 à dit:

Le problème c'est l'envois du mail en télétravail

Cliquez pour agrandir...