Repertoire fichier courant

Résolu/Fermé

Backri_050288 Messages postés 2 Date d'inscription mardi 9 avril 2019 Statut Membre Dernière intervention 9 avril 2019 - 9 avril 2019 à 08:45
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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

A voir également:

Vba répertoire courant
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Répertoire téléphonique gratuit - Télécharger - Bureautique
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 avril 2019 à 08:56

Bonjour,

un repertoire courant.
Pouvez developper!!!

Réponse 2 / 3

Backri_050288 Messages postés 2 Date d'inscription mardi 9 avril 2019 Statut Membre Dernière intervention 9 avril 2019
9 avril 2019 à 11:10

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

merci

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 avril 2019 à 11:35

Re,
De ce que je comprends:
pour le ficher actif:

Chemin=ThisWorkbook.Path

Réponse 3 / 3

Backri_19
13 avril 2019 à 12:53

Oui mais comment l'integrer dans mon code que j'ai joint là?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 avril 2019 à 15:43

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

Discussions similaires

Nom trop long pour le dossier de destination

nom de fichier sans faire apparaitre le chemin complet

Windows ne parvient pas à accéder au périphérique

Où trouver le dossier des favoris de Chrome ?

Accès au gestionnaire de fichier impossible

Problème migration windows 7 à windows 10

Discussions similaires

Newsletters