Export données Excel vers signets Word
Salut,
J'ai fait ce code afin d'exporter un graphique d'excel vers un document Word :
Code:
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:
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:
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
problème lors export données Excel vers signets Word
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
