Pb avec ActiveWorkbook.close

[mfb]

Bonjour Excel,
Je cherche à réaliser le transfert de données depuis 1 fichier A appelé "importer" d'un fichier B appelé Listing Sé via un Usf. Cela marche sur 1er Pc avec EXCEL 2007 sous Window 2010.
Quand je transfert tout ceci sur un 2ème Pc avec EXCEL 2010 sous Window 2010 y a Bug à la fermeture du fichier Listing à l'instruction "Windows(ComboBox1.Value).Close"
Si je supprime cette instruction le transfert s'exécute bien mais le fichier reste ouvert. C'est pas très réglo.
J'ai essayé avec entre autre WorkBook.close. Rien y fait.
N'ayant pas trouvé de fil apportant des tuyaux à ce Pb je me permet de me tourner vers vous.
Je bien entendu dispo pour + info.
Par Avance MERCI
Daniel

 

[Jacky67]

Bonjour,
Que donne un essai avec ce code
​

Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String

Chemin = ThisWorkbook.Path & "\"
Fichier = ComboBox1.Value
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Open(Chemin & Fichier)
  Sheets("Feuil1").Range("A2:AC100").Copy ThisWorkbook.ActiveSheet.Range("D7")
End With
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[zebanx]

Bonjour mfb, jacky67.

Et pourquoi ne pas activer la feuille avant de la fermer ?
Windows("lisiting1.xls").Activate
.Close savechanges:=False

++ zebanx

 

[Staple1600]

Bonjour le fil, le forum

Une petite modif du code de jacky67
(pour être sur de savoir quel classeur, on ferme)

Private Sub CommandButton1_Click()
Dim Chemin$, Fichier$, wb As Workbook
Chemin = ThisWorkbook.Path & "\": Fichier = ComboBox1.Value
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Workbooks.Open(Chemin & Fichier)
wb.Sheets("Feuil1").Range("A2:AC100").Copy ThisWorkbook.ActiveSheet.Range("D7")
wb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

@zebanx
En désignant le classeur, pas besoin de l'activer.
Bien sur il faut qu'il soit ouvert.

 

[Jacky67]

Bonjour le fil, le forum

Une petite modif du code de jacky67
(pour être sur de savoir quel classeur, on ferme)

Hello JM
Je n'éprouve aucune difficulté avec ma proposition
Pour moi, l'ouverture d'un classeur rend le classeur actif
Donc
ActiveWorkbook.Close
Devrait être suffisant
Et comme dans le classeur actif, rien n'a été modifié "False" devient inutile.
Mais ...peut être je me trompe

 

[Staple1600]

Re

@Jacky67
J'ai jamais dit qu'il y avait une difficulté.
J'ai pris l'habitude de cette syntaxe dans ces cas-là
(sans doute une propension à la fainéantise, wb étant plus court à écrire qu'ActiveWorbook )
Quand au False, c'est juste pour me rappeler que j'enregistre sans modifier.

 

[mfb]

Re,
Je viens de tester les 3 solutions celles de Jacky et Staple me donnent toutes 2 l'erreur chemin introuvable et celle de Zebanx Bug sur Activate.
Bien que partisan de ne pas s'avouer vaincu je vais tourner le Pb en réalisant un import sans ouverture de fichier ... donc sans pb de fermeture. Cela m'en créera surement d'autres.
Désolé de vous avoir fais gamberger pour rien.
EXCUSES et MERCI à vous 3 et à tout les autres.
Bon WE
A+
Daniel

 

[Staple1600]

Re

Si c'est un problème de chemin, c'est facile à résoudre avec un simple MsgBox
Sub TestChemin()
MsgBox ActiveWorkbook.Path
End Sub

 

[zebanx]

Re-

Je ne suis reparti que sur "mes" codes en prenant en compte la remarque de staple1600 sur le deuxième code.
A adapter avec l'USF mais si les fichiers sont sur le même répertoire, la copie se fait correctement.
Ou j'ai mal interprété la demande.

++
zebanx

 

[Staple1600]

Re

Donc une petite macro pour connaitre le chemin du classeur qu'on veut ouvrir

Sub Test_CHEMIN()
Dim Classeur, Chemin$
Classeur = Application.GetOpenFilename("Fichiers XL,*.xl?", , "Sélectionnez le classeur source,svp")
If Classeur <> False Then
MsgBox Classeur
Chemin = Left(Classeur, InStrRev(Classeur, "\"))
MsgBox Chemin
Else
MsgBox "Vous n'avez pas sélectionné de fichier!", vbCritical, "ERREUR"
End If
End Sub

 

[zebanx]

Merci

Ou la solution de Job75 en sélectionnant une cellule du fichier source
=GAUCHE(CELLULE("filename");TROUVE("[";CELLULE("filename"))-2)

 

[Staple1600]

Re

@zbanx
Certes.
Mais mon dernier code* avait vocation à être modifié pour ouvrir le classeur sélectionné
Ce qu'une formule aurait du mal à faire

Je cherche à réaliser le transfert de données depuis 1 fichier A appelé "importer" d'un fichier B appelé Listing Sé via un Usf.

*: Ce qui évite de stocker le chemin en dur et donc d'avoir des erreurs de chemin comme l'indique le demandeur dans son dernier message.

PS:@zebanx: merci de me dire merci mais je m'adressais d'abord au demandeur

 

[mfb]

Bonjour tout le monde,
Merci Staple, et au autres, c'est super. Pb résolu
A+
Daniel