Re : Changement De Repertoire
J'ai trouvé à moitié
Je sauvegarde 2 fois sur le répertoire par défaut et sur le lecteur du fichier principal. Je m'explique si je travail sur le fichier d:\gironde\bordeaux je voulais que la sauvegarde se fasse sur d:\gironde elle se fait sur d:\ le principal est que ce soit sur la clé USB en plus de mes documents.
'ChDir "C:\"
ActiveWorkbook.SaveAs Filename:=(Chr)
'D:
Range("A2").Select
ActiveCell.FormulaR1C1 = "=[CNC10_2006.xls]SAISIE!R2C1"
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
'0gva
Range("A3").Select
ActiveCell.FormulaR1C1 = "=[CNC10_2006.xls]SAISIE!R2C2"
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Range("a4").Value = ActiveWorkbook.Name
Range("A4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Dim chemin As String
Dim repertoire As String
Dim nomdufichier As String
Dim dir As Variant
With ActiveWorkbook
.Save
chemin = Range("a2")
repertoire = Range("a3")
dir = ("chemin & repertoire")
nomdufichier = Range("a4")
.SaveAs Filename:=chemin & nomdufichier
End With
Ce site et son forum son vraiment bien. Je ne suis pas encore au niveau de certains.