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 Suppresion de fichier Excel dans un répertoire

Suppresion de fichier Excel dans un répertoire

7 réponses
Avatar
Yvan
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier dans un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence d'un
fichier dans un répertoire ?
--
Merci pour vos réponses.
Signaler un problème avec ce contenu

7 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
papou
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier dans un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence d'un
fichier dans un répertoire ?
--
Merci pour vos réponses.


Avatar
papou
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier dans
un


répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence d'un
fichier dans un répertoire ?
--
Merci pour vos réponses.






Avatar
twinley
Bonjour Papou, Bonjour à tous,

Comment adapter ta macro pour détecter la présence d'un sous répertoire
Machin ?
J'ai tenté ce qui suit, mais pas de résultat :

Sub adddirectory()
If Dir("C: DataMachin") <> "" Then
MsgBox "Répertoire présent"
Else
MsgBox "Répertoire non présent"
End If
End Sub

Dans un deuxième temps, ajouter le répertoire Machin si il n'est pas là...

--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier dans
un


répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence d'un
fichier dans un répertoire ?
--
Merci pour vos réponses.










Avatar
papou
Bonjour
On Error GoTo CpasBon
ChDir "C:DocTwinley"
Exit Sub
CpasBon:
If MsgBox("Le chemin spécifié est introuvable" & _
vbLf & "Faut-il le créer ?", vbYesNo + vbQuestion, _
"Pas trouvé") = vbYes Then MkDir "C:DocTwinley": Exit Sub
Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonjour Papou, Bonjour à tous,

Comment adapter ta macro pour détecter la présence d'un sous répertoire
Machin ?
J'ai tenté ce qui suit, mais pas de résultat :

Sub adddirectory()
If Dir("C: DataMachin") <> "" Then
MsgBox "Répertoire présent"
Else
MsgBox "Répertoire non présent"
End If
End Sub

Dans un deuxième temps, ajouter le répertoire Machin si il n'est pas là...

--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier
dans




un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence
d'un




fichier dans un répertoire ?
--
Merci pour vos réponses.














Avatar
twinley
Impeccable.
Alors là, je reste sans voix... d'ailleurs j'étais tellement la tête dans le
guidon que je n'avais pas terminé ma question par une formule de politesse.
J'ai pas eu le temps de bouger, jamais j'aurais trouvé cela en une journée.
Il fallait la semaine.

Un merci papou, pour toutes les minutes que tu m'as fait gagné ! Dommage
pour toi, que c'est pas 1 euro.
--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
On Error GoTo CpasBon
ChDir "C:DocTwinley"
Exit Sub
CpasBon:
If MsgBox("Le chemin spécifié est introuvable" & _
vbLf & "Faut-il le créer ?", vbYesNo + vbQuestion, _
"Pas trouvé") = vbYes Then MkDir "C:DocTwinley": Exit Sub
Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonjour Papou, Bonjour à tous,

Comment adapter ta macro pour détecter la présence d'un sous répertoire
Machin ?
J'ai tenté ce qui suit, mais pas de résultat :

Sub adddirectory()
If Dir("C: DataMachin") <> "" Then
MsgBox "Répertoire présent"
Else
MsgBox "Répertoire non présent"
End If
End Sub

Dans un deuxième temps, ajouter le répertoire Machin si il n'est pas
là...



--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent" Else:
MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent"
Else:




MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un fichier
dans




un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence
d'un




fichier dans un répertoire ?
--
Merci pour vos réponses.


















Avatar
papou
Re
Dommage pour toi, que c'est pas 1 euro.
Mais ça fait 1 heureux ;-)

Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:eyX%
Impeccable.
Alors là, je reste sans voix... d'ailleurs j'étais tellement la tête dans
le

guidon que je n'avais pas terminé ma question par une formule de
politesse.

J'ai pas eu le temps de bouger, jamais j'aurais trouvé cela en une
journée.

Il fallait la semaine.

Un merci papou, pour toutes les minutes que tu m'as fait gagné ! Dommage
pour toi, que c'est pas 1 euro.
--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
On Error GoTo CpasBon
ChDir "C:DocTwinley"
Exit Sub
CpasBon:
If MsgBox("Le chemin spécifié est introuvable" & _
vbLf & "Faut-il le créer ?", vbYesNo + vbQuestion, _
"Pas trouvé") = vbYes Then MkDir "C:DocTwinley": Exit Sub
Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonjour Papou, Bonjour à tous,

Comment adapter ta macro pour détecter la présence d'un sous
répertoire



Machin ?
J'ai tenté ce qui suit, mais pas de résultat :

Sub adddirectory()
If Dir("C: DataMachin") <> "" Then
MsgBox "Répertoire présent"
Else
MsgBox "Répertoire non présent"
End If
End Sub

Dans un deuxième temps, ajouter le répertoire Machin si il n'est pas
là...



--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent"
Else:




MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent"
Else:




MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message de
news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un
fichier






dans
un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la présence
d'un




fichier dans un répertoire ?
--
Merci pour vos réponses.






















Avatar
twinley
aux anges...

--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:OD2%
Re
Dommage pour toi, que c'est pas 1 euro.
Mais ça fait 1 heureux ;-)

Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:eyX%
Impeccable.
Alors là, je reste sans voix... d'ailleurs j'étais tellement la tête
dans


le
guidon que je n'avais pas terminé ma question par une formule de
politesse.

J'ai pas eu le temps de bouger, jamais j'aurais trouvé cela en une
journée.

Il fallait la semaine.

Un merci papou, pour toutes les minutes que tu m'as fait gagné ! Dommage
pour toi, que c'est pas 1 euro.
--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
On Error GoTo CpasBon
ChDir "C:DocTwinley"
Exit Sub
CpasBon:
If MsgBox("Le chemin spécifié est introuvable" & _
vbLf & "Faut-il le créer ?", vbYesNo + vbQuestion, _
"Pas trouvé") = vbYes Then MkDir "C:DocTwinley": Exit Sub
Cordialement
Pascal

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonjour Papou, Bonjour à tous,

Comment adapter ta macro pour détecter la présence d'un sous
répertoire



Machin ?
J'ai tenté ce qui suit, mais pas de résultat :

Sub adddirectory()
If Dir("C: DataMachin") <> "" Then
MsgBox "Répertoire présent"
Else
MsgBox "Répertoire non présent"
End If
End Sub

Dans un deuxième temps, ajouter le répertoire Machin si il n'est pas
là...



--
à+twinley
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Petite rectification (bien que cela fonctionne malgré tout)
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent"
Else:




MsgBox "Fichier non présent": End If
Cordialement
Pascal

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message
de





news:
Bonjour
If Dir("C:totoMachin.txt") <> "" Then MsgBox "Fichier présent"
Else:




MsgBox "Fichier non présent": Exit Sub
Kill "C:TotoMachin.txt"

Cordialement
Pascal

"Yvan" a écrit dans le message
de






news:
Bonjour,

Est-il possible au sein d'une macro, d'aller supprimer un
fichier






dans
un
répertoire ?

Dans le même ordre d'idée, est-il possible de tester la
présence







d'un
fichier dans un répertoire ?
--
Merci pour vos réponses.