Discussion :

[yannzool]

bonjour a toutes et a tous,
voila mon probleme,

j ai un dossier contenant des factures avec dans des cellules fixes, l entete des adresses clients
je souhaite récupérer les adresses pour ensuites faire un fichier csv

exemple :
a1 : nom b2 : prenom
a2 : adresse1
a3 : adresse2
a4 : cp b4 : ville

j espere etre sur le bon topic, merci de votre aide

[ffdream62]

Tu as besoin d'aide pour relier Excel à Access ou pour créer un CSV ?

Pour relier Excel à Access, pourquoi ne pas créer une simple table liée ?

Pour manipuler un CSV :

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
 
    Dim fs as object
    Dim fd as object
    Dim path as String
 
'Création 
    path = "C:\monficher.csv"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fd = fs.CreateTextFile(path)
    fd.Close
 
'Remplissage 
     Set fd = fs.OpenTextFile(path, 8, 0)
     fd.WriteLine "Colonne1,Colonne2,Colonne3"
     fd.Close
 
    Set fd = Nothing
    Set fs = Nothing

[yannzool]

merci pour ton aide, mais j'ai du mal m'expliquer,
j'ai mis les doigts dans le code il y a tres tres tres longtemps, et je suis perdu de chez perdu.

en gros on me demande de récupérer des adresses qui sont en entete sur des factures faites sous excel, et de les mettre en csv pour les ré importer dans un autre programme.

pour mettre en csv c'est pas le souci, je sais faire.

c'est pour récuperer les cellules, que c'est plus compliqué !

sachant que dans toutes les factures, le nom, prénom, adresses, CP et ville sont toujours au meme endroit, ca doit facilité le code.

apres, passer par excel, access ou du vbe, je ne sais pas trop.

[Robert1957]

Bonjour yannzool,
Pour importer des cellules précises tu peux faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open(EmplacementDuFichier+NomFichier)
    Set oWSht = oWkb.Worksheets(NomDeFeuille)
 
    Nom = oWSht.Cells(1, 1) 'ou A1
    Prénom = oWSht.Cells(2, 2) 'ou B2
    etc....

Nom et Prénom étant la destination de ton importation. J'espère que ça te donne une piste.

Bonne journée

[ffdream62]

Pourquoi ne pas faire une petite macro qui copie les 5 ou 6 lignes d'en-tête soit dans un classeur vide à enregistrer en CSV, soit directement en CSV (avec le code que je t'ai proposé au dessus) ?