[Résolu] Incohérence d'enregistrement macro VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
n
naru7410
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 14 janvier 2019
Version d'Excel : 2019

Message par naru7410 » 14 janvier 2019, 17:39

Bonjour, j'ai un fichier dans lequel se trouve une macro qui simplement enregistre en PDF. Jusque là rien de compliquer mais le soucis c'est qu'il n'enregistre pas le fichier créé dans le dossier "source" d'où on ouvre le fichier xls mais dans le dossier Document. J'ai pensé qu'avec un sélectionneur de dossier avant la macro d'enregistrement ça ira mais non il continue à m'enregistrer ça dans Document.

J'avoue que je sèche un peu sur la source du problème... .

Macro:
SpoilerAfficher
Sub PDF()
Dim fd As Office.FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

fd.Title = "Sélectionnez un dossier..."

If fd.Show() Then
MsgBox "Vous avez sélectionné le dossier : " _
& vbCrLf & fd.SelectedItems(1), vbInformation
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Check " & [I8].Value & " du " & Day(Now) & "-" & Month(Now) & "-" & Year(Now)
End If

Set fd = Nothing

End Sub
D'avance merci.
Modifié en dernier par naru7410 le 14 janvier 2019, 19:18, modifié 1 fois.
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 14 janvier 2019, 18:06

Bonjour,

Avec "ThisWorkbook.Path"' :
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Check " & [I8].Value & " du " & Day(Now) & "-" & Month(Now) & "-" & Year(Now)
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'456
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 14 janvier 2019, 18:48

Bonjour,

au vu du code je dirais ceci
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fd.selecteditems(1) & "\Check " & [I8].Value & " du " & Day(Now) & "-" & Month(Now) & "-" & Year(Now)
n
naru7410
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 14 janvier 2019
Version d'Excel : 2019

Message par naru7410 » 14 janvier 2019, 19:17

Woaw je viens de voir la réponse, ne codant pas tout les jours j'avoue que je n'avais pas la pensée logique d' aller rechercher la valeur de la variable pour désigner le path ....

Merci du coup de main ;-)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message