Repertoire fichier courant
Résolu
Backri_050288
Messages postés
2
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
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
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
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Excel compter cellule couleur sans vba - Guide
- Pourquoi certains contacts disparaissent de mon répertoire - Accueil - Guide Android
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
3 réponses
Au fait je voudrais que l'exportation puisse etre assurée dans le repertoire ou le dossier est ouvert
merci
merci
Bonjour,
Je suppose comme ceci, vu que vous meme ne le savez pas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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
