Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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...
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...
Bonsoir à tous !
Je souhaite archiver automatiquement mes documents à partir d'un répertoire fixe vers des répertoires variables selon le nom du document.
1- je récupère les documents postés dans le répertoire fixe sur la colonne A et B
2 - via des formules je découpe en colonne D,E,F et G
3...
Bonjour à tous !
Je m'explique j'aimerai renseigner un CODE, celui-ci étant une composante d'un objet.
Par conséquent, si je cherche un composant via le CODE j'aimerai avoir la "liste" (= les images les unes après les autres) des objets qui ont ce composant dans leur fabrication.
Voici le...
Jacky67 et mapomme vous avez trop raison ..mais oui elles étaient fusionnées...😫.
Du coup je comprends que j'avais la bonne approche ? mais pas la bonne technique puisque du coup ça fonctionne !!
merci à tout les deux ! :D
Bonjour à tous :)
Voilà j'avance plutôt bien sur mon projet (cool pour moi^^') mais je tourne tout de même en rond depuis des jours.. sur une volonté de déverrouiller certaines cellules sur une feuille bloquée par mot de passe. Par conséquent je souhaite que chaque username ai un accès...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.