Lire un fichier excel en VBA excel
sirine
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
bonsoir ,
j'ai un petit problème j'ai pas trouver le code spécifique pour
j'ai fait un interface en VBA excel qui importe des fichiers excel et l'exporter dans un seul fichier externe fermer .xls donc je veux terminer mon code de faire
la lecture de ce fichier fermer .xls et l'afficher sur notre page actuel excel
voila le code mais n'est pas complet
Dim ligne_debut As Integer: Dim ligne_fin As Integer
Dim clonne_debut As Integer: Dim colonne_fin As Integer
Dim ligne_enCours As Integer: Dim colonne_enCours As Integer
Private Sub fermer_Click()
End Sub
Private Sub exporter_Click()
Dim nom_fichier As String
ligne_debut = 1: colonne_debut = 1
ligne_enCours = ligne_debut: colonne_enCours = colonne_debut
For i = 0 To liste_fichiers.ListCount - 1
lecture (liste_fichiers.List(i))
Next i
traitement
nom_fichier = Application.GetSaveAsFilename(fileFilter:="Text Files (*.xls), *.xls")
sortie.Value = nom_fichier
lecture (nom_fichier)
End Sub
Private Sub importer_Click()
Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("Text Files (*.xls), *.xls", , "selectionner un fichiers EXCEL")
If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste_fichiers.AddItem (fichier_choisi)
End If
End Sub
Private Sub ecriture()
End Sub
Private Sub lecture(fichier As String)
End Sub
Private Sub traitement()
End Sub
si vous pouvez m'aider , merci d'avance .
j'ai un petit problème j'ai pas trouver le code spécifique pour
j'ai fait un interface en VBA excel qui importe des fichiers excel et l'exporter dans un seul fichier externe fermer .xls donc je veux terminer mon code de faire
la lecture de ce fichier fermer .xls et l'afficher sur notre page actuel excel
voila le code mais n'est pas complet
Dim ligne_debut As Integer: Dim ligne_fin As Integer
Dim clonne_debut As Integer: Dim colonne_fin As Integer
Dim ligne_enCours As Integer: Dim colonne_enCours As Integer
Private Sub fermer_Click()
End Sub
Private Sub exporter_Click()
Dim nom_fichier As String
ligne_debut = 1: colonne_debut = 1
ligne_enCours = ligne_debut: colonne_enCours = colonne_debut
For i = 0 To liste_fichiers.ListCount - 1
lecture (liste_fichiers.List(i))
Next i
traitement
nom_fichier = Application.GetSaveAsFilename(fileFilter:="Text Files (*.xls), *.xls")
sortie.Value = nom_fichier
lecture (nom_fichier)
End Sub
Private Sub importer_Click()
Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("Text Files (*.xls), *.xls", , "selectionner un fichiers EXCEL")
If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste_fichiers.AddItem (fichier_choisi)
End If
End Sub
Private Sub ecriture()
End Sub
Private Sub lecture(fichier As String)
End Sub
Private Sub traitement()
End Sub
si vous pouvez m'aider , merci d'avance .
A voir également:
- Lire un fichier excel en VBA excel
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Lire un fichier epub - Guide
- Fichier bin - Guide
- Word et excel gratuit - Guide