Bonjour,
 
J'essaie d'écrire une macro pour importer des tableaux Excel qui se trouvent sur notre Intranet, mais à chaque fois ça me sort "erreur 3651".  
 
Ma macro est la suivante:
 
Option Compare Database
 
Private Sub Commande0_Click()
 
DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
 tablename:="Sdp Coraly j-2", FileName:="http://C'est la que je colle l'adresse intranet du fichier", HasFieldNames:=False
             
 
     
End Sub
 
Je suis loin d'être un pro en VBA, si quelqu'un pourra m'aider juste pour faire une macro qui me permettra d'importer les données xls de Intranet, cela m'aiderait beaucoup.  
 
Merci.
 
Erik.
 
 

L'erreur 3651 signifie : Adresse internet non valide.
(La liste des codes d'erreur est visible sur la page http://officesystemaccess.seneque. [...] sdao.htm).
 
Donc, il faut mettre une autre adresse, ou bien c'est peut-être un problème de droit d'accès.

Merci pour la réponse. Justement, il n'y a pas de droit d'accès, il est ouvert à tout le monde, ce ça ce que je ne comprends pas... Et puis l'adresse est bonne.  
 
Mais la macro, est-ce qu'elle est bien?

Un petit détail ,qui est peut-être important, est qu'il faut metre un tiret de soulignement à la fin des lignes sauf la dernière pour indiquer que l'instruction se poursuit sur la ligne suivant. Dans le code qui a été montré, ce tiret est présent à la fin de la première ligne, mais a été oublié à la fin de la seconde ligne.
 
Il est difficile de dire si une macro est "bien" ou non. Cela dépend de ce que l'on attend.

Et pourtant si je mets un chemin direct vers un fichier sur le disque dur, ça marche bien... C'est juste avec les liens Internet qu'elle ne marche pas. On m'a dit que pour importer des données Internet il faut uine autre macro, mais je n'arrive à la trouver nulle part.