Discussion :

[carlostropico]

Bonjour à tous,
je recontre un petit soucis au niveau de la validation du contenu d'une cellule se trouvant sur un classeur excel depuis access.
en gros,
j'importe une zone de cellule depuis excel dans une de mes tables,
mais juste avant l'import,
je voudrais vérifier que le contenu d'une cellule donnée (feuil1!D2),
m'assurer qu'elle contienne bien 8 caractères,
et si ce n'est pas le cas, lui donner comme valeur une variable X que j'ai déjà défini avant.
je sèche totalement.
merci par avance.
bonne journée

donc, ce bout de code est à placer avant:

Code :

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Maplage", fichier, True, "Matable"

[Jean-Philippe André]

salut,
en passant par des variables Excel, tu peux y arriver :

Code :

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

1
2
3
4
5
6
7
8
9
Dim xlApp As New Excel.Application
Dim xlWbk As Excel.Workbook
Dim xlWsh As Excel.Worksheet
 
set xlWbk = XlApp.Workbooks.Open "C:\temp\monfichierxls.xls"
set XlWsh = xlWbk.Worksheets(1)
msgbox xlwsh.Range("A1").Value
xlwbk.Close
XlApp.Quit

[carlostropico]

nickel merci,
par contre, qu'est ce que je peux faire pour que la modification se fasse sans que l'utilisateur ne le voit. Actuellement, quand je modifie la cellule, je dois ensuite enregistrer le classeur avant fermeture, alors que j'avais placé un bout de code ( dans le classeur excel) pour que le fichier s'enregistre automatiquement à la fermeture.
merci en tout cas, ça avance, le plus gros est fait:

mon code:

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
 
 racine = "C:\TEMPORAIRE" 'ChoixDossier()     
  If racine = "" Then Exit Sub
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier = fs.GetFolder(racine) 'DossierRacine
    For Each f In dossier.Files
 
nomfichier = f.Name
fichier = f
idetablissement = Left(nomfichier, 8)
 
 
Dim xlApp As New Excel.Application
Dim xlWbk As Excel.Workbook
Dim xlWsh As Excel.Worksheet
 
Set xlWbk = xlApp.Workbooks.Open("C:\TEMPORAIRE\" & nomfichier)
Set xlWsh = xlWbk.Worksheets(3)
If Not xlWsh.Range("D2").Value = idetablissement Then
xlWsh.Range("D2").Value = idetablissement
Else
End If
 
xlWbk.Close
xlApp.Quit
 
.........

[carlostropico]

bon question du matin pas réveillé,
Auto- réponse quasi instantanné,
pour enregistrer, il suffit de rajouter:

Code :

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

xlWsh.Save

avant la fermeture du fichier.
merci encore pour ton aide.