Discussion :

[buigui]

Bonjour

Sur Publisher, je scripte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub SAUVEGARDER()
 ActiveWorkbook.SaveCopyAs ("D:\SAUVEGARDE.pub")
End Sub

Je n'ai pas de résultat ni de fenêtre de message d'erreur.

Y-a-t-il une solution svp?
Guillaume

[kiki29]

Salut, à adapter à ton contexte, voir aussi via l'aide en ligne [F1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.SaveAs ThisDocument.Path & "\" & "SAUVEGARDE.pub"