Rapport de message :*
 

récupérer des infos d'un classeur excel à partir d'un classeur excel sous IE

Titre du sujet : récupérer des infos d'un classeur excel à partir d'un classeur excel sous IE
par Antiphot le 26/10/2007 14:56:15

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