Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Déplacer Fichier

Déplacer Fichier

4 réponses
Avatar
Emcy
Salut,

Comment faire pour déplacer un fichier et demander si on veut écraser si un
Fichier du même nom est déja existant.
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Daniel.j
http://dj.joss.free.fr/move.htm

Daniel

"Emcy" a écrit dans le message de news:

| Salut,
|
| Comment faire pour déplacer un fichier et demander si on veut écraser si un
| Fichier du même nom est déja existant.
|
|
Avatar
Emcy
Cette methode ne marche pas, on ne me demande pas si je veux écraser le
fichier...

"Daniel.j" a écrit dans le message de
news:
http://dj.joss.free.fr/move.htm

Daniel

"Emcy" a écrit dans le message de news:

| Salut,
|
| Comment faire pour déplacer un fichier et demander si on veut écraser si
un

| Fichier du même nom est déja existant.
|
|




Avatar
Clément Marcotte
Sub copieecrasante()
Dim fso As Object, origine As String
Dim destination As String, reponse As Integer
Dim sortie As Byte, message As String
On Error GoTo camarchepas
origine = "c:copieunbeaufichiertexte.txt"
destination = "c:mes documentsunbeaufichiertexte.txt"
Set fso = CreateObject("scripting.filesystemobject")
fso.MoveFile origine, destination
Exit Sub
camarchepas:
Select Case Err
Case 58
message = "Le fichier " & destination & " existe déjà" & _
vbNewLine & "Désirez vous le supprimer?"
reponse = MsgBox(message, vbQuestion + vbOKCancel, "Erreur")
Select Case reponse
Case vbOK
Kill destination
fso.MoveFile origine, destination
Case Else
sortie = 1
End Select
Case 53
message = "Le fichier " & origine & " n'existe pas" & _
vbNewLine & "Fin du programme"
MsgBox message
Case Else
End Select
End Sub

"Emcy" a écrit dans le message de
news:
Cette methode ne marche pas, on ne me demande pas si je veux écraser
le

fichier...

"Daniel.j" a écrit dans le message de
news:
http://dj.joss.free.fr/move.htm

Daniel

"Emcy" a écrit dans le message de news:

| Salut,
|
| Comment faire pour déplacer un fichier et demander si on veut
écraser si


un
| Fichier du même nom est déja existant.
|
|








Avatar
Emcy
Merci, c'est exactement ce que je recherchais

"Clément Marcotte" a écrit dans le message
de news:
Sub copieecrasante()
Dim fso As Object, origine As String
Dim destination As String, reponse As Integer
Dim sortie As Byte, message As String
On Error GoTo camarchepas
origine = "c:copieunbeaufichiertexte.txt"
destination = "c:mes documentsunbeaufichiertexte.txt"
Set fso = CreateObject("scripting.filesystemobject")
fso.MoveFile origine, destination
Exit Sub
camarchepas:
Select Case Err
Case 58
message = "Le fichier " & destination & " existe déjà" & _
vbNewLine & "Désirez vous le supprimer?"
reponse = MsgBox(message, vbQuestion + vbOKCancel, "Erreur")
Select Case reponse
Case vbOK
Kill destination
fso.MoveFile origine, destination
Case Else
sortie = 1
End Select
Case 53
message = "Le fichier " & origine & " n'existe pas" & _
vbNewLine & "Fin du programme"
MsgBox message
Case Else
End Select
End Sub

"Emcy" a écrit dans le message de
news:
Cette methode ne marche pas, on ne me demande pas si je veux écraser
le

fichier...

"Daniel.j" a écrit dans le message de
news:
http://dj.joss.free.fr/move.htm

Daniel

"Emcy" a écrit dans le message de news:

| Salut,
|
| Comment faire pour déplacer un fichier et demander si on veut
écraser si


un
| Fichier du même nom est déja existant.
|
|