Bonjour à tous,

Je vous explique mon "probleme"

Photographe scolaire je cherche une solution pour exporter automatiquement une liste d'eleves sous excel ( colonne A Nom Colonne B Prénom ) vers leur photos respectives

1er nom prenom -> 1ere photo etc etc

j'ai déjà une version "beta" qui marche (dossier racine c:\TEMP pour les photos a modifier ) mais j'aimerai l'améliorer en mettant deux boutons supplémentaires : DOSSIER SOURCE et dossier DESTINATION

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub rename()
   Dim StrFile As String
   Dim WD As String
   WD = "D:\temp\"
    StrFile = Dir(WD)
        Set Rng = Range("Tab")
            For Each c In Rng
            If c.Next.Value <> "" Then
                Name WD + StrFile As WD + UCase(c.Value) + " " + UCase(c.Next.Value) + ".jpg"
                 StrFile = Dir
            End If
            Next
End Sub



cela me permettrai de gagner du temps.

Merci par avance