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

[LaurentG]

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 :

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]

Bonjour le forum.

Ce fil pourra t'aider.

Lien supprimé

 

[MichelXld]

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