Discussion :

[Binou_le_débutant]

Bonjour à tous,

Voilà je cherche à fluidifier un peu la gestion de projet au sein de mon entreprise, et c'est dans ce cadre que je vous adresse mon challenge à réaliser en VBA sous Excel.

1) A l'origine, je dispose d'un fichier EXCEL comprenant :

- Colonne A : un case par ligne permettant de cocher ou décocher en fonction de l'utilité ou non du document pour le projet
- Lignes 2,10,20 : Nom des catégories de documents qui seront en réalité le nom des sous-dossiers par la suite
- Colonne B : le code référence des documents (nommés en colonne C) qui sera en réalité le nom des sous-sous-dossier par la suite
- Colonne C : la liste exhaustive des documents applicable dans un projet

2) Une fois le tri effectué en cochant ou décochant la case en colonne A (case à cocher ou écriture d'un "X" tout bêtement), je souhaiterai :

- pouvoir cliquer sur un bouton appelé "Création du Dossier Affaire",
- que cette macro crée un 1er dossier comportant toutes les opérations à suivre,
- que je puisse "l'enregistrer sous" (Choix de l'emplacement et du nom de ce 1er dossier)
- Que dans ce 1er dossier je puisse trouver 3 sous-dossiers appelé conformément au ligne 2, 10, 20,
- que dans ces 3 sous-dossiers, je puisse trouver tous les sous-sous-dossiers appelés suivant le code de référence associé en colonne B, à la condition qu'ils aient été coché (en colonne A)!!!
- La cerise sur le gâteau serait que dans ces sous-sous-dossier soit importé le document Word qui porte le même nom que les documents en colonne C, et qui se trouve sur le serveur de mon entreprise (ou alors le nom du document en colonne C est un lien hypertexte vers le document Word voulu, à voir ce qui est le plus simple...)

Je fournis en PJ de ma requête un document Excel simplifié permettant de visualiser ma demande.

Merci à celle ou celui qui se penchera sans tomber sur ce qui, pour moi, représente une montagne que je ne saurai jamais gravir... :/


Bien à vous,


Cordialement,


Alban

[kiki29]

Salut, voir avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
        (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier as String) As Long
Dim Rep As Long
    ' Pour valeur retournée par 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
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
    ' Rep= 0 ou 183
End Function

[clementmarcotte]

Bonjour à tous,

Voilà je cherche à fluidifier un peu la gestion de projet au sein de mon entreprise, et c'est dans ce cadre que je vous adresse mon challenge à réaliser en VBA sous Excel.


Alban

Donc, tu veux que nous nous réalisions ton challenge et que nous, nous fournissions gratuitement le programme pour le bénéfice de ta boîte.

C'est un forum d'entraide, pas un service de production de code. D'autant plus que ce que tu veux gratuitement va exiger plusieurs heures de travail.

Tous ceux qui répondent ici ont appris en se documentant et/ou en utilisant l'enregistreur de macros

Sur ce site, il y a plein de moyens de se documenter et d'apprendre.