Fermeture d'un fichier avec une macro

[marjo_38]

Bonjour,

J'ai un problème avec ma macro. Je suis dans un fichier Excel et à partir de la cellule A1 j'ouvre un autre fichier,selectionne les données et les copie dans mon premier fichier. Ensuite, je voudrais refermer le fichier que j'ai ouvert mais je n'y arrive pas....
Voici ma macro :
application.ScreenUpdating = False
Workbooks.Open ([A1])
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("test1.xls").Activate
Sheets("Copie fichier").Select
Range("A1").Select
Workbooks.close([A1)]

C'est la dernière phrase qui passe pas. Je suis pas très doué, alors si quelqu'un peut m'aider, ce serait gentil car j'ai trop réflechis!!🙄🙄

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

Bonjour

Teste ceci
Workbooks("test1.xls").close

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

En fait c'est pas le fichier Test 1 que je veux fermer c'est l'autre fichier et son nom n'est jamais le meme le nom et le chemin du fichier est dans la cellule A1 du fichier test 1, j'ai réussi à l'ouvrir à partir de la cellule, mais pas à le fermer... Désolé si je me suis mal exprimé.

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

Re


Alors ça peut-être?

ActiveWorkBook.Close

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

Bein ca marche pas non plus car j'ai copié les données dans le fichier test 1 alors du coup je suis sur test 1 et avec ActiveWorkBook.Close il me ferme le fichier sur lequel je suis alors que moi je veux fermer l'autre. Sinon j'ai essayé Windows([A1]).Activate
workbook.close
Mais ca marche pas non plus....😕

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

Re

Application.ScreenUpdating = False
Dim Nom as String
Nom=[A1]
    Workbooks.Open (Nom)
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy _
    Windows("test1.xls").Sheets("Copie fichier").Range("A1")
Workbooks(Nom).Close

Qu'elle le contenu de la cellule A1 stp ?

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

le contenu de la cellule A1 est une formule
=CONCATENER(R34;F2;".xls") mais au final ca donne ca:
P:\ADV\Facture\INV-2008-0100.xls

Sachant que le nom du fichier change à chaque fois mais il est renseigné manuellement dans la cellule F2.

Merci je vais essayer la macro que tu m'as donné.

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

Ca marche toujours pas............😱
Je sais plus quoi faire....

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

RE


Esssaye comme ça

Application.ScreenUpdating = False
Dim Nom as String
Dim X as String
Nom=[A1]
X=StrReverse(Left(StrReverse(Nom), _
InStr(StrReverse(Nom), "\") - 1))
    Workbooks.Open (Nom)
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy  Sheets("Copie fichier").Range("A1")
Workbooks(X).Close

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

Merci et encore Merci, cette fois ca marche!!!
Je pensais pas que c'etait aussi dur de fermer un fichier alors que c'est facile de l'ouvrir!🙂

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

Re


Voila une macro finale qui fonctionne

Sub test_OK()
Application.ScreenUpdating = False
Dim CCLASS As Workbook
Dim Nom As String
Dim X As String
Set CCLASS = ThisWorkbook
Nom = CCLASS.Range("A1").Text
X = StrReverse(Left(StrReverse(Nom), _
InStr(StrReverse(Nom), "\") - 1))
Workbooks.Open (Nom)
ActiveSheet.UsedRange.Copy CCLASS.Sheets("Copie fichier").Range("A1")
Workbooks(X).Close
CCLASS.Activate
Application.ScreenUpdating = True
End Sub

 

[Excel_lent]

Re : Fermeture d'un fichier avec une macro

Bonjour Marjo, Staple sans oublier les autres

à essayer :

Application.ScreenUpdating = False
Workbooks.Open ([A1])
[B][COLOR=Blue]nom = ActiveWorkbook.Name[/COLOR][/B]
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("test1.xls").Activate
Sheets("Copie fichier").Select
Range("A1").Select
[B][COLOR=Blue]Windows(nom).Activate
ActiveWorkbook.Close[/COLOR][/B]
End Sub

 

[Staple1600]

Re : Fermeture d'un fichier avec une macro

Bonjour Excel_Lent

Tu es ""pro select" aujourd'hui? 😉


En tout cas , moi j'ai compliqué la chose à outrance alors que c'était évident !!!!
(La honte sur moi pour 33 minutes)

 

[marjo_38]

Re : Fermeture d'un fichier avec une macro

Bonjour Excel_Lent,
C'est vrai que comme ca c'est plus compréhensible pour moi.
Merci beaucoup à tous pour votre aide.

 

[Excel_lent]

Re : Fermeture d'un fichier avec une macro

Re,

Ravi Marjo que cela te convienne.
Staple (si tu repasses par là) :
pas plus pro qu'anti ; comme cela se présente !
Es-tu devenu pointilleux avec une baiseuse (argadz) style pointillisme ?