XL 2016 Explication Macro

brice2020

XLDnaute Nouveau
Bonsoir tout le monde

Je récupère des données d'un formulaire google sous un fichier gsheet.
Je voudrai récupérer, avec une macro, les données de ce formulaire qui sont régulièrement actualisées et les enregistré dans un Classeur Excel.
J'ai fait plusieurs recherches et je suis tombé sur la macro suivante dans laquelle j'ai inséré mon "URL". Elle tourne mais rien ne s'affiche et pas de message d'erreur

Je voudrai comprendre ce programme de façon à pouvoir la modifier.
C'est quoi qu'on copie?
Où sont collées les données?
...

Merci pour votre aide

Bonne fin de journée

Brice

Ps: l'URL est accessible par un identifiant et un mot de passe que je ne peux pas divulguer. J'espère qu'il n'y en a pas besoin

Sub ImportGoogle()
'
' ImportGoogle Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://docs.google.com/spreadsheets/d/10oxhCjsivKM4COOXUcUGjWir_BsvCmr8BJIiAjwIJGc/edit?usp=sharing" _
, Destination:=Range("D2"))
.Name = _
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """tblMain"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-15
Range("A1").Select


End Sub
 

brice2020

XLDnaute Nouveau
Bonsoir

J'ai fait plus de recherches et j'ai trouvé une macro qui permet de récupérer des données google sheet (Drive) vers Excel. Hélas pour moi elle ne fonctionne pas
voici l'URL du fichier que je voudrai copier:
https://docs.google.com/spreadsheets/d/10oxhCjsivKM4COOXUcUGjWir_BsvCmr8BJIiAjwIJGc/edit?usp=sharing
Pour accéder au fichier gsheet:
rfaimpression3d@gmail.com
mot de passe: testexcel2020

Enfin la macro qui ne fonctionne pas ou que je ne sais pas faire fonctionner!!
J'utilise cette macro dans un fichier excel.

Merci à tous et bonne soirée

Brice

Sub recupdonnéesweb()
'----préparation-----
Sheets("nom de l'onglet où copier les réponses").Select
Columns("B:N").Clear
'---------
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;adresse du fichier google de réponse à récupérer" _
, Destination:=Range("B1"))
'.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
End With
End Sub
 

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40