Discussion :

[Manuu-34]

Bonjour

Débutant et novice dans le développement je viens chercher un peu d'aide =)
Mon besoin: enregistrer une feuil excel au format pdf avec un nom variable
Avec la code suivant j'obtiens le message d'erreur suivant: erreur d’exécution 1004 erreur définie par l'application ou par l'objet
Je ne vois absolument pas d'ou cela peu venir..
D'autant que j'ai déjà utilisé ce code dans une autre app et tout ce passe bien...

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton_PrintPDF_Click()
Dim Ws As Worksheet
 
 
' obtenir une référence sur la feuille de la fiche contrat sécurité
Set Ws = Sheets("Fiche_Contrat_Securite")
Ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ActiveWorkbook.Path & "\Fiche_Contrat\"  & "AAAA_" & Ws.Range("D6").Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
 
End Sub

[Manuu-34]

Après réflexion j'ai fini par trouver...
Je voulais compléter le nom de mon fichier avec du texte contenant des slashs...
Une fois les slashs remplacés par des underscore ca marche

[kiki29]

Salut, eh oui, à tout hasard pour la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function