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 -
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
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:
- Une macro d'import ne fonctionne que sur un PC
- Réinitialiser un pc - Guide
- Pc lent que faire - Guide
- Télécharger musique gratuitement sur pc - Télécharger - Conversion & Extraction
- Test performance pc - Guide
- Downloader for pc - Télécharger - Téléchargement & Transfert