enregistrement excel en double

[djodjo60]

Bonjour
Je voudrais enregistrer le même fichier excel (2007) dans deux dossiers différents (ex : une sur c:/ et l'autre du u:/).
Avez vous une solution !!
Merci de votre aide ...
JT

 

[PMO2]

Re : enregistrement excel en double

Bonjour,

Une piste avec le code suivant qui fonctionne sur ma machine (XP et Excel 2003).
Il vous faudra adapter la constante DOSSIER_EXTERNE à votre usage.

Code à copier dans la fenêtre de code de ThisWorkbook

'### Constante à adapter ###
Private Const DOSSIER_EXTERNE As String = "J:" 'sans le BackSlash (\)
'###########################

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook
  .Save
  '--- Si on est sur le Classeur principal ---
  '--- (et non sur le Classeur double)     ---
  '--- on enregistre le double             ---
  If .Path <> DOSSIER_EXTERNE Then
    .SaveCopyAs DOSSIER_EXTERNE & "\" & .Name
  End If
  '-------------------------------------------
End With
End Sub

Merci de me dire si cela fonctionne chez vous.

Cordialement.

PMO
Patrick Morange