Help Me !! VBA 2007 impression et ouverture automatique de PDF

Help Me !! VBA 2007 impression et ouverture automatique de PDF - VB/VBA/VBS - Programmation

Marsh Posté le 12-10-2011 à 11:35:17    

Salut a tout le monde suis nouveau sur le forum, et pas tres expert en vba sous excel. Voilas j'ai crees une macro pour pouvoir editer une selection de feuille de mon classeur excel et les enregistrés au format pdf dans un repertoir bien precis. Mais voilas le hic arrive la macro a marcher une fois j'ai ferme mon fichier et maintenant elle ne marche pas je ne sait pluc comment faire je devient fou :pt1cable:  
Si vous pouviez m'aider je vous en remercie par avance je post ma macro
 

Code :
  1. Sub testpdf()
  2. '
  3. ' testpdf Macro
  4. '
  5.    Dim nom, destination As Variant
  6.    nom = Sheets("Dénomination" ).Range("d3" ).Value
  7. '
  8.    Sheets(Array("LETTRE accord", "TABLEAU ET ANNEX", "autorisation de prelevement", _
  9.        "devis", "bon de commande", "CONVENTION ", "MANDAT " )). _
  10.        Select
  11.    Sheets("LETTRE accord" ).Activate
  12.    ChDir _
  13.        "Y:\DOSSIER ADMINISTRATIF\DEVIS \LM GENEREE PDF"
  14.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  15.        destination & nom & ".pdf", _
  16.         Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  17.        :=False, OpenAfterPublish:=False
  18. End Sub


 
y: etant un lecteur reseaux  
 
 
Help Me !!!!
 
 
édité par Elmoricq : les titres tout en majuscules sont proscrits. Je me suis également permis d'ajouter des balises de présentation de code, pour plus de lisibilité.


Message édité par ile de beaute le 12-10-2011 à 11:51:28
Reply

Marsh Posté le 12-10-2011 à 11:35:17   

Reply

Marsh Posté le 12-10-2011 à 12:38:41    

Salut, ou est défini destination ?
 

Option Explicit
 
Sub Tst()
Dim Nom As String, Destination As String
    .....
    Destination = "Y:\DOSSIER ADMINISTRATIF\DEVIS\LM GENEREE PDF"
    Nom = Sheets("Dénomination" ).Range("d3" ) & ".pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Destination & "\" & Nom , .... ,OpenAfterPublish:=True
 
End Sub


 
Il y aura lieu de faire peut-être un ChDrive "F"


Message édité par kiki29 le 12-10-2011 à 13:12:26

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 12-10-2011 à 14:38:09    

Merci de ta reponse kiki29
 
J'ai remplace la lettre Y par le chemin du serveur en mettant  
ChDir ="\\serveur\etc ... et la ca marche mais par contre je n'arrive pas a faire ouvrir en automatique le fichier pdf que je viens de créer.

Reply

Marsh Posté le 12-10-2011 à 16:20:11    

Re, et en modifiant OpenAfterPublish:=False en OpenAfterPublish:=True


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 12-10-2011 à 16:37:37    

Super kiki29 ca marche nickel chrome  
est il possible d'enregistre avec le meme nom en automatique mais en fichier excel egalement.
 
J'ai pu voire qu'egalement tu savait comment recupere automatiquement des donner excel d'un classeur pour les mettres dans un autres classeurs.
 
si tu pouvait me guider, ce serait super sympas . Encore merci

Reply

Marsh Posté le 12-10-2011 à 16:47:49    

Salut, tu as l'enregistreur de macros et ensuite une optimisation manuelle du code généré à faire
Il n'y a qu'en faisant des erreurs que l'on progresse


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed