Bonjour le forum,
Je sais que le sujet a été mille fois abordé, mais malgré mes recherches, je ne trouve pas de solutions, mais surtout, je ne comprends pas où est l'erreur dans mon code...!
Par un bouton, le code devrait (si tout se passait bien) "enregistrer-sous" le classeur ouvert, renommé selon un schéma bien précis, dans un coins d'ordinateur bien précis lui aussi...! Le classeur reste donc ouvert tel quel, mais avec son nouveau nom!
Mais il me mets l'erreur 1004 au niveau du SaveAs...
J'ai contrôlé mes références, tout semble juste. Mais à force de tourner en rond, je crois que je ne vois plus rien! Ca doit sûrement me crever les yeux!
Merci pour votre aide!
PS: je ne sais pas si cela peut avoir un rapport: l'adresse d'enregistrement se trouve être un fichier en réseau...
Voici mon code:
Je sais que le sujet a été mille fois abordé, mais malgré mes recherches, je ne trouve pas de solutions, mais surtout, je ne comprends pas où est l'erreur dans mon code...!
Par un bouton, le code devrait (si tout se passait bien) "enregistrer-sous" le classeur ouvert, renommé selon un schéma bien précis, dans un coins d'ordinateur bien précis lui aussi...! Le classeur reste donc ouvert tel quel, mais avec son nouveau nom!
Mais il me mets l'erreur 1004 au niveau du SaveAs...
J'ai contrôlé mes références, tout semble juste. Mais à force de tourner en rond, je crois que je ne vois plus rien! Ca doit sûrement me crever les yeux!
Merci pour votre aide!
PS: je ne sais pas si cela peut avoir un rapport: l'adresse d'enregistrement se trouve être un fichier en réseau...
Voici mon code:
Code:
Private Sub CommandButton21_Click()
Dim Titre As String
Dim LeClient As String
Dim LeNomClient As String
Dim LObjet As String
Dim nomfichier As String
Dim LeRep As String
Dim Extention As String
Titre = Worksheets("Tabelle1").Range("D1").Value
LeClient = Worksheets("Tabelle1").Range("K2").Value
LeNomClient = Worksheets("Tabelle1").Range("K3")
LObjet = Worksheets("Tabelle1").Range("K4")
LeRep = "N:\XXX\YYYY\ZZZZ"
Extention = ".xlsm"
nomfichier = Titre & "_" & LeClient & "_" & LeNomClient & "_" & LObjet & Extention
ThisWorkbook.SaveAs Filename:=LeRep & "\" & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Dernière édition: