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
15221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
-
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
15221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 292
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
15221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 292
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
15221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 292
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