Création Dossier Par VBA

Navigation

Inscrivez-vous gratuitementpour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

• Vous n'êtes pas encore inscrit sur Developpez.com ? Inscrivez-vous gratuitement !

• Quoi de neuf ?
• Forum
• Derniers messages
• Actions
  • Marquer les forums comme lus
  • Messages du jour
  • Bugs & Suggestions
• Réseau social
  • Groupes
  • Liste des utilisateurs
  • FAQ forum
  • Voir l'équipe du site
• Blogs
• Agenda
• Chat
• Règles
• Blogs
• Projets

• Recherche avancée

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2003] Création dossier par VBA

+ Répondre à la discussion Discussion : Création dossier par VBA [XL-2003] Sujet :

Macros et VBA Excel

• Outils de la discussion
  • Afficher une version imprimable
  • S'abonner à cette discussion…
• Affichage
  • Mode linéaire
  • Choisir le mode hybride
  • Choisir le mode arborescent

1. 10/12/2010, 13h36 #1 Djromé Membre confirmé Inscrit enJuillet 2009Messages172Détails du profilInformations personnelles :Localisation : FranceInformations forums :Inscription : Juillet 2009Messages : 172 Création dossier par VBA

   Salut les Kracks, Je souhaiterai faire des sauvegardes automatiques d'un dossier excel qui viendraient automatiquement se sauver dans un file nommée : DEC2010 (mois en cours) et ainsi de suite... Est-ce possible de créer un dossier sur un drive fixe (R:\Dossier\) indiqué par la macro sachant que ce dernier devrait changer chaque mois ou faut-il créer un batch?

   Code :

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

   ActiveWorkbook.SaveAs "R:\Dossier\Moisencourtannéeencours\Mondossier.xls D'avance merci

   Répondre avec citation 0 0
2. 10/12/2010, 13h45 #2 pgz Expert confirmé Développeur Office VBAInscrit enAoût 2005Messages3 692Détails du profilInformations personnelles :Sexe : Âge : 72Localisation : FranceInformations professionnelles :Activité : Développeur Office VBASecteur : ConseilInformations forums :Inscription : Août 2005Messages : 3 692

   Bonjour. Au moment de faire la sauvegarde, tu peux vérifier si le dossier du mois existe et, si non, le créer. Pour cela voir en FAQ (c'est la même question que la discussion de carlux) Cordialement, PGZ

   Répondre avec citation 0 0
3. 10/12/2010, 13h48 #3 mercatog Expert éminent Inscrit enJuillet 2008Messages9 435Détails du profilInformations personnelles :Sexe : Localisation : AutreInformations forums :Inscription : Juillet 2008Messages : 9 435

   Code :

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

   1234	Dim Doss As String Doss = "C:\Documents and Settings\Administrateur\Bureau\TEST" If Dir(Doss, vbDirectory) = "" Then MkDir Doss

   Répondre avec citation 2 0
4. 10/12/2010, 14h35 #4 Djromé Membre confirmé Inscrit enJuillet 2009Messages172Détails du profilInformations personnelles :Localisation : FranceInformations forums :Inscription : Juillet 2009Messages : 172

   Salut Mercatog, Merci encore!

   Répondre avec citation 0 0
5. 10/12/2010, 16h18 #5 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

   Salut,une autre manière d'y parvenir sans les problemes de MkDir

   Code :

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

   123456789101112131415161718

   Option Explicit Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _ (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long ' Pour valeur retournée dans Rep ' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx ' et http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx Private Sub CreationDossier(sDos As String) Dim Rep As Long Rep = SHCreateDirectoryEx(0&, sDos, 0&) End Sub Sub Test() Dim sDossier As String sDossier = "C:\repA\repB\repC\repD\repE\repF" CreationDossier sDossier End Sub

   Répondre avec citation 2 0
6. 11/12/2010, 23h57 #6 Djromé Membre confirmé Inscrit enJuillet 2009Messages172Détails du profilInformations personnelles :Localisation : FranceInformations forums :Inscription : Juillet 2009Messages : 172

   Salut les Kracks, Mon code finale pour créer un dossier sous le format DEC2010:

   Code :

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

   1234567891011121314151617181920212223242526272829

   Option Explicit Sub Dossier() 'Faire apparaitre les 3 premieres lettres des mois en cours (idem en anglais) 'Partie de code pour ajouter la creation de dossier automatique si inexistant et au format 2010DEC Dim Doss As String Dim Drive As String Dim x ' variable des mois Dim y ' variable des annees Drive = "C:\Test\" x = UCase(Left(Format(Date, "mmmm"), 3)) 'affiche les 3 premiers caracteres en majuscule du mois en cours y = UCase(Format(Date, "YYYY")) 'affiche l'annee en cours Doss = x & y If Dir(Drive & Doss, vbDirectory) = "" Then MkDir Drive & Doss MsgBox ("Le dossier " & x & y & " a ete cree") End Sub

   Merci à tous pour votre aide

   Répondre avec citation 0 0
7. 12/12/2010, 00h10 #7 mercatog Expert éminent Inscrit enJuillet 2008Messages9 435Détails du profilInformations personnelles :Sexe : Localisation : AutreInformations forums :Inscription : Juillet 2008Messages : 9 435

   Tu pouvais simplifier comme ceci

   Code :

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

   123456789

   Sub Dossier() Dim Doss As String Doss = "C:\Test\" & UCase(Format(Date, "mmmyyyy")) If Dir(Doss, vbDirectory) = "" Then MkDir Doss MsgBox "Le dossier " & Doss & " a été crée" End If End Sub

   Répondre avec citation 1 0

+ Répondre à la discussion Cette discussion est résolue.

Actualités

FAQs OFFICE

TUTORIELS OFFICE

LIVRES OFFICE

SOURCES VBA

OFFICE 2010

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2003] Création dossier par VBA

« Discussion précédente | Discussion suivante »

Discussions similaires

1. Fermer un dossier par VBA Par GuyDuLac dans le forum VBA Access Réponses: 1 Dernier message: 28/07/2014, 11h02
2. Liste dossiers par VBA Par orambaud dans le forum Général VBA Réponses: 7 Dernier message: 17/04/2008, 21h47
3. création graphique par VBA Par Toad08 dans le forum Macros et VBA Excel Réponses: 4 Dernier message: 13/02/2008, 14h02
4. [Image] Chemin absolu à la création modifié par VBA après. Par Caroline1 dans le forum IHM Réponses: 15 Dernier message: 22/10/2007, 12h14
5. Création de label par VBA (excel) Par WagaSeb dans le forum Macros et VBA Excel Réponses: 2 Dernier message: 26/10/2006, 15h46

Partager

Partager

• 
• 
• 
• 
• 
• 
• 
• 

• Nous contacter
• Developpez.com
• Haut de page