A voir également:
- Vba fermer un fichier
- Fermer un fichier excel vba - Meilleures réponses
- Fermer fichier excel vba - Meilleures réponses
- VBA fermer un fichier Excel ✓ - Forum - VB / VBA
- Fermeture de Fichier Excel (VBA) - Forum - Excel
- Fermer des fichiers excel ouvert à partir d'une macro VBA - Forum - Excel
- Excel 2007 - fermer un fichier sans sauver ✓ - Forum - Programmation
- Code vba msgbox pour fermer un classeur et enregistrer ✓ - Forum - Excel
3 réponses
f894009
- Messages postés
- 15721
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 3 avril 2021
Bonjour,
Fermeture Classeur:
Bonne suite
Fermeture Classeur:
Workbooks(Nom_Classeur).Close False 'sans sauvegarde (True si sauvegarde)
Bonne suite
Signaler
JP
ça ne marche pas ça me mes code erreur '9'
f894009
- Messages postés
- 15721
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 3 avril 2021
Re,
votre code modifie
Bonne suite
votre code modifie
Sub MAJ() Dim NomSource, i As Integer Dim Wb As Workbook If MsgBox("Voulez vous aller chercher le fichier EXTRACTION.xls ? ", vbYesNo) = vbYes Then For i = 1 To Sheets.Count 'supprime la feuille Summary si existe If Sheets(i).Name = "Summary" Then Sheets(i).Delete: Exit For Next i ' il faut aller chercher le fichier Excel"EXTRACTION" donc on utilise Application.GetOpenFilename NomSource = Application.GetOpenFilename ' ouvre le fichier source Set Wb = Workbooks.Open(NomSource) ' copy la feuille Summary du fichier source aorès la feuille 6 du notre fichier Excel Wb.Sheets("Summary").Copy after:=ThisWorkbook.Sheets(6) 'fermeture classeur EXTRACTION.xls Wb.Close Else MsgBox (" Aurevoir et à bientôt ") End If End Sub
Bonne suite