Probleme sur code vba export
Résolu
cedric0715
Messages postés
210
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17272 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17272 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Probleme sur code vba export
- Code ascii - Guide
- Code puk bloqué - Guide
- Code deverouillage telephone perdu - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
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