Discussion :

[E2PR-VAL]

Bonjour à tous,
je suis nouveau sur ce forum, mais également dans les macro et VBA sous excel.
Pour mon activité pro je suis ammené a créer un tableau de suivi de travaux pour les conducteurs de travaux e tadapté à nos chantiers.
J'ai un fichier excel, dont la 1ere colonne est celle des dates.
Je souhaiterai qu'a chaque fois que je saisis une date dans une cellule, cela me crée un répertoire nomé "Photos" à un emplacement précis.

j'ai tenté de me lancer avec les aide internet mais je ne trouve pas de tuto adapté a mon besoin.
Je remercis par avance toutes celles et ceux qui voudrons bien me donner quelques indications pour avancer.

Cdlt.

Jean-Luc

[TOFatJOB]

Bonjour,

ici, dans mon traitement VBA j'appelle une fonction qui va vérifier la présence et créer le cas échéant le(s) répertoires(s) manquants

Code :

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

1
2
3
4
5
'Appelle la "fonction spéciale"  pour gestion des sous-répertoires (on appelle la fonction en passant le chemin en paramètre)
test_repertoire ("\\serveur\dossiers\CLS\SUPPLY_PDF\S100\")
test_repertoire ("\\serveur\dossiers\CLS\SUPPLY_PDF\S100\" & yea & "")
test_repertoire ("\\serveur\dossiers\CLS\SUPPLY_PDF\S100\" & yea & "\" & fou & "")
test_repertoire ("\\serveur\dossiers\CLS\SUPPLY_PDF\S100\" & yea & "\" & fou & "\" & art & "")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Fonction spéciale pour création répertoires & sous-répertoires si absents
 
Sub test_repertoire(chemin As String)
Dim fs As Object
 
Set fs = CreateObject("Scripting.FileSystemObject")                 ' initialisation de la variable
 
If fs.FolderExists(chemin) Then                                     '  le repertoire existe donc rien a faire
Else: fs.CreateFolder chemin                                        ' le repertoire n'existe pas donc on le créer
End If
Set fs = Nothing
End Sub

(je ne suis pas l'auteur, j'ai trouvé sur le forum sans noter la source, désolé) Merci au créateur.