Corrigé 19.5 Créer un fichier GPX

Sub CréeGPX() 
    Dim strCheminRessources As String 
    Dim fso As Scripting.FileSystemObject 
    Dim strFichierGPX As String 
    Dim fluxTexte As Scripting.TextStream 
    Dim intLigne As Integer 
    Dim intNbLignes As Integer 
    Dim f As Worksheet 
    Call Chemin 
    strCheminRessources = strChemin & "\Documents XML\" 
    strFichierGPX = Application.InputBox("Entrez le nom du fichier GPX _ 
    à créer" & vbCrLf & "SANS l'extension .gpx", 2) 
    Set f = Worksheets("Données GPX") 
    Set fso = New FileSystemObject 
    Set fluxTexte = fso.OpenTextFile(Filename:=strCheminRessources & _ 
    strFichierGPX & ".gpx", IOMode:=ForWriting, Create:=True) 
    With fluxTexte 
        intNbLignes = Worksheets("Données GPX").Range("A1").CurrentRegion.Rows.Count 
       ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 19.4 Ouvrir un fichier XML dans Excel Microsoft 365
Suivant
Corrigé 19.6 Lire directement un fichier XML