Enregistrement fichier sur un autre dossier
fusaaaa
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai aujourd'hui besoin de votre aide concernant un code VBA utilisé pour l'enregistrement d'un fichier excel dans un autre dossier, tout en le renommant, lorsque l'on appuie sur un bouton disponible sur la fiche.
J'ai pu trouver une possibilité de code en glanant sur internet, cependant lorsque je tente de le mettre en place, j'ai une erreur d'exécution 1004 "La méthode SaveAs de l'objet Workbook a échoué"
Je souhaite en fait que ce fichier soit copier sur un autre dossier, partagé, en le renommant selon des variables apparaissant sur la feuille excel, préalablement remplie par l'utilisateur.
Voici mon code :
Dim nom As String
Dim prenom As String
Dim datecrea As String
Dim etat As String
Sub Sauvegarde()
Dim NomFichier As String
NomFichier = "\\srv-pierre\DGAS-PRS\1-SBSL\FICHES MOBILITES\TESTS\" & etat & nom & prenom & datecrea & ".xlsm"
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=52
End Sub
Merci par avance pour votre aide !
J'ai aujourd'hui besoin de votre aide concernant un code VBA utilisé pour l'enregistrement d'un fichier excel dans un autre dossier, tout en le renommant, lorsque l'on appuie sur un bouton disponible sur la fiche.
J'ai pu trouver une possibilité de code en glanant sur internet, cependant lorsque je tente de le mettre en place, j'ai une erreur d'exécution 1004 "La méthode SaveAs de l'objet Workbook a échoué"
Je souhaite en fait que ce fichier soit copier sur un autre dossier, partagé, en le renommant selon des variables apparaissant sur la feuille excel, préalablement remplie par l'utilisateur.
Voici mon code :
Dim nom As String
Dim prenom As String
Dim datecrea As String
Dim etat As String
Sub Sauvegarde()
Dim NomFichier As String
NomFichier = "\\srv-pierre\DGAS-PRS\1-SBSL\FICHES MOBILITES\TESTS\" & etat & nom & prenom & datecrea & ".xlsm"
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=52
End Sub
Merci par avance pour votre aide !
