Bonjour,
J'ai cette macro qui permets à l'utilisateur de sauvegarder une copie du fichier dans le répertoire de son choix.
J'aimerais qu'un chemin par défaut soit déjà tracé lorsque l'utilisateur arrive sur cette boite de dialogue (mais je ne sais pas comment rajouter cela dans la partie du code qui correspond à l'enregistrement -voir ci-dessous-).
Sub Reinitialisation_Fichier()
Dim Nbr As Variant
Dim AdresseCell As Variant
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, NomComplet As String
'On fait une sauvegarde du fichier avant réinitialisation
'.xlsm = 5
'.xls = 4
date_archive = Replace(Range("A5").Value, "/", "-")
wk = ActiveWorkbook.Name
LeNom = Left(wk, Len(wk) - 5) & " (" & date_archive & ")" & ".xlsm" 'A adapter
Set objShell = CreateObject("Shell.Application")
recommence:
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire pour sauvegarder votre archive.", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
If Chemin = "" Then
MsgBox "Le répertoire que vous avez choisi n'est pas valide."
GoTo recommence
End If
ActiveWorkbook.SaveCopyAs Chemin & "\" & LeNom 'à adapter
MsgBox "Une copie de votre classeur a bien été enregistrée dans le répertoire que vous avez choisi." & Chr(10) & Chr(10) & _
"Le fichier " & ActiveWorkbook.Name & " va maintenant être réinitialisé. Cette opération peut durer quelques minutes."
End Sub
Merci d'avance pour votre aide,
Bapt