Exporter des données

[Sang1]

Hello tout le monde !!!

Je cherche a copier des cellules dans une feuille active et aller les coller sur un autre fichier excel non actif grace a une macro, mais je n'y arive pas, meme avec les aides du fofo...
J'ai mis un exemple en piece jointe. En faite je souhaite lancer une macro dans le fichier "a" qui copie mes données et les colle dans le fichier "ex".

Si quelqu'un peut me donner un coup de main sa serait tres sympa.

Merci d avance

SANG1

 

[tototiti2008]

Re : Exporter des données

Bonjour Sang1,

pas facile (ou pas possible ???) à faire sans ouvrir le fichier ex.
la macro a le droit de l'ouvrir ?

 

[Sang1]

Bonjour,

Oui la macro a le droit de l'ouvrir, mais il faut qu'elle le referme ensuite.

Crdlt,

SANG1

 

[Sang1]

Re : Exporter des données

Petites précisions :

Enf aite je souhaite copier des données en colonne sur mon fichier excel qui contient la macro et qu'il aille les coller dans un autre fichier excel qui ne contient pas la macro et qui est fermé.

Merci

 

[tototiti2008]

Re : Exporter des données

Bonjour,

on pourrait peut être faire comme ça (à mettre dans ex.xls):

Sub Importe()
Dim SourceWkb As Workbook
    Application.ScreenUpdating = False
    Set SourceWkb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\a.xls")
    SourceWkb.Worksheets("Sheet1").Range("A1").Currentregion.Copy Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A1")
    SourceWkb.Close savechanges:=False
Application.ScreenUpdating = True
End Sub