Demande d'aide pour macro vba EXCEL
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:
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