Bonjour Didier


Damned, je suis découvert ! Bon en fait je n'avais pas l'impression de faire qq chose de mal en postant sur différents forums. Sachant que lorsqu'une personne trouve la solution, je fais passer le message sur les autres ce qui est on ne peut plus normal.

En tout cas merci pour l'info. Je ne peut pas tester ce Week-end bien sûr mais lundi au boulôt je verrais tout ça. Et je pense qu'en suivant tes conseils, il n'y aura plus de pb.

Je considère le fil comme résolu

Merci encore
Philippe

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 !

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



Si quelqu'un peut me mettre sur la piste d'une solution, cela m'enlèverait un belle épine du pied.

Amicalement
Philippe

Ps: J'ai plaisir à venir pour la première fois sur le forum de mdf. J'ai tjs apprécié ses qualités didactiques sur le forum d'excel downloads