none
Request-Web RRS feed

Réponses

Toutes les réponses

  • Bonjour

    Pouvez-vous nous donner des détails avec les erreurs?
    Je viens de le tester et il fonctionne bien!

    Bien cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    jeudi 27 mars 2014 11:37
  • Bonjour Monsieur,

    D'abord toute mes excuse de ne pas avoir répondu a votre réponse!

    Je vous prépare un aperçu.

    Respectueusement

    Arnold

    vendredi 28 mars 2014 06:17
  • Bonjour Monsieur,

    Ci-joint le fichier:

    geocoder_query

    Merci pour votre assistance!

    Arnold


    • Modifié arnold_ vendredi 28 mars 2014 08:33 up-date the link
    vendredi 28 mars 2014 08:24
  • Bonjour

    J'ai modifié le code pour vous :
    Supprimez le code déjà écrit.
    Dans l'éditeur VBA, dans l'explorateur de projet  clic droit sur ThisWorkbook et Afficher Code.
    Ici collez :

    Private Sub Workbook_Open()
    
    
    Dim url As String
    url = "URL;http://rpc.geocoder.us/service/csv?address=1600+Pennsylvania+Ave,+Washington+DC"
    With Worksheets("Feuil1").QueryTables.Add(Connection:=url, Destination:=Worksheets("Feuil1").Range("A1"))
    .Name = "Geocoder_Query"
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 2
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=True
    End With
    End Sub
    
    
    Cordialement,

     


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    vendredi 28 mars 2014 08:55
  • Bonjours Monsieur, Merci pour votre retour! Mea culpa, j'ai oublier de mettre le "Privat Sub". Avant de clore: En autre: L'UpDate sa ce règle par des intervalle; donc uniquement par minutes, et ne pas autrement? Donc il n'y pas de possibilité faire un "UpDate fix" par ex. a 23:00 heures? Respectueusement, Arnold
    vendredi 28 mars 2014 10:29
  • Vous pouvez bien ne pas utiliser le Refresh directement, mais utilisez 1 timer qui fait le Refresh.
    Voir ici un exemple sur l'utilisation des Timers :
    http://visualbasic.about.com/od/learnvba/a/vbatiming1.htm

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    • Marqué comme réponse arnold_ vendredi 28 mars 2014 10:58
    vendredi 28 mars 2014 10:39
  • Bonjour Monsieur,

    Merci pour votre aide et vos suggestion.

    Toute va très bien!

    Respectueusement

    Arnold

    vendredi 28 mars 2014 10:55