Probleme sur code vba export
Résolu
cedric0715
Messages postés
265
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
