Discussion :

[DamKre]

Bonjour à tous !

J'importe des données issues d'un fichier Excel dans Access Via VBA.
Le code fonctionne très bien, merci à l'excellente FAQ

Seul truc pour me faciliter la vie : dans mon fichier Excel source, certaines cases font le lien avec d'autres fichiers ( j'espère que c'est clair ). Donc, quand j'ouvre ce fichier Excel, il me demande s'il faut mettre les données à jour.

Et donc, dans ma procédure Access VBA, j'ai également cette demande.Y a-t-il moyen de paramétrer le tout afin que ce message "Voulez-vous mettre à jour..." ne s'affiche pas ( et que la réponse à cette question soit oui ou non, peu m'importe ) ?

Merci de vos lumières.

[LedZeppII]

Bonsoir,

si tu ouvres ton classeur par automation avec la méthode Open,
le deuxième argument (UpdateLinks) devrait solutionner ton problème.

1 : Demander à l'utilisateur (Par défaut)
2 : Ne pas mettre à jour les liaisons
3 : Mettre à jour les liaisons.

A+

[DamKre]

Bonsoir, et merci de ta réponse.

J'ai donc mis ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("c:\fichier.xls"), 2)
Set xlSheet = xlBook.Worksheets("Feuille")
 
'Le reste de ma procédure
 
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Mais, au moment de fermer ( xlApp.Quit ), j'ai un message d'excel qui me demande si je veux enregistrer les modifications..
Or, il ne devrait y en avoir aucune...

[LedZeppII]

Bonjour,

Essaie comme ça à la fin de ta procédure :

Code :

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

1
2
3
4
5
6
7
Set xlSheet = Nothing
' Fermer le classeur sans sauvegarder
xlBook.Close False
Set xlBook = Nothing
' Fermer Excel
xlApp.Quit
Set xlApp = Nothing

A+

[DamKre]

Cela fonctionne parfaitement.
Un énorme merci pour ton aide.