Discussion :

[flobox]

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 :

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

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

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

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.

[flobox]

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

Merci

[Pierre Fauconnier]

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

Code :

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

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

[Pierre Fauconnier]

Salut.

Code :

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

nompdf = range("c2").value

[kiki29]

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

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

[Menhir]

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.

[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é.

[flobox]

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.

[flobox]

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

[flobox]

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

[Pierre Fauconnier]

Pour le nom pdf

Code :

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

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

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

Code :

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

activesheet.printout

Se renseigner sur l'aide en ligne pour les options d'impression : L'aide, ça aide

[flobox]

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

[flobox]

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

Code :

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

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