Problème de fermeture de classeur

[Patrick.]

Bonjour, j'ouvre un fichier sur réseau à l'aide de :
Fichrec = Application.GetOpenFilename ("Excel Files, *.xls")
Workbooks.open Filename:=Fichrec

Dans ce fichier, une fois ouvert, je sélectionne une feuille et la copie dans un autre classeur ouvert.

Le problème se situe lors de la fermeture du premier classeur. J'ai essayé plusieurs solutions avec Workbooks.close mais à chaque essai, j'ai des problèmes de syntaxe.

Nota important : ce fichier que j'ouvre sur réseau ne possède pas toujours le même nom. C'est pour cela que je voudrais l'affecter à Fichrec.

Je vous remercie pour toutes solutions.
Cordialement
Patrick

 

[matsony]

idée de solution:

recherche dans les fichiers excel ouverts le nom corrrespondant au fichier à fermer si le nom correspond à fichrec tu le fermes.

fonction pour chercher: peut être getobject().

j'espère que je t'aurais pas embrouillé

 

[michel]

bonsoire Patrick , bonsoir Matsony

tu peux tester cette adaptation

Sub copieVersAutreClasseur()
Dim FichRec As String
Dim Wb As Workbook

FichRec = Application.GetOpenFilename("Excel Files, *.xls") 'recherche classeur
Set Wb = Workbooks.Open(Filename:=FichRec) 'ouverture du classeur selectionné

'copie de la Feuil1 du classeur choisi et
'collage apres la premiere feuille du classeur contenant cette macro
Wb.Sheets(1).Copy After:=ThisWorkbook.Worksheets("Feuil1")

Application.CutCopyMode = False 'annule le mode copier

Wb.Close 'fermeture du classeur copié
End Sub


bonne soiree
MichelXld

 

[Patrick.]

Bonsoir Matsony et Michel,
je vous remercie de votre aide.
J'ai retenu la solution de Michel qui correspond exactement à ce que je recherchais.
Merci et bonne soirée
Patrick