URGENT access et excel

Signaler
Messages postés
40
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
9 décembre 2006
-
Messages postés
120
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
2 août 2004
-
Salut je cherche le moyen de transcrire un fichier access dans excel en pouvant choisir les cellules adoc.

Merci

robers@coditel.net

3 réponses

Messages postés
120
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
2 août 2004

exemple :

dim client as Excel.Worksheet

' ouvrir le fichier Excel et l'activer
' ouvrir la table Acces

With client

ligne = 2
Do While Not [recordset sur Access].EOf
colonne = 1
for Each fld In [recordset sur Access].Fields
.cells(ligne,colonne).Value = fld.value
colonne = colonne + 1
next fld
ligne = ligne + 1
[recordset sur Access].MoveNext
Loop
end with

avec 9ça, tu peux choisir les cellules Excel que tu veux

Colibri
Messages postés
40
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
9 décembre 2006

Salut colibri et merci mais pt probleme

Je travaille en VB 5 et apparement cette procédure ne veux pas fonctionner.

Dois-je mettre le fichier excel dans un répertoire bien précis ou pas ???
Messages postés
120
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
2 août 2004

bonjour,

ce code est en VBA pour Access 2000

il te faut en ligne les références à ADO at ADOX, ainsi qu'Office et Excel, au moins

si ça ne fonctionne pas, erreur de compil ?

quant à ton fichier Excel, je partais du principe que tu l'avais chargé; il peut être n'importe où.

sinon, voilà comment ouvrir l'explorateur, choisir ton répertoire et ton fichier, et récupérer toutes ces info :
ce code charge dans Access une table Excel; c'est donc à l'envers; je n'ai pas purgé le code de ce qui ne te convient pas

' ********************************************************************************
' recherche fichier excel sur le réseau par l'exporateur
' remplissage d'une table Access à partir des données du fichier Excel
' ********************************************************************************

Dim Fd As FileDialog
Dim Fdfs As FileDialogFilters
Dim Fdf As FileDialogFilter

Dim VrtSelectedItem As Variant
Dim test As Variant
' variables de la table tab_prix_achat_budget
Dim Cnn_db As New ADODB.Connection
Dim Rst_db As New ADODB.Recordset
' ouverture de la connection au fichier EXCEL
Dim Cnn_ex As New ADODB.Connection
Dim Rst_ex As New ADODB.Recordset

' choix du fichier Excel par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
Set Fdfs = Application.FileDialog(msoFileDialogOpen).Filters ' collection des extensions
Fdfs.Clear ' destruction de la liste des extensions
Set Fdf = Fdfs.Add("Excel", "*.xls", 1) ' ajout de la seule extension Excel

' récupération du nom et du chemin du fichier sélectionné
With Fd
.AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
path = .SelectedItems(1)

Else
'The user pressed Cancel.
Exit Sub
End If
End With

Set Fd = Nothing


'ouverture de la connection à la table "tab_prix_achat_budget" ACCESS
Set Cnn_db = CurrentProject.Connection
Rst_db.Open "tab_prix_achat_budget", Cnn_db, adOpenKeyset, adLockOptimistic

' IMPORTANT !!!!
' création de la zone nommée dans le fichier Excel
definition_zone

'ouverture de la connection au fichier EXCEL
With Cnn_ex
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open path
End With

' lecture du fichier EXCEL
Set Rst_ex = New ADODB.Recordset
Rst_ex.Open "nom_de_zone", Cnn_ex, , , adCmdTable

Do Until Rst_ex.EOF
' ajout dans la table access
With Rst_db
If IsNumeric(Rst_ex.Fields("Artcode")) Then ' si le code article est renseigné
.AddNew Array("code article", "prix achat budget 1er tri", "prix achat budget 2ème tri", "prix achat budget 3ème tri", "prix achat budget 4ème tri"), _
Array(Rst_ex.Fields("Artcode"), Rst_ex.Fields("1 trim"), Rst_ex.Fields("2 trim"), Rst_ex.Fields("3 trim"), Rst_ex.Fields("4 trim"))
.Update
End If
End With

Rst_ex.MoveNext ' ligne suivante du tableau EXCEL
Loop

' fermeture des connections
Cnn_ex.Close
Cnn_db.Close

End Sub
Sub definition_zone()

' **************************************************************
' création d'une référence de zone dans un tableau Excel
' **************************************************************

Dim Feuille, Classeur As Variant
Dim Xls As Excel.Workbook
Dim colonne As Integer
Dim ligne As Integer
Dim ligne_début As Integer
Dim colonne_début As Integer

Set Xls = GetObject(path) 'ok
Xls.Application.Visible = True 'ok
Xls.Application.Windows(1).Visible = True 'ok

Xls.Application.ActiveWorkbook.Activate 'ok
Classeur = Xls.Application.ActiveWorkbook.Name 'ok
' nom de la feuille du classeur
Feuille = Xls.Application.Sheets(1).Name
' positionnement sur la dernière cellule du tableau
Xls.Application.Worksheets(1).Cells(1, 1).Select 'ok
Xls.Application.ActiveCell.SpecialCells(xlLastCell).Select 'ok
' initialisation du début
ligne_début = 1
colonne_début = 1
' numéro de colonne et de ligne de la dernière cellule
colonne = Xls.Application.ActiveCell.Column 'ok
ligne = Xls.Application.ActiveCell.Row 'ok
' composition de la référence de la zone à créer
Feuille = Feuille & "'!L" & ligne_début & "C" & colonne_début & ":L" & ligne & "C" & colonne ' ok
' création de la zone de référence
Xls.Application.ActiveWorkbook.Names.Add Name:="nom_de_zone", RefersToR1C1:= _
"='" & Feuille 'ok

Set Xls = Nothing

End Sub

Colibri