Menu

Repertoire fichier courant [Résolu]

Messages postés
2
Date d'inscription
mardi 9 avril 2019
Statut
Membre
Dernière intervention
9 avril 2019
- - Dernière réponse : f894009
Messages postés
14229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 avril 2019
- 13 avril 2019 à 15:43
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
Afficher la suite 

Votre réponse

3 réponses

Messages postés
14229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 avril 2019
1328
0
Merci
Bonjour,

un repertoire courant.
Pouvez developper!!!
Commenter la réponse de f894009
Messages postés
2
Date d'inscription
mardi 9 avril 2019
Statut
Membre
Dernière intervention
9 avril 2019
0
Merci
Au fait je voudrais que l'exportation puisse etre assurée dans le repertoire ou le dossier est ouvert

merci
f894009
Messages postés
14229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 avril 2019
1328 -
Re,
De ce que je comprends:
pour le ficher actif:
Chemin=ThisWorkbook.Path
Commenter la réponse de Backri_050288
0
Merci
Oui mais comment l'integrer dans mon code que j'ai joint là?
f894009
Messages postés
14229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 avril 2019
1328 -
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

Commenter la réponse de Backri_19