Macro de sauvegarde de workbook avec chemin du dossier cible

Re : Macro de sauvegarde de workbook avec chemin du dossier cible

Bonjour SaiSai Boundao

Déjà si tu mets un texte en tre guillemets, avec un caractère interdit, ce n'est pas possible. Il te faut supprimer tes guillemets après save as ou lui définir avant:

ex: NOMAsauver= chemin & "\NomFichier.xlsm"

Exemple:

Re : Macro de sauvegarde de workbook avec chemin du dossier cible

Merci beaucoup, j'ai utilisé la ligne de code sans utiliser votre macro...je ne l'avais pas vu 😛😉

Puis savoir la difference qu'il y a entre l'utilisation de activeworkbook et thisworkbook?

Sub Classeursarchivés()

Dim nom As String
Dim chemin
Dim NOMAsauver

nom = ActiveWorkbook.ActiveSheet.Cells(4, 2) & Format(Date, "_dd-mm-yyyy") & Format(Time, "_hhmm") & ".xls"
chemin = "c:\Laminastar\Data\"
NOMAsauver = chemin & ActiveWorkbook.ActiveSheet.Cells(4, 2) & Format(Date, "_dd-mm-yyyy") & Format(Time, "_hhmm") & ".xls"
ActiveWorkbook.SaveCopyAs NOMAsauver
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde fichier")


Merci, c'est vraiment agréable l'entraide sur ce forum 😀😀😀😀😀😀😀😀😀😀😀😀


End Sub

Re : Macro de sauvegarde de workbook avec chemin du dossier cible

Re

activeworkbook c'est le fcihier actif et thisworkbook c'est le fichier actif qui lance le code 🙂. Sinon, tu peux essayer de faire de la formule1 (humour 😱).

Re : Macro de sauvegarde de workbook avec chemin du dossier cible

😛 Pas de circuit au Sénégal 😛

Merci encore MJ13