Trouver le disque dur principal

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #2

Re : Trouver le disque dur principal

plus exactement je voudrais que l'utilisateur puisse indiquer la lettre du disque dur dans lequel créer un fichier.
la lettre saisie serait nottée dans la cellule nommée "lecteur" par exemple et un dossier nommée "toto" serait créé dans le disque dur.
j'avais touvé un bout de code qui fonctionne correctement avec
sFolderName = "C:\toto"
mais quand je remplace par sFolderName = "lecteur:\toto" ça ne marche plus.
pouvez vous m'aider svp?
Dim lecteur As String
lecteur = Range("lecteur").Value
' Initialisation du nom du dossier
sFolderName = "lecteur:\toto"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Mars 2009

• #3

Re : Trouver le disque dur principal

Bonjour,
Sans doute

Code:

sFolderName = lecteur & ":\toto"

a+
kjin

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #4

Re : Trouver le disque dur principal

avec le code ci dessous ça marche

Dim fso 'As Scripting.FileSystemObject
Dim fd 'As Scripting.Folder
Dim sFolderName 'As String
Dim lecteur As String
'lecteur = Range("lecteur").Value
' Initialisation du nom du dossier
sFolderName = "C:\facil'devis"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
'MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If

mais comme je doit pouvoir choisir le disque dur, désigné dans la cellule "lecteur" quand je remplace C par "lecteur" ou "lecteur.value" ça ne fonctionne plus.

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #5

Re : Trouver le disque dur principal

merci pour ta réponse mais avec ta modif le dossier créé se nomme jsute toto et non pas C\toto ou E\toto suivant la lettre contenu dans ma celule nommée "lecteur"

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #6

Re : Trouver le disque dur principal

😕

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #7

Re : Trouver le disque dur principal

résolu.
il fallait juste modifier cette ligne:
sFolderName = Range("lecteur").Value & ":\toto"
merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Mars 2009

• #8

Re : Trouver le disque dur principal

Re,
🙄

Code:

Sub CreerDossier()
Dim fso As Object
Dim fd As Object
Dim sFolderName As String
Dim lecteur As String
lecteur = Sheets("Feuil1").Range("A1")

'ou sinon la cellule A1 si a bien été nommé "lecteur"  !
'lecteur = Sheets("Feuil1").Range("lecteur")

sFolderName = lecteur & ":\devis"
Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(sFolderName) Then
        Set fd = fso.CreateFolder(sFolderName)
        MsgBox "Le dossier " & sFolderName & " a été créé"
    Else
        MsgBox "Le dossier " & sFolderName & " existe déjà!"
    End If

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Mars 2009

• #9

Re : Trouver le disque dur principal

Re

alfazoulou à dit:

résolu.
il fallait juste modifier cette ligne:
sFolderName = Range("lecteur").Value & ":\toto"
merci

Cliquez pour agrandir...

Tu ne lis donc pas les réponses ?!
Parce que d'après toi...

Code:

lecteur = Range("lecteur")
sFolderName = lecteur & ":\toto"

...c'est pas la même chose ?
C'est pourtant ce que j'écris au #3
kjin 😡

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 25 Mars 2009

• #10

Re : Trouver le disque dur principal

merci Kjin
j'avais bien lu ta réponse mais j'ai essayé
sFolderName = lecteur & ":\toto"
sans
Dim lecteur As String
lecteur = Range("lecteur").Value
alors ça marchait pas.

 

Vote positif 0 Vote négatif