[VBA-E DisplayAlerts = False

Version imprimable

Hello,

Problème dans mon code:

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
Private Sub ValiderLot_Click()
Dim wk As Workbook
    If ComboBox1 <> "" Then
        Dim Fichier As String
        Dim reponse As Boolean
        Fichier = Dir("C:\Documents and Settings\Chewi\Desktop\" & ComboBox1)
        If Fichier <> "" Then
            Assistant.On = False
            DisplayAlerts = False
            reponse = MsgBox("Ce fichier existe déjà, voulez-vous l'ouvrir?", vbYesNo)
            If reponse = vbNo Then
            Exit Sub
            End If
            reponse = vbYes
            Workbooks.Open "Fichier"
            'le fichier existe
        Else
            'le fichier n'existe pas
            Set wk = Workbooks.Add
            wk.SaveAs "C:\Documents and Settings\Chewi\Desktop\" & ComboBox1
            Unload Uf1
            Load Uf2
            Uf2.Show
        End If
    Else
            MsgBox "Vous n'avez pas entré de Lot"
    End If
    DisplayAlerts = True
End Sub

Voilà j'ai réussi à cacher l'office assistant mais excel me fait constament apparaître un message me disant que le fichier existe déjà et me demande si je veux l'écraser.

Or le but d'un des "If" de ce code est justement de palier à ce problème et d'ouvrir simplement le fichier plutôt que de l'écraser, le sauver,... dans le cas où le fichier existe déjà.

Quelqu'un pourrait-il me dire pourquoi je n'arrive pas à éviter ce message et que mon code ne s'exécute pas comme je le veux?

Merci à vous,

Chewi

19/01/2007, 10h33
SfJ5Rpw8
bon j'ai pas tout analysé... mais Dir ne te renvoi que le nom d'un fichier ... donc ensuite pour l'ouvrir il faut préciser le répertoire.....(si le fichier n'est pas dans le répertoire courant d'Excel...)
de plus fichier étant une variable ... ne la met pas entre " ... sinon cela revient à tenter d'ouvrir un fichier dont le nom et fichier ( le nom de ta variable) et pas le contenu de celle-ci...
Code:

1 2 Workbooks.Open "C:\Documents and Settings\Chewi\Desktop\" & Fichier
Que ce passe-t'il lorsque tu exécute ton code..?

PS: change aussi le nom de ta variable .. stFichier par exemple... cela nous permettra de faire des commentaires plus clair sur ton code ... (pas de confusion entre fichier et fichier)

Lorsque j'exécute ce code:

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
Private Sub ValiderLot_Click()
Dim wk As Workbook
    If ComboBox1 <> "" Then
        Dim stFichier As String
        Dim reponse As Boolean
        stFichier = Dir("C:\Documents and Settings\Chewi\Desktop\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2)
        If stFichier <> "" Then
            Assistant.On = False
            DisplayAlerts = False
            reponse = MsgBox("Ce fichier existe déjà, voulez-vous l'ouvrir?", vbYesNo)
            If reponse = vbNo Then
            Exit Sub
            End If
            reponse = vbYes
            Workbooks.Open "C:\Documents and Settings\Chewi\Desktop\" & stFichier
            'le fichier existe
        Else
            'le fichier n'existe pas
            Set wk = Workbooks.Add
            wk.SaveAs "C:\Documents and Settings\Chewi\Desktop\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2
            Unload Uf1
            Load Uf2
            Uf2.Show
        End If
    Else
            MsgBox "Vous n'avez pas entré de Lot"
    End If
    DisplayAlerts = True
End Sub

J'ai toujours le même message

Citation:

A file named "C:\..." already exists in this location. Do you want to replace it?

19/01/2007, 11h42
SfJ5Rpw8
Revoir ton instruction dir...? est tu sur de bien construire ta chaine :
Code:

1 2 msgbox "C:\Documents and Settings\Chewi\Desktop\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2
que trouve tu dans tes contrôles ...?

dans Combobox2 tu as bien l'extension du fichier ( .xls...) ?
si non :

Code:

stfichier = Dir("C:\Documents and Settings\Chewi\Desktop\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2 & ".xls")
19/01/2007, 12h07
Chewi

Oui, il m'enregistre bien le tout avec l'extension .xls , je crois qu'il le fait par défaut car non il n'y a pas .xls dans la ComboBox2.

Mais je ne sais pas si le problème vienne de cela car le fichier est créer sans souci, il est aussi repéré sans souci seul problème c'est le message excel que je voudrais ne plus voir et que le fichier soit ouvert automatiquement.

Pour info, j'ai ComboBox1, TextBox1, ComboBox2, un bouton de commande "valider" et un bouton de commande "annuler"
19/01/2007, 12h43
SfJ5Rpw8

ben le problème c'est que si tu ne met pas l'extension ... ton dir te renvoi toujours rien : "" ... d'où tu considére que le fichier n'existe pas et tu en crée un nouveau
19/01/2007, 13h25
Chewi

Ok, j'ai compris l'astuce!
En fait mon code ne repérait rien du tout donc, à ce moment Excel pouvait trouver mon fichier, lui!

Merci beaucoup;)

PS: donc, à la rigueur, DisplayAlerts ne m'est plus utile vu que le problème n'était pas là?
19/01/2007, 13h54
SfJ5Rpw8

Citation:

Envoyé par Chewi

...
PS: donc, à la rigueur, DisplayAlerts ne m'est plus utile vu que le problème n'était pas là?

oui