Enregistrement en pdf

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sodiva
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 2 mai 2014
Version d'Excel : 2012

Message par sodiva » 10 mai 2014, 10:07

Bonjour,
J'aimerai savoir s'il est possible à partir d'un fichier Excel que je dois remplir tout les soirs pour chaque client de l'enregistrer en pdf mais qui me remets le fichier Excel à zéro après l'avoir exporter. Si possible le fichier enregistrer en pdf doit porter le nom du client et la date que j'aurai inscrit dans le fichier
J'espère avoir bien expliquer.
En sachant que dans le fichier Excel, il y a ma base client. J'ai déjà mis en place la fonction recherchev pour aller rechercher les informations de mes clients.

PS: Je suis sous mac

D'avance merci pour votre aide
SUIVI VI VENDEURS ITINERANTS.xls
(153 Kio) Téléchargé 38 fois
Avatar du membre
Yvouille
Passionné d'Excel
Passionné d'Excel
Messages : 8'780
Appréciations reçues : 58
Inscrit le : 6 avril 2007
Version d'Excel : 2016

Message par Yvouille » 10 mai 2014, 18:24

Salut,

Dans le fichier ci-joint, lorsque tu cliques sur le bouton mis en place, tu as un fichier PDF qui est enregistré dans le même dossier que celui où tu l’as placé (le fichier de base). Si tu désires qu’il soit enregistré ailleurs, annonce-toi, mais alors il serait plus facile que l’enregistrement se fasse dans un sous-dossier du dossier dans lequel est placé le présent fichier.

Le fichier PDF créé porte le nom du client ainsi que la date indiquée en E4. Le fichier PDF reste ouvert à l’écran, si ce n’est pas nécessaire, on pourrait le refermer automatiquement. Tu as des espaces inutiles dans le nom de tes clients dans la colonne B de la feuille ‘Base Client’ (tu as oublié un s à clients), donc ces espaces inutiles se retrouvent dans le nom des dossiers PDF.

Si tu désires supprimer les espaces inutiles sur ta feuille, il existe une formule Excel, sinon je pourrais placer une instruction dans le code (mais ça me parait inutile d’avoir des espaces inutiles sur ta feuille).

Comme je ne savais pas trop ce que tu désirais effacer, mon code efface les cellules A14 et A20 comme démonstration.

A te relire.
SUIVI VI VENDEURS ITINERANTS_v1.xls
(162.5 Kio) Téléchargé 73 fois
Yvouille

Valais de Coeur
s
sodiva
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 2 mai 2014
Version d'Excel : 2012

Message par sodiva » 11 mai 2014, 09:56

Il me marque une erreur lorsque je clique sur archiver en pdf
Erreur d'exécution "13":
Incompatibilité de type
Lorsque je clique sur debogage, il me surligne cette ligne:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("A9") & "_" & Left(Range("E4"), 10) & ".pdf", OpenAfterPublish:=True
Avatar du membre
Yvouille
Passionné d'Excel
Passionné d'Excel
Messages : 8'780
Appréciations reçues : 58
Inscrit le : 6 avril 2007
Version d'Excel : 2016

Message par Yvouille » 11 mai 2014, 12:47

Bonjour ? Merci ?
Yvouille

Valais de Coeur
s
sodiva
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 2 mai 2014
Version d'Excel : 2012

Message par sodiva » 11 mai 2014, 13:34

Bonjour

Désole c'est vrai que je ne vous ai pas remercié.

Merci déjà d'avoir regarder mon problème et d'essayer de me le solutionner.
Avatar du membre
jeanlouisj
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 3 avril 2014
Version d'Excel : 2010FR

Message par jeanlouisj » 11 mai 2014, 14:24

Bonjour
je lis actuellement ce forum et je ne vois pas où est le bug dans la version d'Yvouille
je suis également preneur si une solution est trouvée.
Merci
J-Louis
le bébé...dans le micro-onde...
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'586
Appréciations reçues : 558
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 11 mai 2014, 18:48

Bonjour,
Bonjour Yvouille,
Public Sub CreatePDF()
Dim Chemin As String, monFichier As String
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    monFichier = Range("A9") & "_" & Format(Range("E4"), "dd-mm-yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & monFichier    ', OpenAfterPublish:=True
End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
c
cousinhub
Membre impliqué
Membre impliqué
Messages : 1'949
Appréciations reçues : 5
Inscrit le : 28 mai 2009
Version d'Excel : xl 2016

Message par cousinhub » 11 mai 2014, 18:52

Bonsoir,

Et en plus, se méfier de quelques noms....

avec des guillemets...

avec des slashs...

bonne soirée
1/ on se demande à quoi servent les correcteurs d'orthographe....
2/ Notre seule récompense est un "Merci".....
Avatar du membre
jeanlouisj
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 3 avril 2014
Version d'Excel : 2010FR

Message par jeanlouisj » 11 mai 2014, 19:05

Merci messieurs,
bonne soirée.
le bébé...dans le micro-onde...
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 11 mai 2014, 20:23

bonjour a vous

j'ai essayer le fichier mais un bug est survenu car je ne peux pas enregistrer un fichier ouvert erreur 1004 et buq a cette ligne
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & monFichier, OpenAfterPublish:=True
mais j'ai changer aussi le chemin peut être est ce la raison voici le code complet modifié
Sub ss()

  Dim Chemin As String, monFichier As String
    Chemin = "C:\devis " & Application.PathSeparator
    monFichier = Range("A9") & "_" & Format(Range("E4"), "dd-mm-yyyy") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & monFichier, OpenAfterPublish:=True
    Range("A20:I23 , A14:B17").ClearContents

End Sub
Pascal
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message