Discussion :

[revemane]

bonjour le forum

j'ai créer une macro qui fonctionne avec un bouton de formulaire pour archiver mon document sur un server mais je n'arrive pas à mettre comme nom du fichier PDF créer le contenu d'une cellule

voici le code que j'utilise

Code :

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

1
2
3
4
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\monserver.com\archive\archive_releves_BC\Copie de Relever BC.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

donc la comme nom du document enregistrer j'ai "Copie de Relever BC.pdf"
ce que je souhaiterai c'est d'avoir la cellule B29 à la place

merci pour votre aide

[Qwazerty]

Salut

Il suffit de faire une concaténation de chaines de caractères

Code :

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

1
2
3
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\monserver.com\archive\archive_releves_BC\" & ActiveSheet.range("B29").value, Quality:= _

Je te laisse tester.


++
Qwaz

[revemane]

Merci pour l'info mais j'ai une erreur sur B29 qui est entré paranthese erreur de compilation attendu fin d'instruction

[revemane]

Dsl trouver l'erreur c'était moi

[kiki29]

Salut, il faudrait rajouter une vérification de la validité du nom de fichier ..... sans compter l'orthographe.

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
16
17
18
 
Option Explicit
 
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