Pb lecture cellules dans un fichier.
Résolu/Fermé
jo456
-
5 janv. 2009 à 10:46
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 janv. 2009 à 14:34
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 janv. 2009 à 14:34
A voir également:
- Pb lecture cellules dans un fichier.
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier host - Guide
- Ouvrir un fichier .bin - Guide
7 réponses
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 janv. 2009 à 11:24
5 janv. 2009 à 11:24
Bonjour,
Voir ce topic pour travailler excel à partir de VB6
A+
Voir ce topic pour travailler excel à partir de VB6
A+
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
6 janv. 2009 à 09:02
6 janv. 2009 à 09:02
Réponse à ta question 8
Val est un mot réservé, tu ne peu l'employer comme variable, met Valeur si tu veux ou autre chose.
Réponse à ta question 9
Dans ta boucle du met..
et tu pourras arriver dans l'événement clic du bouton où tu doit mettre
Mais si j'ai compris ta boucle tu veux trouver la 1ère cellule vide... Si oui pas besoin de boucle
A+
Val est un mot réservé, tu ne peu l'employer comme variable, met Valeur si tu veux ou autre chose.
Réponse à ta question 9
Dans ta boucle du met..
DoEvents
et tu pourras arriver dans l'événement clic du bouton où tu doit mettre
Mais si j'ai compris ta boucle tu veux trouver la 1ère cellule vide... Si oui pas besoin de boucle
'Première cellule vide pour la colonne D
Dim DerLig as long
DerLig = Range("D65536").End(xlUp).Row + 1
A+
j'ai reussi ce que je souhaité faire...mais un autre probleme ce pose
Private Sub Command1_Click()
Dim DerLig As Long
List1.AddItem (Newadress) 'ajout la nvl adress mail dans la liste
'premiere cellule vide pour la colonne A
DerLig = Range("A65536").End(xlUp).Row + 1
Cells(DerLig, 1) = Newadress
End Sub
Newadress est un textbox dans lequel on rentre une adresse mail...cette adresse est copiée dans la derniere cellule de la colonne A...mais en quittant mon prog il me demande si je veut enregistrer les modification apporté au fichier "adressmail.xls" donc quand je lui dit oui il m'ouvre la fenetre enregistrer sous...je souhaite alors remplacer l'ancien fichier "adressmail.xls" par le nouveau (donc écraser l'ancien) mais quand je clique sur enregistrer il ne ce passe rien comme si il n'accepter pas que j'enregistre...je suppose sans certitude qu'il ne veut pas ecraser l'ancien fichier car il est encore ouvert...ai je tors?
Private Sub Command1_Click()
Dim DerLig As Long
List1.AddItem (Newadress) 'ajout la nvl adress mail dans la liste
'premiere cellule vide pour la colonne A
DerLig = Range("A65536").End(xlUp).Row + 1
Cells(DerLig, 1) = Newadress
End Sub
Newadress est un textbox dans lequel on rentre une adresse mail...cette adresse est copiée dans la derniere cellule de la colonne A...mais en quittant mon prog il me demande si je veut enregistrer les modification apporté au fichier "adressmail.xls" donc quand je lui dit oui il m'ouvre la fenetre enregistrer sous...je souhaite alors remplacer l'ancien fichier "adressmail.xls" par le nouveau (donc écraser l'ancien) mais quand je clique sur enregistrer il ne ce passe rien comme si il n'accepter pas que j'enregistre...je suppose sans certitude qu'il ne veut pas ecraser l'ancien fichier car il est encore ouvert...ai je tors?
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
jo456
6 janv. 2009 à 13:32
6 janv. 2009 à 13:32
Comprend pas... quand ont clic sur Oui, il n'y a pas de fenêtre <Enrégistrer sous..> ?
jo456
>
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
6 janv. 2009 à 14:15
6 janv. 2009 à 14:15
si il y a une fenetre enregistrer sous qui s'ouvre...mais il ne veut pas écraser le fichier "adressemail" deja existant
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
jo456
6 janv. 2009 à 14:34
6 janv. 2009 à 14:34
Attend... Si j'extrapole fortement... tu à un classeur "adressemail"... Tu ouvre un nouveau classeur... et tu veux le sauver sous le nom adressemail ? Si c'est ça, faut d'abord fermer adressemail.
Pour avoir la fenêtre Sauver sous... il faut que ce soit un nouveau classeur.
Sinon, je comprend toujours pas !!
Pour avoir la fenêtre Sauver sous... il faut que ce soit un nouveau classeur.
Sinon, je comprend toujours pas !!
petite précision : le fichier que je doit ouvrir est un fichier.DBF en gros c'est une base de données...sachant que j'arrive a ouvrir ce fichier avec excel et que excel ne me change pas la mise en forme j'ai donc utilisé la meme manip que pour un fichier excel normal...est ce que mon probleme viens de la?
y a t'il une manip pour ouvrir un fichier et qu'il apparaisse a l'ecran car apparament le fichier s'ouvre en arriere plan.
merci d'avance
y a t'il une manip pour ouvrir un fichier et qu'il apparaisse a l'ecran car apparament le fichier s'ouvre en arriere plan.
merci d'avance
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 janv. 2009 à 13:17
5 janv. 2009 à 13:17
C'est une référence à ajouter dans VB6
>> Projet >> Références >> et la choisir Microsoft Excel et valider.
A+
>> Projet >> Références >> et la choisir Microsoft Excel et valider.
A+
désolé de te poser toutes ces question mais avec ce que tu ma montrer qu'est il sensé ce passer??
car moi je reçoi tjr un méssage d'erreur '424'
je pence que recopier simplement tes ligne de code ne suffit pas ^^ car malgrés que j'ai ajouter tout ça...le fichier excel ne s'ouvre pas...désolé mais j'ai vraiment baucoup de mal avec VB je suis plus habitué au c et c++
car moi je reçoi tjr un méssage d'erreur '424'
je pence que recopier simplement tes ligne de code ne suffit pas ^^ car malgrés que j'ai ajouter tout ça...le fichier excel ne s'ouvre pas...désolé mais j'ai vraiment baucoup de mal avec VB je suis plus habitué au c et c++
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 janv. 2009 à 13:51
5 janv. 2009 à 13:51
En principe, si le chemin du classeur est valide il est ouvert et visible, est-ce le cas ?
Si oui, il te faut sélectionner la feuille..
Si tu a garder les même variables que dans l'exemple...
Feuille.Range("D2").select serra la cellule active
ou..
MaVariable = Feuille.Range("D2")
ou..
Ligne =2 : Colonne = 4
MaVariable = Feuille.cells(Ligne, Colonne) 'Comme ça tu peu faire avec des boucles for/Next
Ou encore autre exemple
MaVariable = Book.Sheets(1).cells(Ligne, Colonne)
ou..
MaVariable = Book.Sheets("LeNomDeLaFeuille").cells(Ligne, Colonne)
Tout ces exemples pour te montrer les possibilités pour travailler. Si tu connais le VBA tu peu tout faire en remplacant Application par EX et le classeur par Book
NB: S'il n'est pas nécessaire de voir le classeur tu peu très bien y travailler sans le mettre en "Visible"
Tu dit.
Si oui, il te faut sélectionner la feuille..
Si tu a garder les même variables que dans l'exemple...
Feuille.Range("D2").select serra la cellule active
ou..
MaVariable = Feuille.Range("D2")
ou..
Ligne =2 : Colonne = 4
MaVariable = Feuille.cells(Ligne, Colonne) 'Comme ça tu peu faire avec des boucles for/Next
Ou encore autre exemple
MaVariable = Book.Sheets(1).cells(Ligne, Colonne)
ou..
MaVariable = Book.Sheets("LeNomDeLaFeuille").cells(Ligne, Colonne)
Tout ces exemples pour te montrer les possibilités pour travailler. Si tu connais le VBA tu peu tout faire en remplacant Application par EX et le classeur par Book
NB: S'il n'est pas nécessaire de voir le classeur tu peu très bien y travailler sans le mettre en "Visible"
Tu dit.
excuze moi j'ai encore un probleme...aprés avoir lu la cellule je doit verifié avec un if si la case est vide ou non...puis passé a la cellule suivante...et recommencer....pour ce faire j'ai utilisé :
Do While (aret <> 1)
val = Worksheets(1).Cells(I, 4).Value
'probleme avec le if
If (val <> "") Then
I = I + 1
Else: j = 1
End If
Loop
il me met un message d'erreur sur le if a tu une idée??
merci
Do While (aret <> 1)
val = Worksheets(1).Cells(I, 4).Value
'probleme avec le if
If (val <> "") Then
I = I + 1
Else: j = 1
End If
Loop
il me met un message d'erreur sur le if a tu une idée??
merci
j'ai encore un problem ...j'ai fait un do while ..et je doit en sortir seulement quand j'appuie sur le boutton "aret" ...mais une fois la boucle lancée je ne peut plus rien faire...j'ai essayer de metre un sleep pour avoir le temps d'appuyer sur "aret" mais le prog et tout le temps occuper...comment faire???
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
6 janv. 2009 à 13:06
6 janv. 2009 à 13:06
Mais oui...comme tu testais la colonne 4 j'ai donc mis D.
Tu peu aussi le faire avec Cells...
Tu peu aussi le faire avec Cells...
Dim DerLig as long, Colonne as integer
Colonne = 1 'pour la colonne A
DerLig = Cells(D65536,Colonne).End(xlUp).Row + 1