Fermeture et enregistrement d'un fichier Excel a partir d'un bouton

Che01 Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'aimerais que dès que le bouton "common_button3" sois déclencher le fichier s'enregistre et se ferme automatiquement mais les commandes vba que j'ai ajoutez ne fonctionne pas: 

Private Sub 
CommandButton3_Click()
Dim rep As Integer, Dl As Long
With Sheets(Range("A6").Value)
   Dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
   rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
   If rep = vbYes Then
       .Range("C" & Dl).Value = Range("D5").Value 'nom chantier
       .Range("E" & Dl).Value = Range("D11").Value 'depart
       .Range("A" & Dl).Value = Range("D8").Value & "/" & Range("E8").Value & "/" & Range("F8").Value 'date
       .Range("G" & Dl).Value = Range("D15").Value 'depart
       .Range("F" & Dl).Value = Range("E11").Value 'atelier
       .Range("H" & Dl).Value = Range("E15").Value 'chantier
   
   Dim fichier As Workbook
   Dim C:\Users\René LAURENT\Documents\Projet charles As String
   
   'ouvir un fichier
   C:\Users\René LAURENT\Documents\Projet charles
   
   Set fichier = Application.Workbooks.Open(C:\Users\René LAURENT\Documents\Projet charles)
   
   'fermer le fichier
   fichie.Close (True)
   'ou
   fichier.Close (False)
   
   
   
   End If
End With
End Sub


j'aimerais en connaitre la cause.



Configuration: Windows / Edge 87.0.664.75
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci pour ouvrir et fermer un classeur:

https://www.mediaforma.com/vba-excel-traitement-classeurs/

Tu as plein d'erreurs dans ta macro! 


Dim fichier As Workbook
   Dim C:\Users\René LAURENT\Documents\Projet charles As String 'c'est une variable qu'il faut mettre
   
   'ouvir un fichier
   C:\Users\René LAURENT\Documents\Projet charles'ne sert à rien
   
   Set fichier = Application.Workbooks.Open(C:\Users\René LAURENT\Documents\Projet charles)'chemin entre double cotes " " et se terminant par l'extension du classeur
   
   'fermer le fichier
   fichie.Close (True)' oubli du r et (True) à supprimer
   'ou
   fichier.Close (False)'ne sert à rien


Si c'est le classeur ouvert que tu veux fermer en enregistrant les modifications, il suffit de mettre cela que tu trouves dans le lien fourni plus haut: 

ActiveWorkbook.Close SaveChanges:=True


Voilà

0