Discussion :

[stephanies_1977]

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

[stephanies_1977]

Bonjour,

à titre d'info, j'ai résolu mon problème en retirant la sauvegarde automatique lors de l'ouverture du fichier, et j'ai enfin compris le système des procedures evenementielles, grace a quoi mon fichier se sauvegarde dés qu'un cellule est remplie !

Stéph