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.
J'ai réussi à réaliser la boucle de copier/coller des fichiers présents dans la liste, mais uniquement les deux premiers fichiers (deux premières lignes) sont prises en compte.
voici le code :
Sub Transfert()
Dim objShell As Object, objFolder As Object, oFolderItem As Object, fso As Object...
Bonjour,
Oui effectivement, j'ai noté cette erreur que j'avais corrigé, en simplifiant d'ailleurs des notifications dans le code qui n'avaient pas d'intérêt...
j'en suis pas loin dans la résolution de mon affaire:
Code revu :
Sub Transfert()
Dim objShell As Object, objFolder As Object...
Bonjour,
J'affecte à inter2 la cellule lue par la boucle for each / Next. ( ActiveWorkbook.Sheets("Feuil2").Cells(counter, 1) = Inter2 ). Il semblerait que les termes de l'égalité soient peut-être inversés...
Par contre en corrigeant les termes comme ci-dessous, toujours le même message...
Bonjour,
Entrant dans le monde vba, j'ai quelques soucis sur des requêtes d'automatisation...
J'ai généré un listing arborescence/ nom_de_fichier de fichiers de formats divers (txt, pdf, etc...) présents dans des arborescences différentes.
Ces informations sont renseignées dans une feuille...
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.