Résultats de la recherche

Bonjour Merci, bien sûr ,-) ta solution fonctionne, je vais m'en inspirer pour la suite Bonne journée

Bonjour Je n'y arrive pas avec range(cells( Range(Cells(32, 15)).Formula "=IFERROR(VLOOKUP(range(cells(3,6),cells(26,9)),2,False),""0"")" Merci

Merci beaucoup Efgé

Bonjour, Cette formule fonctionne dans une cellule =SIERREUR(RECHERCHEV(L32;$F$3:$I$22;2;FAUX);"0")) Mais pas celle-ci en VBA, ou fais-je l'erreur ? je ne veux pas utiliser Formula R1C1 Range("N32").Formula = "=IFERROR(VLOOKUP(L32,$F$3:$I$26,2,FALSE),""0""))" Autre exemple qui donne comme...

Exact ,-) Ca fonctionne, ça simplifie... Sub csv() Sheets("Mise_en_forme").Visible = True Worksheets("Mise_en_forme").Select Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv") If Fichier <> False Then LireCSV Fichier End If End Sub

Marcel32 Oui, en fait dans une précédente macro je vais chercher des infos dans un fichier excel ( il y a plusieurs répertoires avec un xls et un csv) et avec la macro de notre sujet je vais chercher des données dans un fichier csv qui est dans le même dossier que le précédent, comme vous l'avez...

Bonjour, Merci pour votre retour, erreur de compilation ici GestionFiS

Bonjour Merci pour votre retour. Erreur de complation ici GestionFiS

Voici le code complet et qui fonctionne bien chez moi Option Explicit Sub csv_Import() Sheets("Mise_en_forme").Visible = True Worksheets("Mise_en_forme").Select Dim Fichier As Variant Dim MyPath MyPath = CurDir 'ThisWorkbook.Path Fichier = Application.GetOpenFilename("Fichier CSV...

Bonjour, Merci beaucoup pour toutes ces infos, comme je le disais, je ne suis pas un expert, ma petite modification du code original fonctionne mais à vous lire ça veut dire qu'il vaut mieux utiliser votre procédure Bernard_XLD ? Mais ou insérer l’équivalent de Lire CSV Fichier ? Bonne journée

Merci pour vos réponses qui m'ont mis sur la piste, le code ci-dessous semble fonctionner A la seconde ouverture, je vais bien chercher le 2éme fichier dans le même répertoire. Bonne soirée

Bonjour, N'étant pas un expert ;-( je bloque sur ce petit code, j'ai remplacé ChDir par CurDir pour rester dans le même répertoire à l'ouverture d'une autre fenêtre mais il y a une erreur ici If Fichier <> False Then Pouvez-vous m'aider c'est visiblement pas la bonne procédure Merci ' ChDir...

Bonjour, exact, j'ai testé pour ceux que j'utilise le plus souvent avec *.jpg - *.mov - *.mts - *.mp4 Avec du vba il n'est peut-être pas possible d'obtenir les mêmes infos que nous donne par exemple MediaInfo. Pour terminer peut-être, J'ai une préférence pour le code du post #27, qui me...

@Marcel32 C'est peut-être vrai pour les vidéos mais les tests et les utilisations que j'en fait sont jusqu'a présent qu'avec des jpg et qui peuvent être sur differentes machines et suivant l'os je n'avais pas les mêmes codes d'ou la procédure pour identifier les codes de chaque pc ou le fichier...

@Marcel32 Juste pour info, sous quel os es-tu ? c'est bizarre avec ma macro ça fonctionnait sur toutes les versions à partir de Win 8 et même sous win 11, je pense que la macro de Patricktoulon dois marcher aussi puisque l'on trouve les mêmes résultats... les mystères de l'informatique ? Oui...

Merci à vous deux pour votre investissement, je pensais que Patrick le faisait pour le plaisir mais il dit qu'il y travaille, je n'ai pas encore négocié le taux horaire mais je crains que cela soit au dessus des moyens de l'assos... :) :) En pièce jointe l'extraction sur mon PC avec le code du...

Bravo Chez moi avec ta proposition et for x =1 to 350 les codes sont ceux que j'ai donné plus haut Largeur de trame Hauteur de trame Taille Débit total (en bits) 316 314 1 320 Pour info j'avais remarqué que suivant les versions de Windows ou peut-être des plateformes (mais peu probable...

Patricktoulon Très bonne réflexion, j'ai modifié le lecteur pour lecture par défaut par VLC, chez moi, ma macro qui extrait toutes les propriétés me donne les mêmes codes Largeur de trame Hauteur de trame Taille Débit total (en bits) 316 314 1 320 Il y a toujours le plantage sur...