Dim Chemin1, Client, Fichier as String Chemin1 = "C:\Users\GRANBY2\Documents" Client = Range("F6").value Fichier = Range("F7").value
select case cellule("b:62").value case 56 Chemin = "c:\Arthur" case 37 chemin = "c:\fred" case 36 chemin = "c:\délima" case 12 chemin = "c:\Bertha" case else chemin = "c:\tous les autres end select
for i = 1 to 100 chemin = "c:\clients" & tableau(i) & "\données.xls" next i
Sub Enregistrement() Dim Chemin1, Client, Fichier as String Chemin1 = "C:\Users\GRANBY2\Documents" Client = Range("F6").value Fichier = Range("F7").value If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client ActiveWorkbook.SaveAs Chemin1 & Client & "" & Fichier End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question