exporter un document excel au format pdf avec comme nom une cellule

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:

---

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

Salut

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

Code:

---

1 2 3

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

---

Je te laisse tester.


++
Qwaz

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

Dsl trouver l'erreur c'était moi

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

Code:

---

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

---