Vba - fichier descripteur d'une image

[millauman]

Bonjour,
J'ai un exercice à vous proposer, moi je m'y perds, et puis pour tout dire je suis une bille en Vba 😱

J'ai réussi à générer à partir d'excel un fichier texte qui contient des infos relatives à une image.
Ce fichier texte vient se positionner dans un dossier "images".
Ce dossier "images" contient n images (il peut varier).

Je voudrais faire une boucle qui me permette:
-de dupliquer ce fichier texte autant de fois qu'il y a d'images dans ce dossier.
-de récupérer le nom de chacune de ces images (pas l'extention qui est .tif) pour renommer mon fichier texte associé en 'nom de l'image.GWF'... c'est clair ??
Si y'en a que ça intéresse ?! Moi ça me dépannerait.
Par avance merci

 

[skoobi]

Re : Vba - fichier descripteur d'une image

Bonjour millauman,
Cette macro copie le fichier "Doc1.txt" depuis un répertoire à adapter autant de fois qu'il y a de fichier ".tif" en reprenant le nom de ces derniers.

Sub test()
Dim Fich As String, Chemin As String
Chemin = "C:\Dossierimage\"
Fich = Dir(Chemin)
Do
  Fich = Dir()
  If Fich Like "*.tif" Then FileCopy Chemin & "Doc1.txt", Chemin & Left(Fich, Len(Fich) - 4) & ".gwf"
Loop Until Fich = ""
End Sub

Bonne soirée.

 

[millauman]

Re : Vba - fichier descripteur d'une image

Merci Skoobi
En l'adaptant un peu, ton code répond parfaitement à mes attentes.
Promis je m'y mets bientôt à Vba 🙂)