If ComboBox1.Value = "David" Then ActiveWorkbook.SaveAs Filename:= _ chemin1, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ElseIf ComboBox1.Value = "Denis" Then ActiveWorkbook.SaveAs Filename:= _ chemin2, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False
Sub Enregistrement() ' macro pour sauvegarder sous a l'aide d'un bouton formulaire ' les trois variables Dim Chemin1, Client, Fichier '1er variable emplacement du futur dossier Chemin1 = "C:\Users\GRANBY2\Documents" '2eme variable nom du dossier Client = Range("F6") ' 3eme variable nom du fichier excel Fichier = Range("F7") Chemin1 = Chemin1 & Client & "" & Fichier If ComboBox1.Value = "Christian" Then ActiveWorkbook.SaveAs Filename:= _ chemin1, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False etc... End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Chemin1, Client, Fichier
Dim Chemin1 as string, Chemin2 as string, Chemin3 as string, Client as string, Fichier As String
la notion de contenir n'est peut etre pas exacte,
c'est juste pour comprendre le fonctionnement.
Code Visual Basic :
Sheets("NomOnglet").MonImage.Picture
= LoadPicture(CheminDeImage & FichierName & ".jpg")
Sub test_save() ' ' macro pour sauvegarder sous a l'aide d'un bouton formulaire ' les trois variables Dim Chemin1, Client, Fichier '1er variable emplacement du futur dossier Chemin1 = "C:\Users\GRANBY2\Documents" Chemin2 = "C:\Users\GRANBY2\Images" Chemin3 = "C:\Users\GRANBY2\Musique" '2eme variable nom du dossier Client = Range("E7") ' 3eme variable nom du fichier excel Fichier = Range("E5") Chemin1 = Chemin1 & Client & "" & Fichier If ComboBox1.Value = "david" Then ActiveWorkbook.SaveAs Filename:= _ Chemin1, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ElseIf ComboBox1.Value = "denis" Then ActiveWorkbook.SaveAs Filename:= _ Chemin2, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ElseIf ComboBox1.Value = "christian" Then ActiveWorkbook.SaveAs Filename:= _ Chemin2, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End If End Sub
Sub test_save() ' ' macro pour sauvegarder sous a l'aide d'un bouton formulaire ' les trois variables Dim Chemin1, Client, Fichier '1er variable emplacement du futur dossier Chemin1 = "C:\Users\GRANBY2\Documents" Chemin2 = "C:\Users\GRANBY2\Images" Chemin3 = "C:\Users\GRANBY2\Musique" '2eme variable nom du dossier Client = Range("E7") ' 3eme variable nom du fichier excel Fichier = Range("E5") Chemin1 = Chemin1 & Client & "" & Fichier & ".xls" Chemin2 = Chemin1 & Client & "" & Fichier & ".xls" Chemin3 = Chemin1 & Client & "" & Fichier & ".xls" If ComboBox1.Value = "david" Then ActiveWorkbook.SaveAs Filename:= _ Chemin1, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ElseIf ComboBox1.Value = "denis" Then ActiveWorkbook.SaveAs Filename:= _ Chemin2, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ElseIf ComboBox1.Value = "christian" Then ActiveWorkbook.SaveAs Filename:= _ Chemin3, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End If End Sub
Private Sub ComboBox1_Change() Feuil2.Range("E6") = UserForm1.ComboBox1 End Sub