Copier dans un classeur fermé

non cà fonctionne pas !

Chez moi cela fonctionne parfaitement.

As-tu active sous VBA 'Microsoft data ...........???

lequel Microsoft data ....

le plus élevé, comme je le mentionnais dans un précédent message.

oui je l'ai bien fait

et dans le fichier " comptes " j'ai 2 feuilles

la 1ère se nomme "vos comptes" ou il y a la case e2 à copier

et la 2ème se nomme " essai " ou on à fait la première partie qui fonctionne bien

c'est le fait de copier dans la feuil "Vos comptes" la cellule e2 pour mettre se qu'elle contient dans la cellule k1 de la feuil "essai qui pose un problème moi ça marche pas

tout ça bien sur sans ouvrir le fichier "comptes "

Chez je l'ai renomée "comptes"

mais tu parles du fichier comptes ? tu veux copier d'un onglet à l'autre ?????

ce n'est pas ce que j'avais compris !

alors là effectivement la macro ne fait pas ça !

Je regarde

pour ça, un simple copier/coller avec liaison est largement suffisant.

si j'ai bien compris.

je voyait bien quel'on se comprenait pas

c'est vrai que mes explication sont pas forcement très claire

pas tjrs facile

fais un copier/coller avec liaison, puis sur l'autre fichier lance la macro, mais là tu te heurtes au même pbl.

tu devras soit faire une deuxième macro prenant la cellule K1 ou agrandir la zone de la première macro jusqu'à la colonne K.

CORDIA5

je pense que le mieux c'est de faire une 2ème macro

et de jumeler les 2 avec le boutons

2 macros avec un boutons je sais faire

mais la macro seule je sais pas !

tu devrai en voir le bout

avec ce fichier

pense à modifier le chemin d'accès.

comme je te lai expliquer lors de la macro précédente, la zone K1 est K1:K2

CORDIA5

ça va pas tu ma laisser les 2 pareils en plus ta pas changer "Vos comptes"

tu peux supprimer le module 2 sous vba, plus besoin.

ensuite tu es surement assez à l'aise pour renommer ton onglet comme bon te semble.

CORDIA5

bonjour ,

est tu sur que je peux supprimer le module 2

re bonjour

et bien voila après beaucoup d'essai et bien sur grâce à tes conseils

j'ai enfin pu réaliser ce que je voulais faire ça fonctionne très bien

et plus simple de ce que j'avais fait

merci encore de ta patience

amitiés

Jean Yves

bien sur je met en résolu !

Bonne nouvelle.

CORDIA5

j'ai autre chose a te demander !

Pose toujours Jean-Yves !

merci,

voila c'est tjrs dans les mêmes fichiers je les est modifier d’aspect pour être plus clair

dans le fichier " comptes " les chiffres sont en euros

et dans le fichier " pavillon essai " à l'arrivé ils sont en texte et impossible de les mettre en euros

Bonsoir

remplace le module 1 par celui-là :

' Importer les données de fichier Excel désigné
'  fichier="*.xlxs ou xlsm"
'  une zone définie "plage"

' Si blocage sur New ADODB.connection, alors sous VBA stopper la macro et dans Outils, références, Activer "Microsoft Activex Object le plus élévé de la liste.

Sub RecupCopyFrmRecordset()

' Microsoft ActiveX DataObject doit être coché

  Sheets("compte courant").Select
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path

  Fichier = "C:\Users\SEBASTIEN\Desktop\comptes.xlsm"    'ici ton chemin vers ton fichier source.

  cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""

  Set rs = cnn.Execute("[essai$A5:E5000]") ' zone de plage dans la source de A5 à E5000, tu modififies comme tu le souhaites.
  [J4].CopyFromRecordset rs

  rs.Close
  Set rs = Nothing

    Set rs = cnn.Execute("[essai$K1:K2]")
  [K1].CopyFromRecordset rs

  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing

        ActiveWindow.SmallScroll Down:=-12
        Range("N4:O5000").Select
        Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

Cela modifie le format.

CORDIA5

donne moi sur les derniers fichier que j'ai posté tout a l'heure