Enregistrer classeur vba

Jack2 à dit:

Bonjour matthieu2701, Bonjour le Forum,

Je veux bien essayer de t'aider (je suis débutant). Tu as ci-après le code de Herdet qui fonctionne également chez moi. Est-ce que tu peux le recopier, y compris Option Explicit, et dire à quel endroit ça plante (avec F8 par exemple) :

Code:

Option Explicit

Sub MOD_Enregistrer_Classeur()
Dim Nom As String, PCE As String
Dim Ext As String, Dossier As String, Fichier As String
Dim Reponse As Integer

    Ext = ".xls" ' extension à adapter selon la version d'Excel
    
    ThisWorkbook.Activate
    With Sheets("Echéancier")
      Nom = .Range("B2")
      PCE = .Range("G6")
      If Nom = "" Or PCE = "" Then
         .Range("B2").Select
         MsgBox "Pour enregistrer le classeur d'un client, veuillez remplir les champs Nom Prénom et PCE.", vbInformation, "Information"
         End
      End If
   End With
   
   Dossier = "D:\Excel\Aides\" & Nom & " " & PCE
   Fichier = Nom & " " & "Gaz-Perd" & Ext
   
   ' création du dossier s'il n'existe pas
   If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
   ChDir Dossier

   If Dir(Dossier & "\" & Fichier, vbNormal) <> "" Then
      Reponse = MsgBox("Le classeur de " & Nom & " existe déjà." & vbLf & vbLf & _
                       "Confirmez-vous son remplacement ?", vbYesNo, "Attention")
      If Reponse = vbNo Then End
   End If
   
   ' sauvegarde du fichier
   ThisWorkbook.SaveAs Filename:=Dossier & "\" & Fichier ', FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

La principale différence avec ton code, c'est de mettre une extension à ton fichier qui soit toujours la même.

Bonne chance et
A+

Cliquez pour agrandir...