J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:\LOGISTIQUE\ETIQUETTES\METIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
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
papou
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Bonjour
Tu peux faire ça assez simplement :
On Error Resume Next
ChDir "C:Tests"
If Err <> 0 Then
Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _
, vbQuestion + vbYesNo, "Non trouvé")
Case vbYes: MkDir ("C:TEST")
Case Else: Exit Sub
End Select
Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé"
End If
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:46E73568-73C5-489E-9053-0C04C33ED4C2@microsoft.com...
Re bonjour à tous!
Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:LOGISTIQUEETIQUETTESMETIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Daniel
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour
Tu peux faire ça assez simplement :
On Error Resume Next
ChDir "C:Tests"
If Err <> 0 Then
Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _
, vbQuestion + vbYesNo, "Non trouvé")
Case vbYes: MkDir ("C:TEST")
Case Else: Exit Sub
End Select
Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé"
End If
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:46E73568-73C5-489E-9053-0C04C33ED4C2@microsoft.com...
Re bonjour à tous!
Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:LOGISTIQUEETIQUETTESMETIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
papou
Re Ok par contre méfies-toi il y a une petite erreur de typo dans le code fourni : Entre le nom du répertoire ici
ChDir "C:Tests" et là
Case vbYes: MkDir ("C:TEST")
...mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Re
Ok par contre méfies-toi il y a une petite erreur de typo dans le code
fourni :
Entre le nom du répertoire ici
ChDir "C:Tests"
et là
Case vbYes: MkDir ("C:TEST")
...mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:FD51E2B3-9542-4D22-BCD5-1B13B51D43CE@microsoft.com...
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour
Tu peux faire ça assez simplement :
On Error Resume Next
ChDir "C:Tests"
If Err <> 0 Then
Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _
, vbQuestion + vbYesNo, "Non trouvé")
Case vbYes: MkDir ("C:TEST")
Case Else: Exit Sub
End Select
Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé"
End If
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:46E73568-73C5-489E-9053-0C04C33ED4C2@microsoft.com...
Re bonjour à tous!
Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets
qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:LOGISTIQUEETIQUETTESMETIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Re Ok par contre méfies-toi il y a une petite erreur de typo dans le code fourni : Entre le nom du répertoire ici
ChDir "C:Tests" et là
Case vbYes: MkDir ("C:TEST")
...mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Daniel
Oui, en fait j'ai supprimer la boite de dialogue!
Mon code est : On Error Resume Next ChDir "I:LOGISTIQUEETIQUETTESMETIERS" & Sheets("RESUMER").Range("B11").Value If Err <> 0 Then MkDir "I:LOGISTIQUEETIQUETTESMETIERS" & Sheets("RESUMER").Range("B11").Value End If
Merci papou!
Re Ok par contre méfies-toi il y a une petite erreur de typo dans le code fourni : Entre le nom du répertoire ici
ChDir "C:Tests" et là
Case vbYes: MkDir ("C:TEST")
....mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Oui, en fait j'ai supprimer la boite de dialogue!
Mon code est :
On Error Resume Next
ChDir "I:LOGISTIQUEETIQUETTESMETIERS" &
Sheets("RESUMER").Range("B11").Value
If Err <> 0 Then
MkDir "I:LOGISTIQUEETIQUETTESMETIERS" &
Sheets("RESUMER").Range("B11").Value
End If
Merci papou!
Re
Ok par contre méfies-toi il y a une petite erreur de typo dans le code
fourni :
Entre le nom du répertoire ici
ChDir "C:Tests"
et là
Case vbYes: MkDir ("C:TEST")
....mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:FD51E2B3-9542-4D22-BCD5-1B13B51D43CE@microsoft.com...
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour
Tu peux faire ça assez simplement :
On Error Resume Next
ChDir "C:Tests"
If Err <> 0 Then
Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _
, vbQuestion + vbYesNo, "Non trouvé")
Case vbYes: MkDir ("C:TEST")
Case Else: Exit Sub
End Select
Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé"
End If
Cordialement
Pascal
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:46E73568-73C5-489E-9053-0C04C33ED4C2@microsoft.com...
Re bonjour à tous!
Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets
qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:LOGISTIQUEETIQUETTESMETIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Mon code est : On Error Resume Next ChDir "I:LOGISTIQUEETIQUETTESMETIERS" & Sheets("RESUMER").Range("B11").Value If Err <> 0 Then MkDir "I:LOGISTIQUEETIQUETTESMETIERS" & Sheets("RESUMER").Range("B11").Value End If
Merci papou!
Re Ok par contre méfies-toi il y a une petite erreur de typo dans le code fourni : Entre le nom du répertoire ici
ChDir "C:Tests" et là
Case vbYes: MkDir ("C:TEST")
....mais bon j'imagine que tu avais corrigé par toi-même.
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Merci PAPOU!
Ca marche à merveille !
Merci merci et merci!
"papou" wrote:
Bonjour Tu peux faire ça assez simplement : On Error Resume Next ChDir "C:Tests" If Err <> 0 Then Select Case MsgBox("Répertoire non présent" & vbLf & "le créer ?" _ , vbQuestion + vbYesNo, "Non trouvé") Case vbYes: MkDir ("C:TEST") Case Else: Exit Sub End Select Else: MsgBox "le répertoire est bien là", vbInformation, "Trouvé" End If
Cordialement Pascal
"Daniel" a écrit dans le message de news:
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui
en
parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Ange Ounis
Une autre approche possible (à partir d'Excel 2000) :
'**************** Sub TraitementDossier() Dim S As String, D As String, i As Byte
'dossier à trouver ou créer S = "D:test1tmptest2"
If Dir(S, vbDirectory) <> "" Then 'le dossier existe on le supprime 'd'abord son contenu Kill S & "*.*" 'puis le dossier RmDir S Else 'sinon on le crée D = Split(S, "")(0) & "" For i = LBound(Split(S, "")) + 1 To UBound(Split(S, "")) 'sous dossier par sous dossier D = D & Split(S, "")(i) & "" On Error Resume Next MkDir D On Error GoTo 0 Next End If End Sub '****************
---------- Ange Ounis ----------
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Possible ou pas possibles docteur ??
Une autre approche possible (à partir d'Excel 2000) :
'****************
Sub TraitementDossier()
Dim S As String, D As String, i As Byte
'dossier à trouver ou créer
S = "D:test1tmptest2"
If Dir(S, vbDirectory) <> "" Then
'le dossier existe on le supprime
'd'abord son contenu
Kill S & "*.*"
'puis le dossier
RmDir S
Else
'sinon on le crée
D = Split(S, "")(0) & ""
For i = LBound(Split(S, "")) + 1 To UBound(Split(S, ""))
'sous dossier par sous dossier
D = D & Split(S, "")(i) & ""
On Error Resume Next
MkDir D
On Error GoTo 0
Next
End If
End Sub
'****************
----------
Ange Ounis
----------
Re bonjour à tous!
Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en
parlait mais rien de clair! J'ai lu des allusion à une fonction
GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire
I:LOGISTIQUEETIQUETTESMETIERS
Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
Une autre approche possible (à partir d'Excel 2000) :
'**************** Sub TraitementDossier() Dim S As String, D As String, i As Byte
'dossier à trouver ou créer S = "D:test1tmptest2"
If Dir(S, vbDirectory) <> "" Then 'le dossier existe on le supprime 'd'abord son contenu Kill S & "*.*" 'puis le dossier RmDir S Else 'sinon on le crée D = Split(S, "")(0) & "" For i = LBound(Split(S, "")) + 1 To UBound(Split(S, "")) 'sous dossier par sous dossier D = D & Split(S, "")(i) & "" On Error Resume Next MkDir D On Error GoTo 0 Next End If End Sub '****************
---------- Ange Ounis ----------
Re bonjour à tous! Encore une petite question!
J'aimerai tester la présence d'un répertoire. J'ai lu quelques sujets qui en parlait mais rien de clair! J'ai lu des allusion à une fonction GetFileAttributes() !!!!
Mon souhait est de tester si dans le repertoire I:LOGISTIQUEETIQUETTESMETIERS Il y à déjà un répertoire quii porte un nomp précis!
Si il y en a un je le supprime, sinon, je le créer !!
