Problème avec une sub open
Bonjour,
Je suis assez novice en programmation et je travaille actuellement sur un projet excel. Je rencontre un problème qui m'intrigue car les résultats sont "aléatoires". Je m'explique :
Je cherche simplement à faire en sorte qu'à l'ouverture d'un fichier "vierge" visant à être dupliqué, excel demande si l'on veut créer un nouveau fichier. Une fois le nouveau fichier enregistré sous un autre nom, la question ne sera plus posée.
Ce qui me surprend, c'est que parfois ça marche très bien, et parfois à l'ouverture du fichier "Vierge", aucune question n'est posée. Et ceci de manière très aléatoire. Ce qui fonctionne à chaque fois, c'est lorsque j'ouvre le fichier, je le referme en enregistrant, et je l'ouvre à nouveau. A cette nouvelle ouverture, la boite de dialogue apparaît. Mais pour les cas où ça ne marche pas, je sèche...
Voici le code utilisé :
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
30
31
|
Private Sub Workbook_Open()
Dim OuiNon As Integer
Dim Nom As String
Dim chemin As String
chemin = ThisWorkbook.Path
Nom = ThisWorkbook.Name
If Nom Like "Vierge *" Then
OuiNon = MsgBox("Voulez-vous ajouter un nouveau résident?", vbYesNo)
If OuiNon = vbNo Then
Exit Sub
Else
End If
Dim fichier As String
On Error Resume Next
ChDir chemin
fichier = Application.GetSaveAsFilename("", fileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
Else
End If
End Sub |
