Fermer fichier

Bonjour le forum,

Je me permets de revenir vers vous, pour ce problème ....

J'ai mis ce code dans un fichier pour ouvrir un second fichier

Dim Rep As String

Rep = "\\a11filesrv02.pharma.aventis.com\share-repository\SHAREFolders\IRMP\DataExtracts\VFU"

If Dir(Rep, vbDirectory) <> "" Then

Application.Dialogs(xlDialogOpen).Show Rep

Else

MsgBox "Chemin introuvable"

End If

Mon problème est que je lui demande d'ouvrir ce second fichier, de copier des infos et d'aller le coller dans mon fichier principal puis de fermer ce second fichier, mais impossible de trouver le bon code vba pour fermer le second fichier...

Par hasard, auriez-vous quelque part dans votre chapeau, un code ou un tour de passe passe qui puisse m'aider ...

Merci par avance pour votre aide précieuse

Laurent

Bonjour

A la lecture de ta demande, le fichier 2 est ouvert et le fichier actif à l'écran. Si oui, essaie de placer ce code juste après tes instructions de copie de données.

exemple dans le code que tu as donné ici, place cette ligne juste après le END IF

If ActiveWorkbook.Name <> ThisWorkbook.Name Then ActiveWorkbook.Close

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Crdlt

Merci Dan,

a priori ça fonctionne ... je dis à priori, maintenant j'ai une autre erreur ... mais je pense que ça vient de la suite de mon code.

a plus

Laurent

Rechercher des sujets similaires à "fermer fichier"