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

Fermé

Che01 Messages postés 12 Date d'inscription mardi 12 janvier 2021 Statut Membre Dernière intervention 19 janvier 2021 - 19 janv. 2021 à 10:20
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 19 janv. 2021 à 11:00

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:

Fermeture et enregistrement d'un fichier Excel a partir d'un bouton
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Liste déroulante excel - Guide
Fichier host - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 19 janv. 2021 à 11:31

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à

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters