Contenu récent par Nermal64

Oui, bonjour, Après modifications, le code marche impeccable... Merci beaucoup pour le temps passé sur mes pérégrinations!

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...

Oui, pas de souci ! J'ai positionné le dossier comportant les données au format zip. Merci beaucoup de vous pencher sur mes soucis!!

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...