Macro un peu Spécial

Le 06/01/2016 à 22:09

Bonsoir a tous,

je ne c'est pas si cela est possible mais je pose tout de meme ma questions =)

je suis à la recherche d'une macro pour des qu'on enregistre le fichier par exemple sur le bureau celui ci va s'auto enregistré aussi sur un serveur ou on lui auras indiqué le chemin, celui ci s'enregistrera sous le nom suivant: nomdufichier-date-de-l'enregistrement.

comme ca si erreur sur le fichier on clique sur le bouton approprié et on va sélectionné le fichier qu on souhaite

Merci à tous pour votre aide

Le 06/01/2016 à 22:27

Bonsoir,

Essayez ce qui suit:

Allez vers le module du classeur c'est à dire "ThisWorkbook".
Dans la liste déroulante qui lit "General" chosissez "Workbook"
Dans la liste des événements choisissez "BeforeSave"
Puis collez et adaptez le rudiment qui suit à vos chemins d'accés

ThisWorkbook.SaveAs "chemindeversvotreserverur\" & ThisWorkbook.Name & "_" & Date & ".xlsm"

Je ne l'ai pas essayer, mais ça devrait marcher.

Bien cordialement.

Le 06/01/2016 à 22:37

ok merci pour ta réponse rapide

par contre j'ai deja du code de présent

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now

Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Sheets("Espion").[M2] 'Environ("username")

Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")

' Sheets("espion").Visible = xlVeryHidden

' For s = 2 To Sheets.Count ' on masque les feuilles

' Sheets(s).Visible = xlVeryHidden

' Next s

End Sub

Private Sub Workbook_Open()

Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now

Sheets("espion").Visible = xlVeryHidden

End Sub

sa ne gêne en rien ?

Le 06/01/2016 à 22:58

Votre code s'occupe seulement à faire une sorte de Log de sauvegarde dans la feuille Espion, ça ne gene en rien si vous y ajoutiez le petit code que je vous ai proposé en tout dernier de la procédure BeforeSave, ça ira parfaitement, évitez seulement d'introduire mon code à l’intérieur d'une boucle For Next.

Bon courage.

Le 06/01/2016 à 23:00

merci pour ces précision =)

:s