Vérification de la présence d'un dossier

LaurentG · 3 Janvier 2006

Bonjour,

J'ai un usf avec une macro qui doit sauvegarder le classeur dans un dossier.

Cette macro doit d'abord vérifier si le dossier existe. Si oui alors elle sauvegarde le classeur; sinon elle doit créer le dossier et sauvegarder le classeur. J'avais utiliser le code suivant :

Code:

Private Sub ok_Click()
Workbooks.Add
numbv = numero_bv.Value

chemin = 'C:\\' & numero_bv & '\\'
MkDir 'C:\\' & numbv
chemin = 'C:\\' & numero_bv & '\\'
ActiveWorkbook.SaveAs chemin & numbv & 'm'
Else
ActiveWorkbook.SaveAs chemin & numbv & 'm'
End If
end sub

Mais il ne fonctionne pas.

Quelqu'un sait comment faire la vérification de la présence d'un dossier?

Merci

Laurent

coco_lapin · 3 Janvier 2006

Bonjour le forum.

Ce fil pourra t'aider.

Lien supprimé

MichelXld · 3 Janvier 2006

bonjour Laurent , bonjour Coco_lapin

j'espere que cet exemple pourra t'aider

Sub controleExistenceDossier()
Dim Fso As Object
Dim Chemin As String
Dim Reponse As Boolean

Chemin = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\excel'
Set Fso = CreateObject('Scripting.FileSystemObject')
Reponse = Fso.folderExists(Chemin)
MsgBox Reponse
End Sub

bonne journée
MichelXld

Message édité par: michelxld, à: 03/01/2006 10:21

Vérification de la présence d'un dossier

LaurentG

XLDnaute Occasionnel

coco_lapin

XLDnaute Impliqué

MichelXld

XLDnaute Barbatruc

Discussions similaires