Squoltahthx94
XLDnaute Occasionnel
Bonjour,
J'utilise le code suivant
Pour enregistrer le fichier excel sous un certains format.
Je souhaiterais que celui-ci maintenant l'enregistre directement dans le répertoire dont la valeur est contenue dans le combobox1 de l'userform1...quelqu'un aurait-il une idée ? Je me doute que je dois insérer quelque chose comme userform1.combobox1.value quelque part mais je ne vois pas comment faire et les quelques essais mené ce sont révélé infructueux.
Merci d'avance
J'utilise le code suivant
Code:
Dim ChDir As String
Dim NomFichier As String
Dim NomCompletFichier As String
Dim Site As String
Dim Annee As String 'nom perqsonne
Dim Matricule As String
ChDir = Application.ActiveWorkbook.Path 'Chemin courant
'ChDir = "M:\base devis\"
Site = Me.Range("b5").Value
'Site = Me.Range("A1").Value
Annee = "2012"
Matricule = Me.Range("B7").Value
'Matricule = Me.range("A2").Value qui est le numéro de devis initial
NomFichier = Site & "_" & Annee & "_" & Matricule
'Ligne définitive :
'NomCompletFichier = ChDir & "\" & NomFichier
'Pour les tests, on ajoute l'heure au nom de fichier ; ainsi, il n'y a pas de doublon de noms
Dim stHeureExport As String
stHeureExport = "_" & _
Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & _
Format(Second(Time), "00")
NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport
'Copie de la feuille courante dans un nouveau classeur et enregistrement
Sheets(Array("Proposition", "Cotation")).Copy
ActiveWorkbook.SaveAs Filename:=NomCompletFichier
ActiveWorkbook.Close
MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
CommandButton2.Enabled = True 'je permet la mise en place des prix
Pour enregistrer le fichier excel sous un certains format.
Je souhaiterais que celui-ci maintenant l'enregistre directement dans le répertoire dont la valeur est contenue dans le combobox1 de l'userform1...quelqu'un aurait-il une idée ? Je me doute que je dois insérer quelque chose comme userform1.combobox1.value quelque part mais je ne vois pas comment faire et les quelques essais mené ce sont révélé infructueux.
Merci d'avance
Dernière édition: