Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1729 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2105937
ile de bea​ute
Posté le 12-10-2011 à 11:35:17  profilanswer
 

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
mood
Publicité
Posté le 12-10-2011 à 11:35:17  profilanswer
 

n°2105952
kiki29
Posté le 12-10-2011 à 12:38:41  profilanswer
 

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
n°2105997
ile de bea​ute
Posté le 12-10-2011 à 14:38:09  profilanswer
 

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.

n°2106024
kiki29
Posté le 12-10-2011 à 16:20:11  profilanswer
 

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


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
n°2106031
ile de bea​ute
Posté le 12-10-2011 à 16:37:37  profilanswer
 

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

n°2106033
kiki29
Posté le 12-10-2011 à 16:47:49  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Insestion d'une image.Pdf dans un document (pdf ou word) | en FO[VBS] ouverture boite de dialogue selection fichier win7
[VBA-Excel] Protéger une partie de la feuille par MacroConvertisseur html vers PDF en ligne de commande
VBA : Comment installer une nouvelle version d'une Object Library ?[VBA] Type utilisateur et objet
probleme impression javaimpression image JPanel java
[VBA excel] incrémentation et impréssion automatique 
Plus de sujets relatifs à : Help Me !! VBA 2007 impression et ouverture automatique de PDF


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR