> Tous les forums > Forum Bureautique
 Enregistrement PDF en VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
bruber
  Posté le 25/09/2017 @ 18:50 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

Le code ci-dessous fonctionne et ne posait pas de problème.

Sub PDF_Fiche()
' Création du PDF (dans le répertoire courant)
If Sheets("Fiche").Range("B3") > 12 Then plage = "D1:I99" Else plage = "D1:I51" 'Définition de la zone d'impression
nom = Sheets("Fiche").Range("G2")
cours = Sheets("Fiche").Range("D2")
Sheets("Fiche").Range(plage).ExportAsFixedFormat Type:=xlTypexslm, FileName:= _
ActiveWorkbook.Path & "\" & nom & " (" & cours & ") " & ".PDF"
End Sub

Depuis quelques jours, il ne marche qu'une fois, la première. Je suis contraint de fermer Excel pour l'exécuter une seconde fois. Je ne pense pas que cela vienne du code mais je suis incapable de savoir pourquoi.

Si quelqu'un a rencontré ce problème et connait la solution, je suis preneur ...

Merci d'avance.

Publicité
ferrand
 Posté le 25/09/2017 à 23:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Pour que cela marche plusieurs fois, il faut que le nom du fichier soit à chaque fois différent.

Cordialement.

bruber
 Posté le 26/09/2017 à 07:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour, et merci pour votre réponse.

Je ne pense pas que cela vienne de là, car les variables "nom" et "cours" sont différentes à chaque enregistrement.

De plus cette macro fonctionnait même en l’exécutant plusieurs fois avec le même nom. (J'utilise Excel 2007 sur windows 10 mais l'an dernier j'avais windows 7 ... )

Cordialement.

Debrief
 Posté le 26/09/2017 à 08:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Pour info chez moi (Windows 7 et Excel 2013) ton sub ne fonctionne pas à cause d'un argument Type:= non reconnu xlTypexslm de la méthode ExportAsFixedFormat d'ailleurs non listé dans la doc mais cependant présent sur des exemples web. En le remplaçant par xlTypePDF cela fonctionne de manière répétitive sur mon fichier sans avoir à le fermer.

Sub PDF_Fiche()
Dim plage, nom, cours As String
plage = "A1:B10"
' Création du PDF (dans le répertoire courant)
'If Sheets("Fiche").Range("B3") > 12 Then plage = "D1:I99" Else plage = "D1:I51" 'Définition de la zone d'impression
nom = Sheets("Fiche").Range("A2")
cours = Sheets("Fiche").Range("B2")
MsgBox ActiveWorkbook.Path & "\" & nom & " (" & cours & ") " & ".PDF"
Sheets("Fiche").Range(plage).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & nom & " (" & cours & ") " & ".PDF"
End Sub

P.S. quand le fichier a le même nom il est simplement remplacé sans avertissement dans ce contexte.



Modifié par Debrief le 26/09/2017 08:06
bruber
 Posté le 26/09/2017 à 08:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Je viens de tenter l'envoi des PDF (macro incluse dans une boucle de traitement) à partir d'un autre ordinateur sous la même configuration que la mienne et ça a fonctionné correctement.

Je viens de faire l'essai avec le Type:=xlTypePDF , ce qui est plus rationnel, (je n'avais même pas remarqué la différence de type puisque cela fonctionnait).

Malheureusement, j'ai le même problème. Je pense qu'il peut s'agir d'un problème de mise à jour Excel que j'ai faite sur mon PC

En tout cas merci pour votre aide.

Cordialement.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Macro enregistrement fichier Excel
Enregistrement Conversations Facebook
pb enregistrement Userform
Sélection d'un enregistrement dans ACCESS
Excel impossible enregistrer, enregistrement temporaire
Enregistrement destinataires
ENREGISTREMENT FICHIER PAR IMPUTBOX
Enregistrement impossible
probleme d'enregistrement avec PDF-XChange Viewer
Enregistrement en PDF
Plus de sujets relatifs à Enregistrement PDF en VBA
 > Tous les forums > Forum Bureautique