Code VBA

Bonsoir,

Désolé de peut-être reposer une question déjà poser mais je trouve pas dans les sujets.

Alors voici ma question. J'enregistre une feuille en PDF dans un dossier mon problème c'est que je suis obligé de mettre mon classeur sur un disque dur spécifique et j'aurais aimer savoir si cela était possible de mettre n'importe quel disque dur? Voici le code pour que ce soit plus clair:

Sub EnregistrerFacture()

'Déclaration des variables

Dim NomDossier As String

Dim CheminDossier As String

On Error GoTo 1

'Nom de dossier

NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")

CheminDossier = "D:\1 Gestion Magasin\BASE DE DONNÉES\FACTURE\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

'Enregistrement au format PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

CheminDossier & "Facture_" & Range("I5").Value & ".pdf", quality:= _

xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _

from:=1, To:=1, openafterpublish:=True

1

End Sub

J'attends vos lumière mdrr

Bonjour,

si c'est pour le choix du disque,

voici un exemple pigé ici:

http://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=46

Sub Test2()
Dim Chemin$
    Chemin = SelectDossier
    If Chemin <> "" Then MsgBox "Vous avez sélectionné :" & vbCrLf & Chemin
End Sub

Function SelectDossier$(Optional Titre$ = "Sélectionnez dans l'arborescence :")
'myDearFriend! - www.mdf-xlpages.com
Dim Dossier As Object
Dim Chemin$
    'Arborescence "Poste de travail"
    Set Dossier = CreateObject("Shell.Application").BrowseForFolder(0, Titre, 513, _
           "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
    If Dossier Is Nothing Then Exit Function
    On Error Resume Next
    Chemin = Dossier.Items.Item.Path
    Chemin = Chemin & IIf(Right(Chemin, 1) <> "\", "\", "")
    On Error GoTo 0
    If Left(Chemin, 1) = ":" Then Chemin = "" 'Le "Poste de travail" n'est pas un répertoire valable
    SelectDossier = Chemin
End Function

Merci beaucoup de votre réponse.

Je vais essayer cela de suite.

Merci encore