Salut,

J'ai fait ce code afin d'exporter un graphique d'excel vers un document Word :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Worksheets("GRAPH II").ChartObjects("GRAPHIQUE 1").Activate
        ActiveChart.ChartArea.Select
        ActiveChart.ChartArea.Copy
        WordDoc.Bookmarks("GRAPHNAT").Range.Paste
        Application.CutCopyMode = False
au passage de la ligne 4 à la ligne 5, je ne sais pour quelle raison, je tombe sur mon code se trouvant dans "This Workbook" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_Open()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Une autre solution serait que au lieu de me demander de sauvegarder mon fichier à l'ouverture, une sauvegarde automatique se fasse lorsque j'introuduis des infos dans une cellule bien précise à l'aide du code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub SaveWorkbook()
 
Dim Chemin1$, Client$, Fichier$, Jour$
Chemin1 = "C:\Offer\"
Jour = Format(Now(), "yyyymmdd")
Client = Range("B3")
Fichier = "Analyse" & "_" & Client & "_" & Jour & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
 
End Sub
est-ce que quelqu'un paut m'aider ????

Merci