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 :
Mais il ne fonctionne pas.
Quelqu'un sait comment faire la vérification de la présence d'un dossier?
Merci
Laurent
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