Insérer valeur multi cellules excel dans Access

[7339simon]

Bonjour à tous,

Je bloque sur un problème de lien entre excel et access.

Le but est d'insérer un document excel dans une table Access.

Name = MySheet.Range("A1").Value
Nom = MySheet.Range("B3").Value
Age = MySheet.Range("B4").Value
PostCode = MySheet.Range("D4").Value
Ville = MySheet.Range("F4").Value
 
cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3], [champ4], [champ5]  ) values (" & Chr(34) & Name & Chr(34) & ", " & Chr(34) & Nom & Chr(34) & "," & Chr(34) & Age & Chr(34) & "," & Chr(34) & PostCode & Chr(34) & "," & Chr(34) & Ville & Chr(34) & ");"

DoCmd.RunSQL cSQL

Dans mon fichier excel j'ai des valeurs dans plusieurs cellules éparpillées.

Le code ci-dessus fonctionne mais sachant que j'ai une vingtaine de cellules à insérer je le trouve un peu barbare.

Est-ce que quelqu'un aurait une piste à me donner sur une autre façon de faire?

Merci d'avance pour votre aide.