Discussion :

[chrisl0]

Bien le bonjour

Voila j'explique mon petit problème.
J'ai créer un bouton sur ma feuille pour imprimer en pdf ca fonctionne sauf que sa me me le nom du classeur et que je voudrais le nom de cellule F5 et G3 comment je peux faire ca ??

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ImprimerPdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
If Left(Range("I2"), 8) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 8) & Format(CInt(Right(Range("I2"), 2)) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub

Merci bien

J'ai oublier de preciser je suis sous excel 2016

[kiki29]

Salut, regarde Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant en bas de ce post # 1 du 16/10/2007. En l'adaptant à ton contexte via sNomFichierPDF.

[chrisl0]

Merci kiki

Sa ma bien inspiré ton post donc j'ai récupérer se que j'avais besoin pour faire sa et sa fonctionne très encore merci.
Je met le code ont sais jamais si sa peux aider quelqu'un

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ImprimerPdf()
Dim sNomFichierPDF As String
sNomFichierPDF = "C:\Users\chris\Documents\Facture_ " & [f5].Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF
If Left(Range("I2"), 8) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 8) & Format(CInt(Right(Range("I2"), 2)) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub

[chrisl0]

Alors je reviens sur se post car j'ai voulu définir une variable a partir d'une cellule d'une certaine feuille. J'ai donc fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImprimerPdfFacture() 'Enregistre la facture en pdf et incrémente le numero de facture
Dim sNomFichierPDF As String
CheminPdf = Sheets("Configuration").Range("J2")
sNomFichierPDF = "& CheminPdf &""Facture_ " & [F5].Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF
If Left(Range("I2"), 8) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 8) & Format(CInt(Right(Range("I2"), 2)) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub

Le seul probleme c'est que sa me donne une erreur et je ne comprend pas trop pourquoi.

[jerome.vaussenat]

Salut,

Et en modifiant la ligne de création du nom du fichier de la manière suivante :

Code :

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

sNomFichierPDF = CheminPdf & "Facture_" & [F5].Value & ".pdf"

çà donne quoi ?

[chrisl0]

C'est super cela fonctionne merci beaucoup.

Je remet le code modifier si jamais sa peux aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImprimerPdfFacture() 'Enregistre la facture en pdf et incrémente le numero de facture
Dim sNomFichierPDF As String
CheminPdf = Sheets("Configuration").Range("J2")
sNomFichierPDF = CheminPdf & "Facture_" & [F5].Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF
If Left(Range("I2"), 8) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 8) & Format(CInt(Right(Range("I2"), 2)) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub