en employant
ThisWorkbook.SaveCopyAs FileName:=xxx
s'il y a déjà un classeur nommé xxx,
il se fait écraser sans qu'une alerte "il existe déjà ...."
n'apparaisse, comme avec SaveAs.
Comment faire pour éviter des écrasements intempestifs de fichiers?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Bourby,
Avant d'utiliser cette ligne de code ThisWorkbook.SaveCopyAs FileName:=xxx
Vérifie si le fichier dans ledit répertoire existe déjà :
'------------------------------- Sub Test()
Dim Fichier As String Fichier = ThisWorkbook.FullName
'Si le fichier n'existe pas If Dir(Fichier) = "" Then ThisWorkbook.SaveCopyAs Filename:=xxx Else If MsgBox("Ce fichier existe déjà. Désirez-vous l'écraser ?" _ , vbCritical + vbYesNo, "Attention") = vbYes Then 'Si tu réponds oui, fichier écrasé ThisWorkbook.SaveCopyAs Filename:=xxx End If End If End Sub '-------------------------------
Salutations!
"bourby" a écrit dans le message de news: OI2$ bonjour,
en employant ThisWorkbook.SaveCopyAs FileName:=xxx s'il y a déjà un classeur nommé xxx, il se fait écraser sans qu'une alerte "il existe déjà ...." n'apparaisse, comme avec SaveAs.
Comment faire pour éviter des écrasements intempestifs de fichiers?
D'avance merci.
Bourby
Bonjour Bourby,
Avant d'utiliser cette ligne de code
ThisWorkbook.SaveCopyAs FileName:=xxx
Vérifie si le fichier dans ledit répertoire existe déjà :
'-------------------------------
Sub Test()
Dim Fichier As String
Fichier = ThisWorkbook.FullName
'Si le fichier n'existe pas
If Dir(Fichier) = "" Then
ThisWorkbook.SaveCopyAs Filename:=xxx
Else
If MsgBox("Ce fichier existe déjà. Désirez-vous l'écraser ?" _
, vbCritical + vbYesNo, "Attention") = vbYes Then
'Si tu réponds oui, fichier écrasé
ThisWorkbook.SaveCopyAs Filename:=xxx
End If
End If
End Sub
'-------------------------------
Salutations!
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de news: OI2$w0GTGHA.4864@TK2MSFTNGP12.phx.gbl...
bonjour,
en employant
ThisWorkbook.SaveCopyAs FileName:=xxx
s'il y a déjà un classeur nommé xxx,
il se fait écraser sans qu'une alerte "il existe déjà ...."
n'apparaisse, comme avec SaveAs.
Comment faire pour éviter des écrasements intempestifs de fichiers?
Avant d'utiliser cette ligne de code ThisWorkbook.SaveCopyAs FileName:=xxx
Vérifie si le fichier dans ledit répertoire existe déjà :
'------------------------------- Sub Test()
Dim Fichier As String Fichier = ThisWorkbook.FullName
'Si le fichier n'existe pas If Dir(Fichier) = "" Then ThisWorkbook.SaveCopyAs Filename:=xxx Else If MsgBox("Ce fichier existe déjà. Désirez-vous l'écraser ?" _ , vbCritical + vbYesNo, "Attention") = vbYes Then 'Si tu réponds oui, fichier écrasé ThisWorkbook.SaveCopyAs Filename:=xxx End If End If End Sub '-------------------------------
Salutations!
"bourby" a écrit dans le message de news: OI2$ bonjour,
en employant ThisWorkbook.SaveCopyAs FileName:=xxx s'il y a déjà un classeur nommé xxx, il se fait écraser sans qu'une alerte "il existe déjà ...." n'apparaisse, comme avec SaveAs.
Comment faire pour éviter des écrasements intempestifs de fichiers?