Macro impression d'une feuille exel en pdf selon un lien et un nom situé dans cellule

Version imprimable

Bonjour ,

Pour faire simple je souhaite générer une impression d'une feuille Excel en PDF !

mais, je souhaite que le liens d'exportation varie en fonction du lien situé en cellule C2 de la feuille 1 et sur un lecteur I:
avec un nom de fichier qui correspond à la cellule C3

Pour le moment j 'ai ca, qui me génère mon fichier mais tjs dans le même dossier et avec toujours le même nom...

Merci, beaucoup
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub generer_pdf() Dim nompdf As String On Error GoTo erreur nompdf = "I:\PDF\.USI-CREO" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Exit Sub erreur: MsgBox "Erreur : " & Err.Number & vbLf & Err.Description End Sub

12/10/2017, 15h58
Menhir
Il suffit de changer nompdf = "I:\PDF\.USI-CREO" et de mettre le contenu de C2 dans cette variable.

Petit détail : je ne vois pas à quoi peut te servir ça :
Code:

1 2 3 4 5 On Error GoTo erreur erreur: MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
Vus que VBA fait en natif la même chose mais en mieux puisque cette bricole t'empêche de localiser l'erreur.
12/10/2017, 16h05
flobox

merci de ta réponse rapide, mais c 'est justement ca que je n'arrive pas a faire.

Merci
12/10/2017, 17h52
Pierre Fauconnier
Citation:
Envoyé par Menhir

[...]Petit détail : je ne vois pas à quoi peut te servir ça :

Code:

1 2 3 4 5 On Error GoTo erreur erreur: MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

Vus que VBA fait en natif la même chose mais en mieux puisque cette bricole t'empêche de localiser l'erreur.
Ca permet de ne pas planter le code si l'accès au VBA est verrouillé...
12/10/2017, 17h58
Pierre Fauconnier

Salut.

Code:

nompdf = range("c2").value

Salut, à titre documentaire pour une vérification de la validité du nom du fichier en "C3" via qqch du genre :

Code:

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 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

12/10/2017, 18h55
Menhir

Citation:

Envoyé par Pierre Fauconnier

Ca permet de ne pas planter le code si l'accès au VBA est verrouillé...

Pour le côté "ne pas accéder au code", je suis d'accord avec toi.
Mais le plantage y est quand même : un message Excel ou un MsgBox, il n'y a pas une grosse différence (à par la bouton "Debugage" dont un débutant en phase de développement aurait tord de se priver).
Je pense qu'il serait judicieux pour lui de supprimer ces trois lignes ou, au moins, de les mettre en commentaire le temps de finaliser son code.

C'est juste un conseil.
12/10/2017, 20h15
Pierre Fauconnier

Le plantage du code, ça réinitialise les variables globales, notamment la variable ruban, donc j'aime encore bien éviter.

Pour le reste, je suis d'accord avec toi. Vu le niveau présenté ici (ce n'est pas une attaque, hein, flobox, c'est juste un constat), il n'est pas trop nécessaire de se soucier de la gestion d'erreur à ce stade.

Cela dit, pour info, on peut laisser la gestion d'erreur mais mettre le niveau d'arrêt sur erreur à "Toutes les erreurs". Ainsi, même la gestion des erreurs est désactivée, ce qui est chouette en phase de développement lorsque le code n'est pas protégé.
12/10/2017, 21h12
flobox

merci a tous

Merci bcp, je test ça demain a la première heure,

Sinon je ne voudrais pas abuser, mais est il possible de générer dans la même macro une impression papier et l' impression pdf ?

merci.
12/10/2017, 21h14
flobox

pas de probléme

y as aucun souci je suis plus que débutant dans excel mais quand je pense a la quantités de chose que peut faire ce logiciel, et le gain de temps et élimination de source d’erreurs ça le rend très attractif
12/10/2017, 21h20
flobox

juste pour confirmer

on imagine en C2 : i:\2503\perlinpimpim\dossier\
en C3 : a215x85R

Mon fichier dois bien prendre la direction de la cellule C2 et se nommer a215x85r.pdf ?

et avec la cerise sur le gateau lancer une impression papier ;)

Merci beaucoup
13/10/2017, 07h11
Pierre Fauconnier

Pour le nom pdf

Code:

nompdf = range("c2").value & range("c3").value

Pour l'impression papier, sur l'imprimante par défaut:

Code:

activesheet.printout

Se renseigner sur l'aide en ligne pour les options d'impression : L'aide, ça aide ;)
13/10/2017, 08h25
flobox

impec pour le PDF

Le fichier PDF marche a merveille, par contre pour l'impression papier cela ne fonctionne pas.

je pense surtout que c'est moi qui le colle mal dans la macro.

>Merci
13/10/2017, 09h00
flobox

C'est Bon
C'est ok j'ai réussi a lancer l' impression en automatique
Code:

1 2 3 4 5 Sub impression() 'lancement de l'impression de fiche suiveuse Sheets("fiche de fab").PrintOut End Sub
Merci a tous pour vos conseils, et votre aide