XL 2013 Création d'un script

[TANKOANO]

J'aimerais savoir ce qui n'a pas marché dans mon script. C'est un script qui export un fichier pdf dans un dossier spécifique.
Sub exportpdf()
Nomdossier = Application.InputBox("Dossier d'enregistrement", "enregistrement en pdf", "Suivi des opération")
dossier = ThisWorkbook.Path & "/" & Nomdossier & "/"

On Error Resume Next

fichierexistant = GetAttr(dossier) And vbDirectory
If fichierexistant = False Then
MkDir (dossier)
End If
ActiveSheet.exportasfixeformat Type:=xlsxTypePDF, _
Filename:=dossier & Sheets("SUIVI OPERATION") & ".pdf", _
quality:=xlsxQualityStandard, _
includdocproperties:=True, _
ignoreprintareas:=False, _
From:=1, To:=1, _
openafterpublish:=False

End Sub

 

[VIARD]

Bonjour Tankoano et bienvenue

Je pense que tu devrais écrire comme ceci.

ActiveSheet.exportasfixeformat Type:=xlTypePDF, _
Filename:=dossier & Sheets("SUIVI OPERATION") & ".pdf", _
quality:=xlQualityStandard, _
includdocproperties:=True, _
ignoreprintareas:=False, _
From:=1, To:=1, _
openafterpublish:=False

Salutation
Jean-Paul

 

[TANKOANO]

Merci Jean Paul.
J'ai testé ce script mais aucun résultat.
Aucune erreur n'est signalée mais le fichier de se créer non plus.

 

[Dranreb]

Bonsoir.
Que vaut l'expression Sheets("SUIVI OPERATION") ?
Ça me fait Propriété ou méthode non gérée par cet objet si je n'en précise pas une derrière un point derrière.
Et c'est sûrement ce que vous auriez aussi s'il n'y avait pas un On Error Resume Next devant !

 

[TANKOANO]

C'est la feuille(Nom de la feuille est SUIVI OPÉRATION) à convertir en pdf.

 

[Dranreb]

Sheets("SUIVI OPERATION") est un objet. On ne peut pas concaténer un objet dans une expression String. On peut éventuellement en concaténer une propriété.
Peut être auriez vous dû le spécifier tout devant à la place de ActiveSheet ?

 

[TANKOANO]

Et comment faire pour le spécifier à la place de ActiveSheet?

 

[Dranreb]

Je ne comprends pas votre question.
ExportAsFixedFormat est une méthode de l'objet Worksheet (et aussi de l'objet Workbook d'ailleurs).
Il peut donc s'appliquer à n'importe quelle expression Worksheet, et pas forcément ActiveSheet, qui n'est que le cas particulier où c'est la feuille active qu'on veut exporter. Si c'en est une autre, appliquez la à une expression Worksheet qui représente cette autre feuille.