Amélioration macro

gildas lechat · 29 Juin 2010

Bonjour le forum, 🙂

J'ai une petite amélioration à apporter à la macro ci dessous permettant de créer un dossier en "automatique" du même nom que le textbox1 et le possitionner dans un répertoire définit .

J'aimerai, si le dossier existe déjas, avoir un message d'erreur et quitter la macro.
Merci de votre aide

'création de dossier innexistant
Private Sub CommandButton3_Click()

dossierSource = "Z:\Rapport de controle final"
fichierSource = "Z:\Rapport de controle final\Original"
Dim nouveauDossier As String

'si ce n'est pas un chiffre qui a été saisi dans le champ
If Not IsNumeric(TextBox1.Text) Then
MsgBox "erreur de saisi ou pas de référence"
Exit Sub
End If

'créer un dossier "Origine" (ThisWorkbook.Path) + "textbox"
nouveauDossier = dossierSource & "\" & CLng(TextBox1.Text)
'si dossier déjat existant ajout d'un message erreur et quiter la macro
CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier

'copier le fichier "a-original1.XLS"
CreateObject("Scripting.FileSystemObject").CopyFile fichierSource & "\a-original1.XLS", nouveauDossier & "\a-" & CLng(TextBox1.Text) & ".xls"

End Sub

Guest · 29 Juin 2010

Re : Amélioration macro

Bonjour,

Fais sois une recherche dans l'aide VBA excel sur la fonction DIR() ou sur internet sur le filesytemObject ou encore sur le forum. Tu trouveras toutes les réponses que tu attends.

A+

Amélioration macro

gildas lechat

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Amélioration macro

gildas lechat

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency