Contenu récent par pulelian

Bonjour à tous, Je souhaiterai créer des vues afin de pouvoir mieux saisir des données sur des tableaux qui peuvent ne plus en finir en termes de colonnes. J'aimerai ainsi que certaines colonnes soient masquées en fonction de critère défini dans une autre feuille, DATA. Et cela pour tout mes...

Bonjour, Je souhaite récupérer les noms des dossiers sur les cellules de la colonne 9, à la suite. Je tourne pas mal mon soucis dans tout les sens, mais je ne parviens pas à trouver pourquoi ce code marché avant mais plus maintenant : Sub Dossier_BDD_Doc_maj() Sheets("DOC_Aide...

oui le code suivant fonctionne : Sub MoveFiles() 'Nécessite que TOUT les dossiers mois soient crée dans chaque catégorie et sous-catégorie !!!!sinon le code ne marche pas !! Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As Variant Dim xSPath As...

je pense avoir trouvé (la honte..) .. je reviens dans quelques minutes pour la réponse finale ^^

oui : Cela me semble correcte

ok, oui j'ai cru comprendre et modifié comme suit : Sub MoveFiles() 'Nécessite que TOUT les dossiers mois soient crée dans chaque catégorie et sous-catégorie !!!!sinon le code ne marche pas !! Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As...

Je cherche à faire : Pour tout fichier dont l'extension est ("*.xlsx*", "*.jpg", "*.pdf", "*.xlsm") dans le dossier \Ranger (chemin fixe), alors déplace les documents selon le chemin qui lui ai correspondant (ici via récupération des données = nom des docs sur des cellules, puis grâce à des...

je commence à comprendre. Je cherche plutôt à ce que les fichiers originaux soient déplacés vers ces dossiers

les documents (fichier) dont les extension peuvent être ("*.xlsx*", "*.jpg", "*.pdf", "*.xlsm")

et bien pour le document dont les infos sont les suivantes (ligne 1) : 2019-10-10_FRS_A. FACTURE_AMAZON_num_Apple airpods avec boitier de charge pdf B. FOURNISSEUR A. FACTURE 2019 10 le classer dans le dossier B.FOURNISSEUR\A. FACTURE\2019\10 et pour le document dont les infos sont les...

Sub MoveFiles() 'Nécessite que TOUT les dossiers mois soient crée dans chaque catégorie et sous-catégorie !!!!sinon le code ne marche pas !! Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As Variant Dim xSPath As String Dim xDPath As String...

J'ai rétabli le Next cell (celui commenté tout en bas), puis erreur sur l'utilisation du Next. Donc j'ai fait cela : Sub MoveFiles() Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As Variant Dim xSPath As String Dim xDPath As String Dim...

Dranreb re, J'ai crée les dossiers mensuels aussi dans B. CONTRAT, le code s'est enfin exécuté d'où l'explication de l'erreur 2, mercii ! cela me débloque pas mal! Pour mon exemple, les 2 docs : 2019-10-10_FRS_A. FACTURE_AMAZON_num_Apple airpods avec boitier de charge pdf B. FOURNISSEUR A...

Bonjour Dranreb, Les dossiers 2018 et 2019 existaient déjà. J'ai, dans le doute, crée aussi les dossiers faisant référence aux mois (de 1 à 12) et ai joué le code cependant toujours cette fameuse erreur : merci pour ta réponse quand même ^^

Bonjour BrunoM45, Lect = USB est défini via une fonction plus loin dans le module : 'Lect = USBD Function USBD() Set fs = CreateObject("Scripting.FileSystemObject") Tmp = "" For Each d In fs.Drives If d.DriveType = 1 Then If d.IsReady Then Tmp = Tmp & d.DriveLetter End If...