Résultats pour "creation repertoire fonction date document"

12'552 résultats pour cette recherche

Bonjour à tous,

Cela fait plusieurs jours que je cherche sur internet après ce problème mais je ne trouve pas mis à part qu'il faut que j'utilise la fonction MkDir.

J'ai déjà créé un code pour mon fichier mais en plus de ça, je veux que si les répertoires (et sous-répertoires) n'existent pas ils soient créés.

Je m'explique :

- pour le moment le nom du document créé est en fonction de la date mais en plus de ça j'ai envie de classer par mois et par année donc créé un répertoire année + un sous-répertoire mois (si ils n'existent pas) en fonction de la date de création du document (ou de son nom car le nom est en fonction de la création du document).

Public Sub Enregistrer() 'copie sauvegarde classeur
Dim nom As String
    nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmm") & ".xls"
    For n = ActiveSheet.Shapes.Count To 1 Step -1
    If Left(ActiveSheet.Shapes(n).Name, 6) = "Button" Then ActiveSheet.Shapes(n).Delete
  Next n 'Supression du bouton sur la copie
    ActiveWorkbook.SaveCopyAs "D:\Users\FX5180\Desktop\Test\Meyrin" & "\" & nom
    rep = MsgBox("Votre fichier est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
    Workbooks.Open Filename:="D:\Users\FX5180\Desktop\Test\Meyrin" & "\" & nom 'Ouverture de la copie
    ThisWorkbook.Close SaveChanges:=False 'Fermeture de l'original
End Sub

Je travaille sous Excel 2010 et je suis débutant en VBA donc si vous avez d'autres solutions pour mon code déjà existant je suis preneur.

Merci d'avance pour le temps que vous consacrerez.

Bonjour,

J'ai bien trouvé sur le net une macro pour créer un répertoire à partir d'une liste (colonne A) dans Excel.

Je souhaiterais que sous chaque dossier de la colonne A, je puisse créer un sous-dossier dont le nom serait celui de la celulle colonne n+1, et ligne n+1.

Par ex :

dossier A1

___sous dossier B2

______sous sous dossier C3

Dossier A4

___sous dossier B5

...ETC.

Voici la macro trouvée sur le net, qui marche très bien pour créer les dossiers par la colonne A :

Sub créer_dossiers()

On Error Resume Next

Dim lig As Byte, cptr As Byte

lig = Range("A65536").End(xlUp).Row

For cptr = 1 To lig

MkDir "C:\Documents and Settings\2 bruno\Bureau\"

MkDir "C:\Documents and Settings\2 bruno\Bureau\" & Cells(cptr, 1)

Next

End Sub

Comment créer les sous-dossiers?

Merci pour votre aide.

Bonjour tout le monde

Voila, juste besoin d'idée.

Je souhaite faire pour un service maintenance, un "repertoire" de tous les documents a disposition (plan, schemas, formulaire de toute sorte, compte rendus d'operation de maintenance, fiches technique ...etc) avec des liens qui ouvrirais directement le document qu'il désire consulter ou imprimer.( par exemple, un bouton "plan electrique de l'armoire B" et hop en un clique la doc s'ouvre.

Ceci pour faciliter le travail des gars qui perdent enormement de temps a chercher des document qui sont disseminer sur le serveur(surtout que certains viennent d'apprendre a allumer un ordi et j'exagere a peine )

Le hic, c'est que quitte a faire cela, j'aimerais faire un truc pratique et conviviale (enfin un minimum) et je n'ai pas d'idée en plus de ne pas connaitre toutes les possibilitées d'excel.(a part la page avec plein de bouton mais j'aimerais faire un truc plus sympas)

Alors si quelqu'un a deja eu a faire cela ou a des idée de mise en forme ou de principe de fonctionnement, je suis preneur

Pour les codes, je pense que ca doit etre assez simple car pour l'instant ce ne sont que des liens même si par la suite je voudrais faire par exemple inserer une vue eclaté d'une machine et inserer des commentaires par exemple, comme ca les gars n'aurons qu'a pointer dessus pour connaitre le nom, la reference de la pièce, son emplacement dans le magasin...etc...)

Mais enfin ne nous emballons pas, déja la mise en forme,et le principe de fonctionnement. Rien que des idées et des suggestions ca m'irat tres bien

(ne vous embetez pas a faire un classeur, je le ferais moi-meme suivant vos suggestions et le joindrais au fur et a mesure)

comptant sur votre imagination debordante....

Cordialement

Salut à tous

J'ai besoin d'aide et je sais que pour vous, les pros d'Excel, ma demande sera super simple

Explication : J'ai un document destination que j'ouvre et, depuis ce document, j'exécute une macro qui va ouvrir le document source et me copier toutes les lignes de mon tableau. Voici ma macro super basique, faite en utilisant l'option *enregistrer une macro*, pas terrible me direz-vous, cependant, elle fonctionne parfaitement mais je ne souhaite pas les lignes vides de mon tableau, seulement celles avec un 1 dans la colonne B. Ligne à copier à partir de C3 jusqu'à F.

Sub importer()
Dim chemin As String, fichier As String
Application.DisplayAlerts = False

chemin = ThisWorkbook.Path
fichier = chemin & "\" & "Source.xlsm"
Sheets("Modèle").Select
Sheets("Modèle").Copy After:=Sheets("Modèle")
Range("A2").Select
Workbooks.Open Filename:=fichier
ActiveSheet.Unprotect Password:="123"
Range("C3:F22").Select
Selection.Copy
Windows("Destination.xlsm").Activate ActiveSheet.Paste
Windows("Source.xlsm").Activate
ActiveWindow.Close SaveChanges:=False
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub

Ce code est vraiment indigeste, j'ai tenté de définir le classeur source CS, l'onglet source OS etc... etc... et malgré des heures de recherches et de tests, je n'y arrive pas

A savoir : Le bouton de ma macro se trouve sur le fichier destination, ma macro copie le modèle du dossier, en fait une copie, il ouvre mon document source, déverrouille le mot de passe "123", étant donné que le doc n'a que des listes déroulante, je fais le tri sur la colonne B qui m'affiche des 1 si F est complété sinon des 0. J'aimerais que la macro ne copie pas bêtement la vingtaine de ligne de mon tableau, je souhaite qu'il traite uniquement les lignes où B contient 1, qu'il sélectionne les colonnes C à F, qu'il les copie et qu'il referme le classeur source sans enregistrer aucune modification. Ensuite, il reprend le classeur destination et colle le tout sur mon nouvel onglet à la ligne A2.

Je vous joints les 2 documents au besoin pour faire des tests, les 2 docs sont enregistrés dans le même répertoire....

2source.zip (131.60 Ko)
4destination.xlsm (203.37 Ko)

Je vous remercie déjà de tout mon cœur pour l'aide que vous allez m'apporter
Excellente soirée à tous et au plaisir de vous lire

Bonjour,

Je cherche comment mettre la date de création et la date de modification du document (fichier EXCEL) dans une feuille EXCEL de ce même document. Je sais le faire dans WORD mais pas dans EXCEL (Je suis en version 2007)

En fait j'ai besoin de figer une date de saisie dés lors que la personne a saisi une signature électronique dans une cellule prévue à cet effet. Je pensai donc écrire par défaut la date de la modification du fichier (ou de la feuille) dans une cellule, d'ou mon besoin de la récupérer.

Merci pour vos lumières sur ce sujet

Bonjour,

Je suis nouveau, sur le forum et en programmation VBA

Malgré une matinée de recherche, je n'ai pas trouvé la réponse à mon problème.

Voici mon besoin :

Je voudrais crée un dossier automatiquement en appuyant sur un bouton.

L'emplacement du dossier est un chemin relatif sous \Google Drive\Projets\ car ce fichier va être partagé avec 2 autres personnes.

le nom du dossier doit être composé comme suit : ID - Raison Sociale ou Nom1 Prénom1 (si pas de Raison Sociale) - Ville

Je voudrais reprendre le bon numéro de ligne en selectionnant une cellule de cette ligne et ensuite cliquer sur le bouton.

Si le dossier existe déjà, j'aimerais avoir la cellule ID correspondante en vert.

Dans un second temps j'aimerais copier un fichier modèle automatiquement dans ce nouveau répertoire, en le renommant, et ou les données comme le nom et l'adresse seront déjà rempli dans ce modèle.

J'espère être clair et que ce ne soit pas trop compliqué à réaliser.

Merci.

Bonjour,

encore merci à ceux qui m'ont aidé lors de l'amélioration de ma première macro. voici encore une amélioration que je n'arrive pas à faire.

dans ma macro de départ, je récupère des infos que je copie dans un second onglet pour n'avoir que les valeur (donc sans formule) et je crée une copie de cet onglet dans un nouveau classeur .xlsx

Sub Bouton1_Cliquer()
Dim FE_depart As Integer, FE_fin As Integer, duree_de_boucle As Integer, chemin As String, nom As String
' génération boite pour demander numéro de FE de départ et final
FE_depart = Application.InputBox("Entrer le numéro de la première FE à génerer", Type:=1)
FE_fin = Application.InputBox("Entrer le numéro de la denière FE à génerer", Type:=1)
' boucle de création
duree_de_boucle = FE_fin - FE_depart + 1
For i = 1 To duree_de_boucle
    ' copie du numéro de FE dans sa case (pour mettre à jour la fiche)
    Range("J4").Value = FE_depart

    'copie les valeurs du premier onglet dans le second
    Worksheets("Ficheenquete2").Range("A1:L48").Value = Worksheets("Ficheenquete").Range("A1:L48").Value

    ' configure le nom et chemin d'enregistrement en utilisant le premier onglet
    chemin = ThisWorkbook.Path & "\"
    nom = "FE " & [J4].Value & "(" & [Q3].Value & ").xlsx" 'nom sous forme FE 1289 (ref doc)
    Worksheets("Ficheenquete2").Copy 'copie l'onglet avec les valeurs

    With ActiveWorkbook
        Application.DisplayAlerts = False  ' enleve le message d'alerte car il enregistre sous format xlsx
        .SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook 'enregistre l'onglet au format xlsx
        .Close
    End With
    FE_depart = FE_depart + 1  ' incrémentation
Next
End Sub

j'aimerais maintenant créer un répertoire qui aura un nom défini (variable FE_depart) et enregistrer mon nouveau classeur.xlsx dans ce répertoire. j'ai donc pensé à ça :

Sub Bouton1_Cliquer()
Dim FE_depart As Integer, FE_fin As Integer, duree_de_boucle As Integer, Nom As String, Chemin As String
' génération boite pour demander numéro de FE de départ et final
FE_depart = Application.InputBox("Entrer le numéro de la première FE à génerer", Type:=1)
FE_fin = Application.InputBox("Entrer le numéro de la denière FE à génerer", Type:=1)
' boucle de création
duree_de_boucle = FE_fin - FE_depart + 1
For i = 1 To duree_de_boucle
    ' copie du numéro de FE dans sa case (pour mettre à jour la fiche)
    Range("J4").Value = FE_depart

    'copie les valeurs du premier onglet dans le second
    Worksheets("Ficheenquete2").Range("A1:L48").Value = Worksheets("Ficheenquete").Range("A1:L48").Value

    ' configure le chemin d'enregistrement
    Chemin = ThisWorkbook.Path & "\"
    MkDir (Chemin & FE_depart)         ' cree le repertoire qui va contenir la FE

    ' configure le nom d'enregistrement en utilisant le premier onglet
    Nom = "FE " & [J4].Value & "(" & [Q3].Value & ").xlsx" 'nom sous forme FE 1289 (ref doc)
    Worksheets("Ficheenquete2").Copy 'copie l'onglet avec les valeurs

    With ActiveWorkbook
        Application.DisplayAlerts = False  ' enleve le message d'alerte car il enregistre sous format xlsx
        .SaveAs Filename:=Chemin & Nom, FileFormat:=xlOpenXMLWorkbook 'enregistre l'onglet au format xlsx
        .Close
    End With
    FE_depart = FE_depart + 1  ' incrémentation
Next
End Sub

mais bizzarement, Excel me retourne une erreur 76 sur la portion

MkDir (Chemin & FE_depart)         ' cree le repertoire qui va contenir la FE

j'ai vérifié en faisant afficher le chemin dans une boite et je n'ai pas d'espaces, par contre, Chemin & FE_depart ça donne un truc du genre " c:/....../....\FE_depart "

je me demande si l'erreur ne vient pas des / et du \ final. mais comment y remédier ?

merci d'avance pour votre aide.

Bonjour,

Etant très mauvais sur VBA (seulement quelques bases en cours) je suscite votre attention pour cette demande.

Je gère, entre-autre, un tableau de suivi d'affaires, regroupant des références de pièce par client, et par secteur d'activité.

Mon travail ne consiste pas particulièrement à perdre du temps sur ce genre de tableau et de tâches, c'est une partie dite supplémentaire qui occupe tout de même une grande partie de mon temps de travail.

Je souhaiterais que mon tableau (qui marche sans VBA à la base) me permette de créer des dossiers/sous-dossiers de façon automatique (toujours le même format de création de dossier) depuis l'étape du devis, jusqu'à l'étape de la commande.

Je m'explique :

Le but est de rentrer une, ou plusieurs lignes, avec les informations suivante (date d'entrée, secteur, client, référence, désignation, etc.). En sélectionnant les lignes créent, de pouvoir automatiquement créer des dossiers avec sous-dossiers associés suivant un chemin précis (voir Cahier des Charges dans le fichier excel) via un simple clic.

J'ai déjà pu trouver un début de macro sur le forum que j'ai testé, mais qui n'est pas assez efficace à mon goût (perte de temps à saisir les informations) : https://forum.excel-pratique.com/excel/generation-automatique-de-repertoires-et-de-sous-repertoires-t31630.html

Si vous téléchargez la v5 en p2 du sujet cité, vous aurez accès aux commentaires du code VBA.

Vous pouvez trouver mon document ci-dessous avec le cahier des charges associé sur chaque feuille.

Vous remerciant par avance pour votre aide,

En cas d'incompréhension, n'hésitez pas à poser des questions (il se peut que ma demande ne soit pas claire)

Bransy

Bonjour,

J'ai besoin d'aide de votre part sur un fichier Excel qui permet de générer des répertoires et sous répertoires à partir d'une liste. J'ai essayé de fouiller dans le forum mais je ne trouve pas pourquoi ça ne marche pas.

Pour être plus précis dans mon fichier Excel, j'aimerai générer des répertoires à partir des cellules F19 à AK(cellule la plus basse). Dans ces cellules j'ai les adresses des répertoires à créer. Il n'y a pas de caractères interdits.

Dans ma macro2, je fais juste le test avec les cellules F19 à AK19 et j'ai la moitié de mes répertoires créés. Je ne comprends pas...

Pouvez-vous m'aider?

Voici mon fichier :

Bonjour Tout le monde !

voila, je me permets de vous solliciter car j'ai beau chercher, je ne trouve pas comment faire...

je souhaite créer un raccourci vers le repertoire courant, c'est à dire celui ou se trouve le fichier excel utilisé, et le placer à l'endroit ou le souhaite l'utilisateur.

pour la premiere partie, c'est ok, j'ai trouvé comment créer un repertoire vers un emplacement pré-défini avec :

Sub Creation_raccourci_dossier_courant()

Dim nOM As String

Dim cHEMIN As String

cHEMIN = ThisWorkbook.Path

nOM = ThisWorkbook.Name

Set WshShell = CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

Set oShellLink = WshShell.CreateShortcut(strDesktop & "\D Contrôles comptes " & nOM & ".lnk") 'ici titre du raccourci**

oShellLink.TargetPath = cHEMIN 'Ici chemin complet de la cible

oShellLink.WindowStyle = 1

oShellLink.Save

MsgBox "Le raccourci a été créé et placé sur le bureau"

End Sub

(désolé, je ne sais pas comment vous faites pour mettre le code dans un petit encadré comme je vois souvent...)

meme si j'avoue ne pas trop comprendre en détail le code permettant de créer le raccourci, j'ai compris comment le créer avec le nom que je souhaite et comment définir la cible.

en revanche, j'aimerai maintenant, plutot que de pointer vers le bureau directement, ouvrir une fenêtre d'exploration pour selectionner le repertoire de destination souhaité.

un grand merci d'avance pour votre aide toujours prércieuse !

julien

Bonjour,

Je démarre en VBA et, je coince sur une erreur dans un programme developpé

l'année dernière par un stagiaire.

le fichier principal "dérogation" est une BDD simple. Le programme permet de créer un repertoire

à l'endroit ou se localise le fichier "dérogation". Le non du répertoire se trouve dans la derniere celulle

non vide de la première colonne. S'il n'existe pas, il est crée.

Sub Creer_dossier()

Sheets("Derogations").Unprotect

Dim fso

'On cache la procédure

Application.ScreenUpdating = False

'On appele l'object FileSystemObject

'Pour accéder aux fichiers, aux répertoires et aux volumes gérés par Windows,

'il faut d'abord instancier l'objet Scripting.FileSystemObject comme ceci :

Set fso = CreateObject("Scripting.FileSystemObject")

'On enregistre dans une variable l'adresse où le fichier d'Excel est enregistré

adresse = ActiveWorkbook.Path

'On sélectionne la première cellule où il y a les noms des fichiers a créer

Range("A3").Select

'On cherche dans toute la colonne jusqu'à trouver une ligne

'vide et pour chaque ligne avec texte on crée un fichier

Do While Not IsEmpty(ActiveCell)

'Si le ficher n'existe pas, on le crée

If Not fso.FolderExists(adresse & "\" & ActiveCell.Value) Then

fso.CreateFolder (adresse & "\" & ActiveCell.Value) <----- blocage sur cette ligne

'On va à la ligne suivante et on refait le boucle

ActiveCell.Offset(1, 0).Select

Loop

'On efface la valuer de fso pour recommencer

Set fso = Nothing

Application.ScreenUpdating = True

Sheets("Derogations").Protect

End Sub

Au lancement le programme coince sur la ligne :

fso.CreateFolder (adresse & "\" & ActiveCell.Value)

Je ne comprends pas d'ou vient le problème.

Merci pour votre aide

Bonjour,

je suis à la recherche d'un programme qui explorerait l'ensemble des fichiers stockés dans mon PC et dans les mémoires annexes qui lui sont raccordées (DD externe, clefs USB, ...) et qui créerait automatiquement un répertoire (sous Excel) avec titre, mots clefs, dates, ... et qui réaliserait automatiquement des mises à jours (périodicité à préciser).

Actuellement j'ai en plus du DD interne, un DD externe et une dizaine de clefs (+/- spécialisées par thèmes, dont certaines limite saturation) , et je passe plus de temps à rechercher un fichier qu'à l'utiliser ...

Je suis bien incapable de (re)programmer tout ou partie , je recherche donc un produit à installer dans le pc

merci sincèrement de vos réponses et de vos conseils.

JPhi

Bonjour à tous,

En ces temps de confinement, j'espère que tout va bien chez vous.

Ceci est mon premier message.

Je souhaiterais vous poser mon projet comme base :

1. Au départ, j'ai une feuille avec des données (de différents tableaux : regroupés et combinés

2. Ces données doivent être insérés dans un nouveau document (ou une nouvelle feuille) qui contient un texte prédéfini et obligatoire.

2bis. Ce un nouveau document (nouvelle feuille) est basé sur une référence(*) (un numéro)

2ter. La difficulté est qu'il faut un nouveau document (nouvelle feuille) par chaque référence(*)

3. Au final, il serait bien que tout ceci reste "intégré" dans un seul fichier Excel "tout en 1", si possible bien sur.

4. Mais pourquoi ce fichier "tout en 1"?

Il sera disponible sur un réseau partagé et donc accessible par différents agents (qui ont différents niveaux de connaissance Excel), donc éviter une usine à gaz...

4bis. J'ai aussi envisagé un simple publipostage avec Word (j'ai quelques réussites si, si).

Abandonné pour la raison du 4. et puis surtout ma limite technique en la matière

Au final : sur la base de mes connaissances "assez basic" ainsi que mes différentes tentatives et tests, rien n'a abouti!

Pour en rajouter une couche, les délais pour finir ce travail commencent à manquer

Je me tourne (façon de parler) vers ce "super" forum, foisonnant d'idées, de propositions, et surtout de solutions!!

Bien sur, Un bon croquis vaut mieux qu'un long discours. : en fichier joint, un fichier Excel (nettoyé de données sensibles).

Détails sur le fichier :

1ère feuille "CS" : le document destiné à recevoir toutes les données des feuilles "0549", "0550" ou "fusion (0549, 0550)"

(Données contenant les liens sont colorées en bleu)

Toutes les autres feuilles "0549", "0550" ou "fusion (0549, 0550)" : contiennent les données

Bref, "Docteur" aidez-moi... vous rendrez un "Excel user" heureux et un nouveau venu comblé

Je me tiens à votre disposition pour toute question et renseignement complémentaire.

D'avance, merci.

Longue vie à excel-pratique

Penseur

Prenez soin de vous et de votre famille

10forum-test.xlsx (21.30 Ko)

Bonjour à toutes et à tous,

J'ai parcouru un certain nombre de sites internet aidant les utilisateurs perdus sur Excel tels que moi, et, je dois dire qu'Excel-Pratique n'a pas usurpé son nom

Si j'ai besoin d'un coup de main c'est parce que je suis actuellement en stage avec pour mission de simplifier ce que l'on appelle AMDEC dans le domaine de la qualité industrielle (analyse des modes de défaillance, de leurs effets et de leurs criticités).

Le dis document est à la base rempli entièrement à la main. Pour ma part, j'ai créé un nouveau document s'appelant ADR pour Analyse Des Risques qui permettrait à l'utilisateur d'avoir une saisie "semi-automatique" puisque des données lui seraient proposées.

Ces données sont des "blocs" ou types d'opérations revenant souvent, accompagnées de leurs modes, effets et causes de défaillance potentiels ainsi que les préventions prévues. Jusqu'à maintenant j'ai réalisé des listes en cascade pour faciliter la saisie.

Cependant, l'ADR découle du processus qui est une liste d'opérations successives jusqu'à obtenir la pièce souhaitée. Il y a donc un bloc correspondant à chaque ligne d'opération du processus. Il y a plusieurs modes de défaillance pour un bloc et parfois plusieurs effets de défaillance pour un même mode. Je ne peux donc pas garder mes opérations du processus les unes en dessous des autres.

J'aimerais un programme, ou une astuce depuis les fonctions, si possible, pour faire apparaitre des lignes supplémentaires quand il le faut.

Le problème n'est pas évident pour moi et j'espère l'avoir correctement expliqué. Je joins un fichier sur lequel j'ai testé diverses choses. N'hésitez pas à me poser des questions.

Je vous remercie par avance

Bonjour,

Je souhaite créer un document Excel avec les éléments suivants (6 colonnes avec les titres ci-dessous):

 Nom et prénom de l'employé

 Domicile

Date d’accueil

 Heure d’accueil

 Salle d’accueil (avec liste déroulante des salles à disposition)

 Responsable (liste déroulante des responsables)

Le document doit avoir les fonctions suivantes:

Fonctions :

 Un responsable ne doit pas pouvoir accueillir 2 employés à la même heure et à la même date (et à 1h d’intervalle)

 Une salle ne doit pas pouvoir être utilisée par 2 responsables en même temps (date et heure)

Quelqu'un a-t-il une solution à me proposer pour réaliser cette feuille?

Cordiales salutations

Bonjour,

J'ai actuellement un fichier source qui reprend toutes les informations de chaque produits (1 ligne = 1 produits avec toutes ces caractéristiques).

Je souhaiterais créer un second tableau ou je pourrais mettre les produits que je veux. Ce fichier est propre a chaque projet et a pour but de récapitulé tout les produits que l'on va installer dans ce projet. Je souhaiterais que, quand je tappe le nom du produit dans une ligne, les informations et le format contenus sur la ligne de la base de données s'affiche dans le second fichier. La particularité est que la taille de ce fichier n'est pas limité : il peut y avoir des fichiers avec peu de produits et d'autres avec une quantité très importantes.

Pour les lignes de total, je les mettrait en haut du fichier afin que je puisse les voir directement

Connaissez vous une solution?

Particularité : Je n'ai pas access pour gérer mes données.

A+

Jimmy

Salut le Forum !

J'aimerais concevoir une macro permettant de lister tout les dossiers ainsi que leur date de dernière modification présent dans un chemin, sans les sous-dossiers.

J'ai bien essayé d'adapter une macro à mon cas (qui liste aussi les sous-répertoire) mais étant donner que la procédure va ce balader dans les sous-dossiers, elle est extrêmement lente et plante Excel :

Sub ListFolder()
Dim racine As String, fs As Object, dossier_racine As Object
racine = "N:\Perso\Excel\"         'On indique le chemin ici
Range("A:K").ClearContents
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fs.GetFolder(racine)
ligne = 1
ListFolder_2 dossier_racine, 1
End Sub
Sub ListFolder_2(ByRef Dossier, ByVal niveau)
Dim d As Object
If Dossier.Name Like "201*" Then
'La ligne que je rajoute pour que sa colle à mon cas
'Si le nom du dossier ne commence pas par 201 alors c'est un dossier
'que je ne veux pas dans ma liste
'mais du coup la procédure va quand même se balade
'dans les sous-répertoire ce qui doit la rendre lente
    Cells(ligne, niveau) = Dossier.Name
    Cells(ligne, niveau + 1) = Dossier.DateLastModified
    ligne = ligne + 1
End If
For Each d In Dossier.SubFolders
    ListFolder_2 d, niveau + 1
Next
End Sub

Donc si un connaisseur en la matière pouvait m'aider à adapter cette macro pour qu'elle soit moins lente sa serait cool ;D

Merci d'avance !

Sub TestListeFichiers()
    Dim Dossier As String

    Dossier = "C:\Documents and Settings\mimi\dossier"

    ListeFichiers Dossier

        Columns("A:E").AutoFit
    MsgBox "Terminé"
End Sub

Sub ListeFichiers(Repertoire As String)

    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Repertoire)

       i = Range("A65536").End(xlUp).Row + 1

       For Each FileItem In SourceFolder.Files

        Cells(i, 1) = FileItem.Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name

        i = i + 1
    Next FileItem

       For Each SubFolder In SourceFolder.subfolders
        ListeFichiers SubFolder.Path
    Next SubFolder

End Sub

bonjour,

je voudrais améliorer ce code pour effectuer une recherche de fichiers enregistrés par leur date de rédaction (JJ/MM/AAAA) et si possible filtrer les résultats pour n'avoir que ceux de l'année 2014 pour chaque sous dossier?

merci d'avance pour vos contributions

Bonjour à tous,

Je suis novice en utilisation d'excel et j'ai besoin de votre aide svp.

Je souhaite créer un tableau excel qui reprend toutes les tâches que je dois effectuer dans l'année soit par semaine soit par jour.

Afin de ne pas regarder mon tableau excel régulièrement, je souhaite avoir un rappel des tâches à effectuer sur mon agenda (android).

Est il possible de m'aider a créer ce tableau excel avec les recommandations pour faire le lien sur mon agenda.

N'hésitez pas à modifier le tableau joint pour que ce soit réalisable.

Je vous remercie par avance.

Adélaïde.

Bonjour,

Je lis régulièrement le forum et je remercie les nombreuses contributions qui m'ont permis de trouver de nombreuses solutions à mes problèmes. Grâce à vous, j'ai déjà pu aborder quelques codes VBA simples pour envoyer des mail avec PJ.

Seulement aujourd'hui ma demande est nettement plus complexe pour mon niveau, moi qui suis un simple utilisateur d'excel.

Pour mon activité professionnelle, j'essaie de réaliser un catalogue de produits en commande à l'aide des données de mon logiciel de gestion de stock. J'arrive parfaitement à faire ce que je souhaite avec un TCD jusqu'à l'affichage automatique de la photo du produit. Si j'ai bien compris, excel peut gérer cette fonction qu'en VBA avec des shapes. Et je n'ai aucune formation informatique.

Je cherche donc en colonne A à afficher la photo d'un produit en fonction de son code modèle et de sa couleur, photo stockée dans un répertoire spécifique en fonction de sa saison et de sa marque. Donc les photos de la colonne A sont amenées à être tout le temps modifiées en fonction de la marque, du modèle, de la couleur et de la saison. J'ai automatisé le chemin de la photo dans les colonnes A.

Ensuite, je cherche à imprimer le TCD de largeur et hauteur différentes avec les photos en face de chaque référence sans les chemins.

J'ai attaché le classeur excel avec des exemples pour mieux visualiser ma demande.

Je remercie par avance toutes celles et ceux-qui pourront répondre à ma demande.

PF_D

9test-commande.xlsm (151.47 Ko)

Recherches récentes

pmuchronomsg boxmodifier filtressinonlundi ferieuserformgmaomariolocativemailprotectioncdblcocherdatebaie informatiquemfccopier collercuveriesuivi