Zur Erzeugung von Diagrammen führe ich folgende Vorgänge durch:

1. Export einer Access Abfrage in eine Excel Datei (z.B. "Mappe1")
2. Danach öffnen der Excel Datei "Mappe1"
3. Öffnen einer weiteren Excel Datei "Mappe2" wo in mehreren Tabellenblättern unterschiedliche Diagramme basierend auf den Daten der "Mappe1" erstellt werden.
4. In der Datei "Mappe2" werden die verschiedenen Diagramme über eine Schaltfläche automatisch in eine PDF Datei exportiert und gespeichert.

Über den manuellen Anstoss dieser einzelnen Punkte funktioniert das Ganze problemlos.
Meine Frage wäre, ob dieses schon in der Prozedur des Punktes 1 automatisch angestossen werden kann?

Der Punkt 1 wird mit folgender Prozedur angestossen:

Sub RepDiaGesexp(control As IRibbonControl)
On Error GoTo Err_RepDiaGesexp

Const ConErrNotUpdatable = 2501

Dim Exportpfad1 As String
Exportpfad1 = DLookup("[Pfad]", "T_Exportpfade", "[ID] =" & 6)
Dim stDocName As String
stDocName = "Export_Spielbericht"

If IsNull([Forms]![Spielberichtsauswertungen].Spielauswahl) Then
MsgBox ("Sie müssen natürlich zuerst ein Spiel auswählen"), vbInformation
DoCmd.CancelEvent
ElseIf MsgBox("ACHTUNG - Sie sind im Begriff die Daten der Abfrage in den Ordner '" & Exportpfad1 & "' zu exportieren!!", vbYesNo + vbExclamation, "Diagramm Spielbericht exportieren?") = vbYes Then
ElseIf Dir(Exportpfad1, vbDirectory) <> "" Then
Shell "explorer.exe """ & Exportpfad1 & """", vbNormalFocus
Else
MkDir Exportpfad1
Shell "explorer.exe """ & Exportpfad1 & """", vbNormalFocus
End If
ChDir Exportpfad1
DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLSX

Exit_RepDiaGesexp:
Exit Sub

Err_RepDiaGesexp:
If Err.Number = ConErrNotUpdatable Then
MsgBox ("Wählen Sie bitte einen anderen Bericht")
End If

Resume Exit_RepDiaGesexp

End Sub

Für eine Hilfe wäre ich sehr dankbar