Une macro d'import ne fonctionne que sur un PC

Paris_Hilton Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Paris_Hilton Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai créé une macro pour importer des données depuis le site de l'INSEE. Elle fonctionne sur mon poste mais lorsque des collègues tente de l'utiliser, la macro plante. Auriez-vous une idée ? Un problème d'accès ? De sécurité ?

En vous remerciant.

Code :

With Sheets(" ").QueryTables.Add(Connection:= _
"URL;https://www.bdm.insee.fr/bdm2/affichageSeries?idbank=001711007&page=tableau&request_locale=fr" _
, Destination:=Sheets(" ").Range("$A$1"))
.Name = "serie.asp?idbank=001711007"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
A voir également:

1 réponse

Paris_Hilton Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Personne n'a d'idée sur le sujet ?
0