Sub Sauvegarde()
Dim Rep As Integer
Rep = MsgBox("Voulez vous Sauvegarder les données ?", vbYesNo + vbQuestion, "Info")
If Rep = vbYes Then
' ici le traitement si réponse positive
Dim extension As String
Dim Lecteur As String, chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
' Trouver le leceur réseau
Lecteur = LecteursInstallés(3)
' Vérifier ce qui a été trouvé
If Len(Lecteur) = 0 Then
MsgBox "Aucun lecteur réseau trouvé", vbCritical, "OUPS ..."
Exit Sub
ElseIf Len(Lecteur) > 2 Then
Lecteur = InputBox("Lequel de ces lecteurs :" & Lecteur)
If Right(Lecteur, 1) <> ":" Then Lecteur = Lecteur & ":"
End If
extension = ".xls"
chemin = Lecteur & "Commande JC\"
nomfichier = Range("F1") & " " & Range("E2") & Range("F2") & " " & Range("F15") & extension
' Copier la feuille active dans un nouveau classeur
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
Else: Rep = vbNo
' ici le traitement si réponse négative
'Cancel = True
End If
End Sub
Function LecteursInstallés$(TypeLecteur%)
Dim S As String
'Types de lecteur dans FileSystemObject :
'Amovible = 1, Fixe = 2, Réseau = 3, CDROM = 4, RAMDisk = 5
Dim fso As Object, Lecteur As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Lecteur In fso.Drives
If Lecteur.DriveType = TypeLecteur Then
S = S & Lecteur.DriveLetter & ":" & vbLf
End If
Next
LecteursInstallés = S
End Function