Import données et mise en formz

[Totor]

Bonjour,

MichelXLD et bebere m'ont fourni ce code qui permet d'importer des données à partir d'un classeur fermé.

Ca fonctionne parfaitement, mais ca n'importe pas la mise en forme et ca déconne quand les cellules du fichier original sont fusionnnées.

Savez vous comment résoudre ces deux problèmes?

Merci à tous

Bonne fin de journée

Totor
---------------

Sub importDonnees_Feuille_ClasseurFerme()
'
'Activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Ws As Worksheet
Dim xConnect As String, Fichier As String, Cible As String

Fichier = 'G:\\FINANCE\\FY06\\por\\03-18por\\Aje.xls'

xConnect = 'DRIVER={Microsoft Excel Driver (*.xls)};' & _
'ReadOnly=1;DBQ=' & Fichier

'attention à bien à jouter $ à la suite du nom de la feuille
Cible = 'SELECT * FROM [TWC$];'

Set Rs = New ADODB.Recordset
Rs.Open Cible, xConnect, adOpenStatic, adLockOptimistic, adCmdText

Set Ws = Workbooks('TWC.xls').Worksheets.Add
Ws.Name = 'Aje'
Ws.Range('A1').CopyFromRecordset Rs

Rs.Close
Set Rs = Nothing
End Sub

 

[MichelXld]

rebonjour Totor

je t'ai répondu ici

Ce lien n'existe plus

ps:
cela ne sert à rien de multiplier les fils de discussion pour un meme sujet ...


bonne soirée
MichelXld

 

[Totor]

Nojour Michel,

Merci pour ta réponse.

Dslé d'avoir couper le file. Je ne recommencerai pas.

Bonne journée.

Victor