Bouton enregistrement vers dossier
Bonjour,
je souhaiterai adapter à mes besoin une macro trouvé sur internet qui fonctionne très bien joint ci-dessous
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
je souhaiterai pouvoir enregistre le fichier vers un dossier de mon choix grâce à un bouton et également nommer ce fichier avec les donnée d'une cellule + date du jour + 3 lettres .xlsx
ci-joint fichier exemple avec le bouton qui enregistre le fichier sur le bureau avec date et le nom d'origine du fichier .
merci pour votre aide
super
ça marche nickel !
un grand Merci pour cette macro !
question :
dans le répertoire ou s’enregistre le fichier j'ai 2 images.jpg qui sont en correspondances avec le fichier excel (qui maintenant s'enregistre automatiquement
serait-il possible de faire la même chose avec un bouton qui renommerait les images.jpg de mon répertoire avec les infos de la cellule C4
ce qui donnerai : infos cellule C4 +date+les 3 lettres . jpg
cette fonction serait le top du top , il manquerait plus qu'un bouton pour me servir un café
Merci
Bonjour noob40
Il y a une erreur dans le code précédent quand vous appuyez sur : Annuler dans le boite de dialogue
Et voila la correction
Sub Enregistrer_Une_Copie()
Dim ENDROIT As String, Nom_De_Fichier As String
N1 = Range("C4").Text ' le contenu de la cellule C4
If N1 = "" Then Exit Sub
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
If .Show = -1 Then
ENDROIT = .SelectedItems(1) & "\"
On Error GoTo 100 'Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.ActiveSheet.Copy
Nom_De_Fichier = N1 & "_" & Format(Date, "ddMMyy") & "_S_BP.xlsx"
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=ENDROIT & Nom_De_Fichier
.Close
MsgBox "Votre base de données est sauvegardée dans le chemin : " & Chr(10) & ENDROIT, vbInformation, ""
End With
Else
End If
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
100
End Sub
Bonjour Belkacem64,
merci pour ton nouvelle macro avec correction 'annule' effectivement j'avais une message de débogage lorsque j'annuler , cette nouvelle macro est PERFECT
Salutation
cette macro (ci-dessous ) associer à un bouton me permet de renommer mon image.jpg dans mon dossier cible , cependant j'aimerai que l'image.jpg se renomme avec les infos de la cellule c4 + date + 3 lettres (S_BP).XLSX
Sub RenommeFichier()
Dim AncienNom As String, NouveauNom As String
AncienNom = "C:\Documents and Settings\dossier\NomInitial.pdf"
NouveauNom = "C:\Documents and Settings\dossier\Nom modifié.pdf"
'Vérifie si le fichier à renommer existe.
If Dir(AncienNom) = "" Then Exit Sub
'Renomme le fichier
Name AncienNom As NouveauNom
End Sub
Merci pour votre aide
problème résolu
voici la macro qui permet de renommer un fichier dans un répertoire à partir d'une cellule
Sub RenommeFichier()
Dim AncienNom As String, NouveauNom As String
AncienNom = "C:\Users\fabien\Desktop\test\1.JPG"
NouveauNom = "C:\Users\fabien\Desktop\test\" & Range("C4") & "_" & Format(Date, "ddMMyy") & " _s_BP.JPG"
'Vérifie si le fichier à renommer existe.
If Dir(AncienNom) = "" Then Exit Sub
'Renomme le fichier
Name AncienNom As NouveauNom
End Sub