copier coller via 1 fichier fermé ds le m dossier

[Jimrcl]

Bonjour le forum,
est ce que quelqu'un à un exemple de macro qui va chercher des données dans un fichier excel fermé pour les rappatrier dans son classeur?
Merci beaucoup pour votre aide, cher forum.
Vous remercie bien.
Avec mes sincères salutations.
Veuillez agréer mes sentiments les meilleurs.
Hasta luego...t'chuss
:silly: :woohoo:

 

[tesmiro]

salut,
Je pense que tu trouveras ton bonheur a cette adresse :
Lien supprimé

@+

 

[Jimrcl]

Merci TESMIRO B)

 

[Jimrcl]

Ah çà marche pas
j'ai essayé le code ci dessous trouvé sur ton lien:

'procédure pour la recopie des valeurs de la base de donnée des SOS


Sub RecopSOS()
Dim Fich$, Arr

Fich = 'C:\\Documents and Settings\\a671460\\Desktop\\SOS NX SYSTEME\\Avancement SOS 2005.xls'
'récup des données à partir de l'adresse d'une plage de cellules
GetExternalData Fich, 'Données', 'A13:CK5000', False, Arr
With ThisWorkbook.Sheets('Données')
.Range('A13', .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
End With

End Sub

mais çà ne compile pas le 'GetExternalData'
QQ1 connait il autre chose?
Merci

 

[michel_m]

Bonjour,

Ci joint adodemo montrant les imports/ export excel-excel fermé et excel fermé avec access

Le site de Fred est super; les démos ne sont pas 'prètes à cuire' : essayer de comprendre fait beaucoup progresser...

Tu as aussi pas mal d'exemples à bosser dans Excelabo (lien indiqué en bas de ce site)

A+
michel (at work)

[file name=adodemo.zip size=47885]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/adodemo.zip[/file]

 

[Jimrcl]

C'est exactement ce que je veux faire, la partie mirroir,
cad recopie des valeurs
seul problème la compilation bloque sur:
'Dim source As ADODB.Connection'
la première ligne!!!!!!!!!!
je bosse dans une grande entreprise, + de 1000 pc en réseau, donc au niveau de l'installe de excel je sais pas si y a toutes les librairies.
çà a à voir quelque chose???
Merci

 

[tesmiro]

re
Bon, je suis un peu dans le même cas que toi, je cherche à importer des données d'un classeur fermé.
J'ai trouvé çà sur le site d'excelabo:

Sub TestGetValue_2()
Dim P As String, F As String, S As String, A As String, R As Byte
Dim C As Byte

  P = 'C:\\Documents and Settings\\Administrateur\\Mes documents'
  F = 'classeur2.xls'
  S = 'database'
  Application.ScreenUpdating = False
  For R = 1 To 100
    For C = 1 To 3
      A = Cells(R, C).Address
      Cells(R, C) = GetValue(P, F, S, A)
    Next C
  Next R
  Application.ScreenUpdating = True
End Sub
Private Function GetValue(Path, File, Sheet, Ref)
  Dim Arg As String

  'Vérie l'existence du fichier, ajoute les séparateurs manquants
  If Right(Path, 1) <> '\\' Then Path = Path & '\\'
  If Dir(Path & File) = '' Then
    GetValue = 'File Not Found'
    Exit Function
  End If
  'Crée l'argument ''D:\\mesdocuments\\loisirs\\[vacances.xls]Méribel'!R4C3'
  Arg = ''' & Path & '[' & File & ']' & Sheet & ''!' & Range(Ref) _
    .Range('A1').Address(, , xlR1C1)
  'Exécute la macro XLM
  GetValue = ExecuteExcel4Macro(Arg)
End Function

Pour ma part, c'est ce que je voulais. Essaye d'adapter !!
@ +

 

[michel_m]

Excusez moi de vous avoir dérangé en essayant de vous aider

michel (at home)

 

[tesmiro]

salut michel, le forum

Pourquoi tu dis ça ? c'est toi qui a conseillé d'aller faire un tour sur le site d'excelabo et sans la démo trouver sur ce site je serais toujours en train d'essayer d'adapter ta démo ou celle de chez fred ( Pb avec
Dim source As ADODB.Connection que je ne comprend pas d'ailleurs!).
j'ai pas penser à te remercier,je rectifie le tir en te remerciant de ton aide ( je suis désolé si on t'a froissé)

 

[Jimrcl]

Rebonjour tout le monde,
et merci !!! ton code marche bien,
sauf qu'au départ je voulais faire cette manip
car les copier coller avec liaisons me mettent des 0 partout quand l dans le fichier d'origine il n'y a rien dans la cellule.
et pire pour les cellules au format date, il recopie la date du premier janvier 1900, et la macro me reproduit la même chose.
Je ne vois pas comment palier à ce problème, quelqu'un voit?
Merci

 

[tesmiro]

salut,
perso je n'ai pas de souci avec les dates (regarde dans le format de ta colonne), pour les zeros va dans Outils - Option et décoche 'valeurs zéro'
@ +

 

[Jimrcl]

Well , it's okkkkkkkkkkk.
Merci tesmiro,
trop fort tu es.
La force je sens en toi.
Et la solution est d'une tel simplicité que j'ai l'impression d'être une quiche.
Mais en faite, c'est peut être que j'en suis une
Merci encore :woohoo: