VBA Enregistrer sous

coco_lapin

XLDnaute Impliqué

• 14 Janvier 2011

• #2

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

 

Vote positif 0 Vote négatif

M

Matt51100

XLDnaute Occasionnel

• 14 Janvier 2011

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Janvier 2011

• #4

Re : VBA Enregistrer sous

Bonjour Matt, coco

une autre solution ainsi :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 14 Janvier 2011

• #5

Re : VBA Enregistrer sous

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

M

Matt51100

XLDnaute Occasionnel

• 14 Janvier 2011

• #6

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.

 

Dernière édition: 14 Janvier 2011

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 14 Janvier 2011

• #7

Re : VBA Enregistrer sous

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

Remplace:

Code:

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

Par:

Code:

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

Et pour cibler un dossier spécifique:
Remplace:

Code:

.specialFolders("Desktop")

Par:

Code:

.GetFolder(specdossier)

 

Dernière édition: 14 Janvier 2011

Vote positif 0 Vote négatif

M

Matt51100

XLDnaute Occasionnel

• 14 Janvier 2011

• #8

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.

 

Dernière édition: 14 Janvier 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Janvier 2011

• #9

Re : VBA Enregistrer sous

Re,

pour enregistrer le fichier :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

M

Matt51100

XLDnaute Occasionnel

• 14 Janvier 2011

• #10

Re : VBA Enregistrer sous

Re tous,

merci Pierrot c'est exactement ce que je voulais.

A+, matt.

 

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 14 Janvier 2011

• #11

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.

 

Vote positif 0 Vote négatif