Enregistreur de macro pour enregistrer en pdf
Bonjour à tous,
Voici mon problème:
Je démarre l'enregistreur de macro,
j'enregistre ma feuille la où elle doit être en format PDF, tout se passe bien
Je stop l'enregistreur. Le code comporte une erreur de compilation, je ne sais pourquoi ?
(J'ai déjà effectué cette opération depuis un autre ordinateur sans qu'il y ait le moindre problème mais là, ça ne fonctionne pas)
Voici le code qui apparaît :
Sub PDF()
'
' PDF Macro
'
'
Release "C:\Users\savar\Desktop\Tremolo\2019-2020\Facturation"
. SortOn := xlTypePDF, AutoSize := _
"C:\Users\savar\Desktop\Tremolo\2019-2020\Facturation\Facture.pdf", := _
xlQualityStandard, := TRUE, := FALSE, := TRUE
End Sub
Merci d'avance pour votre aide!
Bonjour,
L'enregistreur n'a pas tout capté le nécessaire.
Regarde au bas de cette page, dans Sujets similaires , il y a plusieurs fils qui en discutent.
ric
Très bien je me suis renseigner un peu, un nouveau problème en vu :
voici le code:
Sub PDF()
Worksheets("feuil1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\savar\OneDrive\Documents\salut.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End SubJ'ai le message d'erreur suivant :
Erreur d'exécution '-2147417848 (80010108)':
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
Bonjour,
Le code fonctionne ...
L'erreur en question ... tu tentes d'écrire dans le dossier Onedrive ...
ric
Bonjour,
Débutante en vba, j'ai le même problème
J’essaie d’exporter plusieurs feuilles « Bulletin » générées par une liste déroulante en I1 liée à la feuille « ELEVES » mais j’obtiens systématiquement le même message d’erreur.
Voici les ONGLETS et après les CODES générant l'erreur "l'objet s'est déconnecté de ses clients"
Sub Image2_Cliquer()
Dim Liste As String, A As Range
With Sheets(« Bulletin »)
Dim NomDossier As String
Dim CheminDossier As String
Liste = .Range(« I1 »).Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each A In Range(Liste)
.[I1] = A.Value
On Error GoTo 1
'Nom de dossier
NomDossier = « Bulletin » & Range(« C1 ») & " _ " & Range(« G1 »)
CheminDossier = « D:\Bulletin\BULLETIN 1 » & NomDossier & « »
If NomDossier = « » Then Exit Sub
'Enregistrement au format PDF
Sheets(« Bulletin »).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminDossier & « Bulletin » & NomDossier & « .pdf », quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, from:=1, to:=1, openafterpublish:=False
1
Next A
End With
End Sub
Sub Image3_Cliquer()
Dim Liste As String, A As Range
With Sheets(« Bulletin »)
Liste = .Range(« I1 »).Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each A In Range(Liste)
.[I1] = A.Value
'.PrintPreview
nom = « Bulletin » & Range(« C1 ») & " _ " & Range(« G1 »)
chemin = « D:\bulletin\BULLETIN 1 » & nom & « »
Sheets(« Bulletin »).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom & « .pdf », _
quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False
Next A
End With
End Sub
Quelqu’un pourrait-il m’aider?
Merci d’avance
Bonjour
pour moi il manque un "\" quelque part dans cette ligne :
Sheets(« Bulletin »).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminDossier & « Bulletin » & NomDossier & « .pdf »,
car chemin dossier = CheminDossier = « D:\Bulletin\BULLETIN 1 » & NomDossier & « »
sinon peut être aussi que le dossier dans lequel tu essai d'écrire n'existe pas...
le mieux est que tu créé un sujet pour ton problème et laissé celui ci...
Fred