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 : Sélectionner tout - Visualiser dans une fenêtre à part
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