Discussion :

[pat04]

Bonjour à tous,

Je souhaite exporter une table access vers excel et j'ai opté pour la solution :
DoCmd.TransferSpreadsheet… (pas de Pb particulier).

Je fais saisir par l'utilisateur le dossier dans lequel doit être sauvegarder le fichier excel (sous forme de variable utilisée dans DoCmd.TransferSpreadsheet).

Si l'utilisateur saisi un chemin ou un dossier inexistant, ça plante.

Comment, en VBA, je peux vérifier en VBA l'existence du répertoire saisi et s'il n'existe pas est-ce que éventuellement je peux le créer.

Merci

[Lou Pitchoun]

Salut,

Merci de bien vouloir chercher dans la FAQ :
http://access.developpez.com/faq/?re...dossier+chemin

Une des Q/R sera plus fiable que de demander de saisir le dossier. (une faute de frappe est si vite arrivée).

Voir aussi ce tutoriel :
http://warin.developpez.com/access/fichiers/

[helas]

Vérifie la présence du dossier et le crée s'il n'existe pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If Dir(NomDossier, vbDirectory) = "" Then MkDir NomDossier

De même si le fichier existe on peut le supprimer avant de le sauvegarder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If Dir(NomDossier & NomFichier) <> "" Then Kill NomDossier & NomFichier

[Mahefasoa]

Bonjour,
Je rejoint Kikof pour ses remarques et en particulier le fait de saisir le chemin du répertoire/fichier qui peut entraînner une erreur de saisie inévitable.
Le mieux c'est d'utiliser une boîte de dialogue pour sélectionner un dossier me parait plus sûr.
Sinon si tu veux toujours rester dans ton optique, il existe un API qui permet de créer un répertoire si ce dernier n'existe pas, c'est l'API MakeSureDirectoryPathExists.
Dans la section Déclaration, il faut placer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Et pour l'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MakeSureDirectoryPathExists "lecteur:\chemin"

L'avantage est ceci: supposons que tu veux créer un répertoire rep4 dans le répertoire rép3 qui doit être contenu dans un répertoire rép2 contenu dans le répertoire rép1 dans la racine du disque dur c: et que ni rép1, ni rép2, ni rép3, ni rép4 n'existent alors le simple fait d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MakeSureDirectoryPathExists "c:\rép1\rép2\rép3\rép4"

crée respectivement les répertoires dans l'ordre hiérarchique!
Bon courage et @+