Sujet Précédent Sujet Suivant

Enregistrer un fichier en PDF sur un commun

Fermé
liluo13 - 2 juin 2017 à 15:28
 Archer - 2 juin 2017 à 17:00
Bonjour,

Je suis actuellement stagiaire dans une entreprise qui partage ses fichiers en commun.

Afin d'optimiser les temps de saisie de mes collègues, j'ai créé un fichier excel avec plusieurs automatisations via macroVBA.

L'une de mes macros est un enregistrement d'une feuille excel au format PDF avec un nom définit par des cellules.

Cette macro fonctionne très bien.

Le seul problème que je rencontre est l'enregistrement sur le commun.

J'ai eu beau réécrire le chemin de nombreuses fois ou encore utiliser l'enregistreur de macro, le fichier ne veut pas s'enregistrer dans le commun et se met d'office dans les documents.

Le commun sur lequel doit être le fichier dispose d'une "adresse" qui ne s'affiche pas dans le chemin. Je me demandais si le soucis pouvait venir de là.

Pour être un peu plus concrète :

Voici ma macro d'enregistrement :

Sub PDF_exp()

' Défintion des noms que l'on va utiliser apres

nom = Range("C17")
Texte = Range("H12")
Ville = Range("D29")
Booking = Range("E36")

' Enregistrement au format PDF

ChDir _
"I:\CUSTOMER_SERVICE\TEXTE\TEXTE\TEXTE\TEXTE\1 EXPORT PDF"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom & "_" & Texte & "_" & Ville & "_" & Booking, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

L'adresse du commun (I) se forme de la façon suivante :

xxx$\\texte0000.texte.nom-nom.com

Les données étant confidentielles, j'ai remplacé les noms par leur type (texte ou chiffres).

Faut-il que j'écrive l'adresse quelque part ?

Merci beaucoup pour votre aide.
A voir également:

1 réponse

Réponse 1 / 1
Archer
2 juin 2017 à 17:00
Bonjour
voila une macro PDF avec format edition
a toi de voir si ca te va 
Sub EditionPDF()
Nlig = Range("B" & Rows.Count).End(xlUp).Row
'Application.PrintCommunication = False
   With ActiveSheet.PageSetup
      .PrintArea = "$B$1:$P$" & Nlig
      .PrintTitleRows = "$3:$3"
      .LeftMargin = Application.InchesToPoints(0.25)
      .RightMargin = Application.InchesToPoints(0.25)
      .TopMargin = Application.InchesToPoints(0.75)
      .BottomMargin = Application.InchesToPoints(0.75)
      .HeaderMargin = Application.InchesToPoints(0.3)
      .FooterMargin = Application.InchesToPoints(0.3)
      .Zoom = 55
   End With
'Application.PrintCommunication = True
   Chemin = ThisWorkbook.Path & "\"
   Fiche = "Dosier"
   NomFiche = Chemin & Fiche & ".pdf"
    
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

A+
Maurice
0