Bonjour,
Je tente de créer une macro permettant d'enregistrer une feuille d'un fichier dans un dossier en particulier. La macro ci-dessous.
Le fichier s'enregistre bien avec le nom indiqué dans la cellule K17, le problème est que le fichier ne s'enregistre pas dans le dossier "C:\Users\mkabiti\Desktop\Devis" mais sur le bureau de l'ordinateur.
Sub Enregistrement_PDF()
Dim fichier As String
Dim dossier As String
Dim chemin As String
With Worksheets("DEVIS")
fichier = .Range("K17") & ".pdf" doit être le nom du fichier pdf enregistré qui est indiqué dans la cellule
dossier = "C:\Users\mkabiti\Desktop\Devis" dossier dans lequel le fichier doit être enregistré
chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
Auriez-vous une solution ? Ai-je oublié un code ?
Merci
Je tente de créer une macro permettant d'enregistrer une feuille d'un fichier dans un dossier en particulier. La macro ci-dessous.
Le fichier s'enregistre bien avec le nom indiqué dans la cellule K17, le problème est que le fichier ne s'enregistre pas dans le dossier "C:\Users\mkabiti\Desktop\Devis" mais sur le bureau de l'ordinateur.
Sub Enregistrement_PDF()
Dim fichier As String
Dim dossier As String
Dim chemin As String
With Worksheets("DEVIS")
fichier = .Range("K17") & ".pdf" doit être le nom du fichier pdf enregistré qui est indiqué dans la cellule
dossier = "C:\Users\mkabiti\Desktop\Devis" dossier dans lequel le fichier doit être enregistré
chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
Auriez-vous une solution ? Ai-je oublié un code ?
Merci