Repertoire fichier courant

[Résolu/Fermé]
Signaler
Messages postés
2
Date d'inscription
mardi 9 avril 2019
Statut
Membre
Dernière intervention
9 avril 2019
-
Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
-
Bonjour chers experts. Je voulais sauvegarder ma feuille dans un repertoire courant.
quelqu'un peut m'aider?
Voici mon code

Sub ALC()
'
' ALC Macro
Application.ScreenUpdating = False
Sheets("1._All_Location").Select
Sheets("1._All_Location").Name = "1._All_Location"
ChDir "D:\Statistiques\Statistique_Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Statistiques\Statistique_Pdf\1._All_Location_20190330_20190404.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("L8").Select
MsgBox "L'exportation est terminée!Rendez-vous dans D:\Statistiques\Statistique_Pdf", vbOKOnly + vbInformation, "Information"
Application.ScreenUpdating = True
End Sub

3 réponses

Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
1 534
Bonjour,

un repertoire courant.
Pouvez developper!!!
Messages postés
2
Date d'inscription
mardi 9 avril 2019
Statut
Membre
Dernière intervention
9 avril 2019

Au fait je voudrais que l'exportation puisse etre assurée dans le repertoire ou le dossier est ouvert

merci
Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
1 534
Re,
De ce que je comprends:
pour le ficher actif:
Chemin=ThisWorkbook.Path
Oui mais comment l'integrer dans mon code que j'ai joint là?
Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
1 534
Bonjour,
Je suppose comme ceci, vu que vous meme ne le savez pas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub ALC()
    ' ALC Macro
    Application.ScreenUpdating = False
    Chemin = ThisWorkbook.Path
    Sheets("1._All_Location").Select            '?????????????????????????
    Sheets("1._All_Location").Name = "1._All_Location"      '??????????????????????????
    'ChDir "D:\Statistiques\Statistique_Pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & "\1._All_Location_20190330_20190404.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Range("L8").Select
    MsgBox "L'exportation est termin?e!Rendez-vous dans D:\Statistiques\Statistique_Pdf", vbOKOnly + vbInformation, "Information"
    Application.ScreenUpdating = True
End Sub