Enregistrer classeur vba

M

matthieu2701

XLDnaute Occasionnel
Bonjour,

Je souhaite enregistrer mon classeur dans un chemin définit. Il s'enregistre sous le nom que j'ai définis c'est a dire NOM Prénom PCE GAZ-Perd.

Cela fonctionne.

Par contre, lorsque je souhaite le réouvrir pour le modifier puis le ré-enregistrer j'ai un message d'errer qui est : "impossible d'accéder à NOM Prénom PCE Gaz-Perd.xlsm"

Je vous joint mon code. Pouvez m'aider à résoudre ce soucis ? Je souhaiterais qu'il indique que le fichier existe déjà et qui demande si je souhaite le remplacer ou pas.

Sub Enregistrer_Classeur()

With Sheets("Echéancier")
Nom = .Range("B2")
PCE = .Range("G6")
End With

If Nom = "" Or PCE = "" Then
MsgBox "Pour enregistrer le classeur d'un client, veuillez remplir les champs Nom Prénom et PCE et créer le dossier client.", vbInformation, "Information"
Exit Sub
End If

If Dir("Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE, vbDirectory) = "" Then
MsgBox "Le dossier numérique de " & Nom & " " & PCE & " n'a pas été créé. Veuillez le créer puis recommencer.", vbCritical, "Attention"
Exit Sub
End If

If Dir("Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE & "\" & Nom & " " & "Gaz-Perd", vbDirectory) <> "" Then
MsgBox "Le classeur de " & Nom & " a déjà été créé.", vbCritical, "Attention"
Exit Sub
End If

ChDir "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE
ActiveWorkbook.SaveAs Filename:= _
"Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE & "\" & Nom & " " & "Gaz-Perd", FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Cliquez pour agrandir...

Merci par avance
 
Trier par date Trier par votes
H

Herdet

Nous a quitté
Repose en paix
Re : Enregistrer classeur vba

Bonjour matthieu2701,

Voici une solution avec création du répertoire manquant puis demande de confirmation d'écrasement.
Cordialement
Robert

Code: 
Sub MOD_Enregistrer_Classeur()
   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 = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE
   Fichier = Nom & " " & "Gaz-Perd"
   
   ' création du dossier s'il n'existe pas
   If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
   ChDir Dossier
   
   If Dir(Dossier & "\" & "Gaz-Perd") <> "" 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
 
Vote positif 0 Vote négatif
H

Herdet

Nous a quitté
Repose en paix
Re : Enregistrer classeur vba

matthieu2701 à dit:
Merci pour votre réponse.

Je viens de tester et j'ai un message d'erreur : Fonction ou variable attendue
Cliquez pour agrandir...
L'erreur peut provenir de la déclaration de "Reponse" lorsqu'on utilise Option explicit
Si nécessaire ajouter en tête de la sub : Dim Reponse as variant

Ligne à corriger car il y a des double \ :
Dossier = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & Nom & " " & PCE

au lieu de
Dossier = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & "\" & Nom & " " & PCE

Sinon sur quelle ligne (en jaune dans le code exécuté) ?

Mon test fonctionne bien après ces corrections.
A+
Robert
 
Vote positif 0 Vote négatif
J

Jack2

XLDnaute Occasionnel
Re : Enregistrer classeur vba

Bonjour,

Est-ce que le problème ne viendrait pas du fait que lors de la sauvegarde le fichier est sauvé avec une extension xlsx alors que lors de la réouverture, l'extension est est ajoutée au nom du fichier est xls ?

A+
 
Dernière édition:
Vote positif 0 Vote négatif
H

Herdet

Nous a quitté
Repose en paix
Re : Enregistrer classeur vba

Bon, je pense que le pb vient de ce que le fichier est enregistré sous en .xlsm mais l'enregistrer-sous suivant est fait par défaut en .xlsx.
Il faut donc forcer le .xlsm
Le code ci-dessous fonctionne pour Excel 2007 et suivants mais quid pour Excel 2003 (?)
A+
Robert

Version corrigée :
Code: 
Sub MOD_Enregistrer_Classeur()
   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 = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\" & Nom & " " & PCE

   Fichier = Nom & " " & "Gaz-Perd"
   
   ' création du dossier s'il n'existe pas
   If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
   ChDir Dossier

   If Dir(Dossier & "\" & Fichier & ".xlsm", 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& ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub
 
Vote positif 0 Vote négatif
J

Jack2

XLDnaute Occasionnel
Re : Enregistrer classeur vba

Je veux dire que le fichier est sauvé comme fichier.xlsm et il est rappelé sans extension dans les test Dir (c'est une suggestion, excuses pour les erreurs de frappe)
 
Dernière édition:
Vote positif 0 Vote négatif
J

Jack2

XLDnaute Occasionnel
Re : Enregistrer classeur vba

Herdet c'est mieux exprimé que moi pour le problème d'extension.

Pour éviter une erreur 1004 sous 2007, mettre la derrière ligne sans le chemin
Code: 
ThisWorkbook.SaveAs Filename:=Fichier & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
de toute façon, il y a eut un Chdir

A+
 
Dernière édition:
Vote positif 0 Vote négatif
J

Jack2

XLDnaute Occasionnel
Re : Enregistrer classeur vba

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+
 
Vote positif 0 Vote négatif

Discussions similaires

Cédric06400
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
152
Cédric06400
Cédric06400
F
  • Question
Microsoft 365 Récupérer l'userform parent d'un controle
2
Réponses
27
Affichages
556
Dranreb
Dranreb
S
  • Question
Microsoft 365 Enregistrer les images dans un dossier
Réponses
2
Affichages
233
Simon 1234
S
D
  • Question
XL pour MAC Match liste des valeurs identique
Réponses
4
Affichages
262
Dudy
D
patricktoulon
  • Résolu(e)
XL 2013 comment déterminer si un string correspond à l’adresse d'une cellule ou d'une plage
Réponses
4
Affichages
322
dysorthographie
dysorthographie
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
420
sylvanu
sylvanu
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
424
job75
job75
A
  • Résolu(e)
Microsoft 365 VBA pour ouvrir chemin répertoire spécifique
Réponses
3
Affichages
357
Anto35200
A
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
400
arnoldbrice19
A
F
  • Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F

Membres actuellement en ligne

Aucun membre en ligne actuellement.
1 membres et 66 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA