Discussion :

[Fred.dz]

Bonjour à tous.

J'ai un programme qui me permet de lancer la fenêtre "enregistrer sous" avec un nom de fichier qui reprend des données entrées dans des cases de ma feuille Excel. Ce programme ce lance via un bouton sur la feuille Excel.

Voilà ce que j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Enregistrer()
Dim objSaveBox As FileDialog
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
        .InitialFileName = Right(Cells(7, 2).Text, Len(Cells(7, 2)) - 14) & " " & Right(Cells(3, 2), 10) & ".xls"
        .Show
        .Execute
End With
End Sub

Ce que je voudrais faire maintenant c'est determiner le dossier par défaut (celui dans lequel je vais me trouver directement au lancement de ce petit programme). Et plus précissement je voudrais que ce dossier par défaut soit le dossier dans lequel se trouve le document Excel que je suis en train de lire.

Merci d'avance.

[Jean-Pierre49]

Bonjour

as-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Path

tu dis

Bon courage

[Fred.dz]

Non, mais apparemment ça ne marche pas.

En fait si déjà j'arrivais à savoir comment dire dans quel fichier il doit se mettre ça m'aiderais bien. Parce que je pourrai à la limite rentrer le chemin en dur même si ce serait moins "beau".

[kiki29]

Salut,F1 sur ThisWorkbook.Path

Donc soit un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChDir ThisWorkbook.Path

avant d'ouvrir la boite de dialogue ou son insertion dans le chemin de sauvegarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.InitialFileName = ThisWorkbook.Path & "\" & "Test.xls"

[Fred.dz]

Parfait ça marche ! Merci Kiki !