Je travaille sur une application qui permet d'enregistrer
automatiquement un classeur dans le dossier indiqu=E9 par l'utilisateur
dans une des cellules d'une feuille de param=E9trage. On y indique le
chemin et le nom du dossier. J'aimerais que ce programme v=E9rifie bien
que le dossier existe avant d'essayer d'enregistrer le fichier (=E7a
=E9viterait d'afficher des erreurs VBA pour des novices...) Avez-vous
une solution =E0 me proposer ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Sub test() Dim Chemin As String Dim Rep As String Rep = "toti" Chemin = "c:" If Dir(Chemin & Rep, vbDirectory) = "" Then 'si répertoire absent, création du rep VBA.MkDir Chemin & Rep End If End Sub
"Ashish Kebab" a écrit dans le message de news:
Bonjour,
Je travaille sur une application qui permet d'enregistrer automatiquement un classeur dans le dossier indiqué par l'utilisateur dans une des cellules d'une feuille de paramétrage. On y indique le chemin et le nom du dossier. J'aimerais que ce programme vérifie bien que le dossier existe avant d'essayer d'enregistrer le fichier (ça éviterait d'afficher des erreurs VBA pour des novices...) Avez-vous une solution à me proposer ??
Merci beaucoup d'avance !
Ashley
Sub test()
Dim Chemin As String
Dim Rep As String
Rep = "toti"
Chemin = "c:"
If Dir(Chemin & Rep, vbDirectory) = "" Then
'si répertoire absent, création du rep
VBA.MkDir Chemin & Rep
End If
End Sub
"Ashish Kebab" <ashomah@hotmail.com> a écrit dans le message de news:
1169044644.426278.292230@m58g2000cwm.googlegroups.com...
Bonjour,
Je travaille sur une application qui permet d'enregistrer
automatiquement un classeur dans le dossier indiqué par l'utilisateur
dans une des cellules d'une feuille de paramétrage. On y indique le
chemin et le nom du dossier. J'aimerais que ce programme vérifie bien
que le dossier existe avant d'essayer d'enregistrer le fichier (ça
éviterait d'afficher des erreurs VBA pour des novices...) Avez-vous
une solution à me proposer ??
Sub test() Dim Chemin As String Dim Rep As String Rep = "toti" Chemin = "c:" If Dir(Chemin & Rep, vbDirectory) = "" Then 'si répertoire absent, création du rep VBA.MkDir Chemin & Rep End If End Sub
"Ashish Kebab" a écrit dans le message de news:
Bonjour,
Je travaille sur une application qui permet d'enregistrer automatiquement un classeur dans le dossier indiqué par l'utilisateur dans une des cellules d'une feuille de paramétrage. On y indique le chemin et le nom du dossier. J'aimerais que ce programme vérifie bien que le dossier existe avant d'essayer d'enregistrer le fichier (ça éviterait d'afficher des erreurs VBA pour des novices...) Avez-vous une solution à me proposer ??
