Pour ouvrir ou fermer un fichier.
Bonjour,
Ci-joint deux macros pour ouvrir ou fermer un fichier.
Pour ouvrir en vérifiant que le fichier n'est pas déjà ouvert :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub TestOuvertureFichiers()
Call OuvertureFichiers("03_Prix d'achat moyen par macro.xlsm", "CheminDuFichier")
End Sub
Sub OuvertureFichiers(NomFichier, RepertoireFichier)
Dim Wb As Workbook
Dim WbDejaOuvert As Workbook
Continuer = True
For Each Wb In Workbooks
Select Case Wb.Name
Case NomFichier
Set WbDejaOuvert = ActiveWorkbook
Continuer = False
Exit For
End Select
Next Wb
If Continuer = True Then
Workbooks.Open Filename:=RepertoireFichier & "\" & NomFichier
Else
WbDejaOuvert.Activate
End If
Set WbDejaOuvert = Nothing
End Sub |
Pour fermer avec ou sans sauvegarde :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub TesterFermetureFichiers()
Call FermetureFichiers("03_Prix d'achat moyen par macro.xlsm", "Non")
' Non si sans sauvegarde, Oui autrement
End Sub
Sub FermetureFichiers(NomFichier, AvecSauvegarde)
Application.DisplayAlerts = False
On Error Resume Next
If AvecSauvegarde = "Non" Then
Workbooks(NomFichier).Close savechanges:=False
End If
If AvecSauvegarde = "Oui" Then
Workbooks(NomFichier).Close savechanges:=True
End If
Application.DisplayAlerts = True
End Sub |
