Discussion :

[pat_che]

Bonjour,

un clic sur un bouton de formulaire teste l'existence d'un fichier Excel avant de l'ouvrir.
Si il existe : il s'ouvre.
S'il n'existe pas encore : un fichier modèle en lecture seule s'ouvre.
Et une boite de dialogue demande l'enregistrement sous un autre nom.

Le problème : la boite de dialogue est invisible depuis Excel. Il faut repasser par Access pour répondre.

Comment faire pour que cette boite de dialogue s'ouvre devant excel ?

merci de votre aide.
Pat.

[Jeannot45]

Ou se trove l'appel de l'ouverture de la boite de dialogue d'enregistrement.
As-tu essayé de la positionner dans l'évènement "Open" de ton classeur modèle ?

[pat_che]

Bonjour,

l'appel est dans une procédure liée à un bouton dans Access.
Le nom du fichier Excel doit être le numéro du dossier actif dans Access.

L'idée de se servir de l'évènement open dans Excel me plait bien
Mais comment récupérer le N° du dossier actif dans Access ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
'****** vérifie si le fichier existe déjà ******
fichier = "S:\DA\RCL EST\Doc et BACOLOC\" & Me![N°_de_dossier] & ".xls"
If Dir(fichier, vbHidden) <> "" Then
  'MsgBox "La feuille " & fichier & " existe déjà"
    Set wbexcel = appexcel.Workbooks.Open(fichier)
        Else
        'MsgBox "La feuille " & fichier & "  n'existe pas"
 
        Set wbexcel = appexcel.Workbooks.Open("S:\DA\RCL EST\Doc et BACOLOC\Diss-V8.xls")
 
        '****** mise à jour des cellules excel ******
        appexcel.Cells(2, 7) = Me![Négociateur]
        appexcel.Cells(6, 7) = Me![Communes]
        appexcel.Cells(6, 16) = Me![CP_projet]
        appexcel.Cells(8, 7) = Me![Adresse_projet]
        appexcel.Cells(12, 23) = Me![N°_de_dossier]
        appexcel.Cells(18, 23) = Me![N°_Convention]
        appexcel.Cells(14, 23) = Me![Detection]
        appexcel.Cells(16, 23) = Me![Debut_travaux]
        appexcel.Cells(20, 23) = Me![AS_etude]
        appexcel.Cells(22, 23) = Me![AS_autre]
        appexcel.Cells(24, 23) = Me![RE]
        appexcel.Cells(26, 23) = Me![SR]
 
        'enregistrer le nouveau fichier avec le N° du dossier
        Dim choix
        Beep
        choix = MsgBox("Voulez-vous enregistrer le fichier avec le nom : " & fichier & "?", vbOKCancel, "Attention !")
        ' Teste la valeur des données entrées par l'utilisateur.
        If choix = vbCancel Then
                Exit Sub
                Else
                ActiveWorkbook.SaveCopyAs "S:\DA\RCL EST\Doc et BACOLOC\" & Me![N°_de_dossier] & ".xls"
 
        End If
End If

merci,
à bientôt,
Pat.

[Domi2]

Bonjour,

J'ai eu à résoudre un problème identique avec Word...

Tu peux passer par automation et faire afficher ta boîte de dialogue par Excel...

Je ne sais pas s'il existe d'autres solutions.

Domi2

[Jeannot45]

Au travers d'une variable déclarée Public dans un module spécifique d'Access.