Récupérer des infos d'1 fichier excel à partir d'un autre fichier excel sous IExplore

[antiphot]

Récupérer des infos d'1 fichier excel à partir d'un autre fichier excel (Résolu)

Bonjour à toutes et à tous

Volià mon pb. J'ai un classeur excel sous internet explorer (il s'agit de l'intranet du boulôt) dans laquel j'ai rajouté une macro qui permet d'aller chercher des infos dans un fichier excel situé dans mes documents et de coller ces infos sur une feuille de mon classeur excel sous IE. J'ai une erreur 1004 à workbooks.open (Le Fichier)

Mais ce qui est étonnant c'est que si j'ouvre l'éditeur vba et que je lance la macro pas à pas et bien pas de pb, la macro fonctionne.

J'en perd mon latin et comme mes connaissances en vba sont qd même limitées, je sèche !

PS: Ce post fait suite à un autre message posté sous l'intitulé Pb getopenfilename. Post un peu confus. J'ai donc souhaité remettre tout à plat !!

ci-joint le code vba

-----------------------------------------------------------------------------------------
Sub test()
Dim deb As Long
Dim fin As Long
Dim moi As String
moi = ActiveWorkbook.Name
Dim LeFichier as string
Dim LeNom$


LeFichier = Application.GetOpenFilename(" Fichiers excel (*.xls),*.xls")

If LeFichier = False Then
MsgBox "Importation abandonnée!"
Exit Sub
Else
Workbooks.Open (LeFichier)
End If

deb = InputBox("Ligne de debut ?")
fin = InputBox("Ligne de fin ?")
LeNom = ActiveWorkbook.Name

ActiveWorkbook.ActiveSheet.Range("A" & deb & ":F" & fin).Copy Destination:=Workbooks(moi).Sheets("Import").Range("A65536").End(xlUp).Offset(1, 0)

Workbooks(LeNom).Close
Sheets("Import").Select
End Sub

 

[antiphot]

Re : Récupérer des infos d'1 fichier excel à partir d'un autre fichier excel sous IEx

Pb résolu sur le forum excel de MyDearFriend