Chemin de sauvegarde par défaut

Bonjour tout le monde,

j'ai un petit code vba qui permet d'enregistrer un classeur généré avec un nom du fichier par défaut (valeur de cellule (2, 7)) dans une boite de dialogue de sauvegarde.

Ce que j'arrive pas à le résoudre c'est définir le chemin suivant "C:\Intel\Logs" comme un chemin par défaut.

voici le code:

Sub bt_dialog_save_G()

Dim varResult As Variant

Cheminpardefaut = "C:\Intel\Logs\"

Nompardefaut = Workbooks("class1").Sheets("Feuil6").Cells(2, 7).Value

'displays the save file dialog

varResult = Application.GetSaveAsFilename(FileFilter:= _

Cheminpardefaut & "Excel Files (*.xls), *.xls", Title:="Enregistrer sous", _

InitialFileName:=Nompardefaut)

Application.DisplayAlerts = False

'checks to make sure the user hasn't canceled the dialog

If varResult <> False Then

ActiveWorkbook.SaveAs Filename:=varResult, _

FileFormat:=xlWorkbookNormal

Exit Sub

End If

End Sub

cdt

Bonjour,

Un essai ...

 varResult = Application.GetSaveAsFilename(FileFilter:= _
                     "Excel Files (*.xls), *.xls", Title:="Enregistrer sous", _
                              InitialFileName:=cheminpardefaut & Nompardefaut)

ric

Bonjour,

à tester,

Cheminpardefaut = "C:\Intel\Logs\"
ChDir Cheminpardefaut

bonjour i20100,

je tiens à vous remercier pour votre retour.

j'ai déja essayé avec mais ça marche pas

cdt

en fait le dossier se trouve sur un réseau et non pas sur un local.

ça diffère n'est ce pas?

re,

pour connaitre la syntaxe

avec l'enregistreur de macro, ouvre un fichier de cette emplacement

i20100,

c'est bon g trouvé la commande.

 ChDrive Cheminpardefaut
 ChDir Cheminpardefaut

Merci pour vous 50% de la réponse.

c super gentil

cdt