Probleme sur code vba export

Résolu/Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 25 nov. 2016 à 11:52
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 25 nov. 2016 à 12:07

Bonjour,

mon code fonctionne mais d' es qu'il est utiliser par une autre personne sur un autre poste le code Open "D:\CBREDECHE\Bureau\testexcel.csv" For Output As #1 'a changer pour les autre pc'
ne fonctionne pas ,que faut il que je mette pour que n'importe quel personne qui utilise le fichier puisse enregistre export ou il veux "fenêtre de commande enregistrement"

trouvez ci dessous mon code
merci par avance

  Sub ExportCSV()

Dim LigneCSV As String
Dim PlageCSV As Range
Dim Ligne As Integer, Colonne As Integer, Nb_Ligne As Integer, Nb_Colonne As Integer


'Fermeture ficher si ouvert
Close

'Plage CSV
Set PlageCSV = Worksheets("Donné équipement").Range("A1:T650")

'Ouverture du fichier de sortie
Open "D:\CBREDECHE\Bureau\testexcel.csv" For Output As #1 'a changer pour les autre pc'

'Butees de comptage
Nb_Ligne = PlageCSV.Rows.Count
Nb_Colonne = PlageCSV.Columns.Count

'Boucle sur la plage et ajoute les lignes au fichier
For Ligne = 1 To Nb_Ligne
For Colonne = 1 To Nb_Colonne
If LigneCSV <> "" Then
LigneCSV = LigneCSV & ";"
End If
'construction ligne
LigneCSV = LigneCSV & PlageCSV.Cells(Ligne, Colonne).Value
Next Colonne
'Enregistrement ligne
Print #1, LigneCSV
LigneCSV = ""
Next Ligne

'Fermeture du fichier
Close #1

End Sub

A voir également:

Probleme sur code vba export
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 nov. 2016 à 12:07

Bonjour,

Sub ExportCSV()
    Dim LigneCSV As String
    Dim PlageCSV As Range
    Dim Ligne As Integer, Colonne As Integer, Nb_Ligne As Integer, Nb_Colonne As Integer
    
    'choix du repertoire
    Dim Repertoire As FileDialog, Rep As String
    
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        Rep = Repertoire.SelectedItems(1) & "\"
        'Fermeture ficher si ouvert
        Close
        'Plage CSV
        Set PlageCSV = Worksheets("Donné équipement").Range("A1:T650")
        'Ouverture du fichier de sortie
        Open Rep & "testexcel.csv" For Output As #1 'a changer pour les autre pc'
        'Butees de comptage
        Nb_Ligne = PlageCSV.Rows.Count
        Nb_Colonne = PlageCSV.Columns.Count
        'Boucle sur la plage et ajoute les lignes au fichier
        For Ligne = 1 To Nb_Ligne
            For Colonne = 1 To Nb_Colonne
                If LigneCSV <> "" Then
                    LigneCSV = LigneCSV & ";"
                End If
                'construction ligne
             LigneCSV = LigneCSV & PlageCSV.Cells(Ligne, Colonne).Value
            Next Colonne
            'Enregistrement ligne
            Print #1, LigneCSV
            LigneCSV = ""
        Next Ligne
        'Fermeture du fichier
        Close #1
    Else
        MsgBox "Choisissez un repertoire!!!!"
    End If

End Sub

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters