VBA Enregistrer sous

[Matt51100]

Bonjour le forum,

une petite question.

Comment, avec une macro, lancer un enregistrement sous, avec un chemin spécifié (Ex : C:\Dossier1\Dossier2) de manière à ce que la macro arrête de s'exécuter lors que l'on arrive dans le Dossier2 pour pouvoir choisir ensuite un des dossier contenus dans Dossier2. C'est à dire que la fenêtre d'enregistrer sous se soit ouverte sur tout le chemin spécifié et que l'on puisse ensuite terminer ce chemin manuellement.

Merci d'avance.

A+, Matt.

 

[coco_lapin]

Re : VBA Enregistrer sous

Bonjour Matt51100 et le forum,
Voici le code qui permet d'ouvrir la boite de dialogue enregistrer sous (si j'ai bien compris ce que tu veux)

Sub w1()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[Matt51100]

Re : VBA Enregistrer sous

Bonjour coco,

Effectivement j'ai vu ce code mais la fenêtre qui s'ouvre, s'ouvre sur le dernier chemin pour lequel enregistrer sous a été utiliser. j'aimerais en plus mettre un chemin d'enregistrement spécifique.

A+, matt.

 

[Pierrot93]

Re : VBA Enregistrer sous

Bonjour Matt, coco

une autre solution ainsi :

Application.GetSaveAsFilename ("C:\MesDocs\Excel\Test")

bonne journée
@+

 

[GuillaumA]

Re : VBA Enregistrer sous

Bonjour,

Sub Enregistrer1() 
Dim chemin As String, AdrEnregistr As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop") 'ici tu place ton endroit exact
AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:= chemin & "\" & NOMFICHIER, Filefilter:="Fichier Excel (*.xls), *.xls")
If AdrEnregistr <> "Non" Then ActiveWorkbook.SaveAs AdrEnregistr
End Sub

 

[Matt51100]

Re : VBA Enregistrer sous

Bonjour Pierrot,

la fenêtre s'ouvre bien sur le chemin spécifié mais lorsque j'enregistre mon classeur je ne le retrouve pas ensuite. A-t-il été réellement enregistré ?

Edit : bonjour GuillaumA, ton code produit une erreur 1004

A+, Matt.

 

[GuillaumA]

Re : VBA Enregistrer sous

Si tu ne veux pas définir de nom spécifique pour ton fichier, mais juste le chemin,

Remplace:

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:= chemin & "\" & NOMFICHIER, Filefilter:="Fichier Excel (*.xls), *.xls")

Par:

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:= chemin, Filefilter:="Fichier Excel (*.xls), *.xls")

Et pour cibler un dossier spécifique:
Remplace:

.specialFolders("Desktop")

Par:

.GetFolder(specdossier)

 

[Matt51100]

Re : VBA Enregistrer sous

Merci GuillaumA,

Edit : car j'avais pas vu tout ton message.

Je dois remplacer specialfolders ici :chemin = CreateObject("WScript.Shell").specialfolders("C:\...) par getfolder ? Car get folder n'ai pas reconnu par le VBA.

A+, Matt.

 

[Pierrot93]

Re : VBA Enregistrer sous

Re,

pour enregistrer le fichier :

Dim f As String
f = Application.GetSaveAsFilename("C:\MesDocs\Excel\Test")
ActiveWorkbook.SaveAs f

bon après midi
@+

 

[Matt51100]

Re : VBA Enregistrer sous

Re tous,

merci Pierrot c'est exactement ce que je voulais.

A+, matt.

 

[coco_lapin]

Re : VBA Enregistrer sous

Au fait Matt51100, 51200 c'est ton code postal?
Si c'est le cas le mien était 51200 (Epernay ma ville de naissance).
Et comme d'habitude avec Pierrot93 j'ai encore appris quelque chose aujourd'hui.

Bon Week End.