Discussion :

[Avinetor]

Bonjour à tous

J'utilise cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    ActiveWorkbook.SaveAs Filename:="Name.xls"
    ActiveWorkbook.Close

Mais si le fichier existe déjà une boite s'affiche en demandant si on veut remplacer le fichier déjà existant.

Si on clique sur OUI, tout se passe bien
Mais si on clique sur NON, ça bug et la première ligne s'affiche surligné

Merci de m'aider

[Fvandermeulen]

Bonjour,
Que veux tu conrètement faire avec ce code?
Je veux dire: Veux tu toujours écraser le fichier existant ? Jamais, parfois?

Si c'est toujours, tu peux utiliser ceci qui correspond à appuyer sur la touche Entrée donc dire oui (A placer après la ligne du save as)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys String:="{Enter}", wait:=false

Sinon donne plus de détail sur la raison de ce bout de code.

A+

Edit: Maintenant que j'y repense pas certain que le sendkey fonctionne dans ce cas, je vérifie...ce que j'aurais du faire avant

[Avinetor]

Ben non en fait,
Je voudrais que si je clique sur OUI, il l'écrase
Si je clique sur non il ne l'écrase pas
et si je clique sur annuler, il le laisse ouvert sans l'enregistrer
Oui quelque chose du genre

[Fvandermeulen]

Je te propose ceci alors, passer par une boite de dialogue qui pose la question, à toi d'adapter les textes si ça te convient. Je n'ai laissé que les option Oui/Non, si oui, il écrase et ferme, sinon rien, tu peux toujours ajouter un message demandant de changer de nom (mais comme je sais pas d'où vient le nom du fichier...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TestSave()
 
Monchoix = MsgBox("Voulez vous écraser le fichier existant?", vbYesNo, "Sauvegarde")
    If Monchoix = vbYes Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="Name.xls"
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    End If
 
End Sub

A+

P.S. Pour répondre à mon Edit de la première réponse, le sendkey ne passe pas , il faut le DisplayAlerts

[Avinetor]

Merci pour la solution