Problème de fermeture de classeur

P

Patrick.

Guest
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
 
M

matsony

Guest
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é
 
M

michel

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390