Sauvegarde dans un dossier précis

AzoR · 20 Mai 2015

Bonjour,
J'ai un petit programme qui me permet de sauvegarder une feuille excel.
Le problème est que la sauvegarde se fait automatiquement dans "Mes documents" alors que je voudrais que ceci se sauvegarde dans un autre dossier.
Voici le programme de base:

Option Explicit

Private Sub CommandButton1_Click()
Dim nom As String
Dim rep As String
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "h" & Minute(Time) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub

Je ne sais pas si on peut diriger la sauvegarde dans un dossier précis
Merci

Pierrot93 · 20 Mai 2015

Re : Sauvegarde dans un dossier précis

Bonjour,

peut être comme ceci, enfin si j'ai bien compris... pas sur...

Code:

ActiveWorkbook.SaveCopyAs "C:\Temp\Excel\" & nom

bon après midi
@+

AzoR · 21 Mai 2015

Re : Sauvegarde dans un dossier précis

Merci beaucoup ça marche nickel !!!!

Sauvegarde dans un dossier précis

AzoR

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

Discussions similaires

Sauvegarde dans un dossier précis

AzoR

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency