bonjour,
voici mon problème:
1) je n'arrive pas à mettre dans une variable le chemin complet du fichier
excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données
s'y trouvant
(sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa)
je voudrais ne faire apparaître uniquement les entrées avec les dates
correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de
la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au
critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour
toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la
selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les
valeur étant dans un fichier texte....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
Merci d'avance car je stagne....
1) Msgbox ThisWorkbook.Path
2) C'est un fichier text ou une feuille Excel...???
3) Application.OnTime TimeValue(heureDépart), "nomdelamacro"
C'est déja une approche
Youky
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: 7AFE73E4-C6FF-4BAE-A620-54698D46DCF5@microsoft.com...
bonjour,
voici mon problème:
1) je n'arrive pas à mettre dans une variable le chemin complet du fichier
excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les
données
s'y trouvant
(sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa)
je voudrais ne faire apparaître uniquement les entrées avec les dates
correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir
de
la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au
critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour
toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la
selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'),
les
valeur étant dans un fichier texte....
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
Merci d'avance car je stagne....
Sanaell
bonsoir,
pour le chemin merci :))
pour la deuxieme partie
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006 je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon fichier excel (la range est déjà connue j adapterai) uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
Merci d'avance car je stagne....
bonsoir,
pour le chemin merci :))
pour la deuxieme partie
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006
2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006
je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon fichier
excel (la range est déjà connue j adapterai)
uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path
2) C'est un fichier text ou une feuille Excel...???
3) Application.OnTime TimeValue(heureDépart), "nomdelamacro"
C'est déja une approche
Youky
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: 7AFE73E4-C6FF-4BAE-A620-54698D46DCF5@microsoft.com...
bonjour,
voici mon problème:
1) je n'arrive pas à mettre dans une variable le chemin complet du fichier
excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les
données
s'y trouvant
(sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa)
je voudrais ne faire apparaître uniquement les entrées avec les dates
correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir
de
la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au
critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour
toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la
selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'),
les
valeur étant dans un fichier texte....
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006 je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon fichier excel (la range est déjà connue j adapterai) uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
Merci d'avance car je stagne....
Youky
voici en retard qui doit faire le fichier txt doit etre dans le mm répertoire sinon faut spécifier à modifier le nom des feuilles et le nom du fichier ma macro est sous un bouton , met là en worksheets_change
if target.address<>"$C$6" then exit sub
Youky
Private Sub CommandButton1_Click() chemin = ThisWorkbook.Path canal = FreeFile Open chemin & "mytxt.txt" For Input As #canal Do While Not EOF(1) Line Input #canal, Ligne If CVDate(Right(Ligne, 10)) = Feuil1.[C6] Then lg = Feuil2.[A65536].End(xlUp).Row + 1 For k = 1 To 5 P = InStr(Ligne, ",") If P = 0 Then P = 1 Sheets("Feuil2").Cells(lg, k) = Mid(Ligne, 1, P - 1) Ligne = Mid(Ligne, P + 1) Next Sheets("Feuil2").Cells(lg, k) = CVDate(Ligne) End If Loop Close #canal End Sub
"Sanaell" a écrit dans le message de news:
bonsoir,
pour le chemin merci :))
pour la deuxieme partie
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006 je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon fichier excel (la range est déjà connue j adapterai) uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
Merci d'avance car je stagne....
voici en retard qui doit faire
le fichier txt doit etre dans le mm répertoire sinon faut spécifier
à modifier le nom des feuilles et le nom du fichier
ma macro est sous un bouton , met là en worksheets_change
if target.address<>"$C$6" then exit sub
Youky
Private Sub CommandButton1_Click()
chemin = ThisWorkbook.Path
canal = FreeFile
Open chemin & "mytxt.txt" For Input As #canal
Do While Not EOF(1)
Line Input #canal, Ligne
If CVDate(Right(Ligne, 10)) = Feuil1.[C6] Then
lg = Feuil2.[A65536].End(xlUp).Row + 1
For k = 1 To 5
P = InStr(Ligne, ",")
If P = 0 Then P = 1
Sheets("Feuil2").Cells(lg, k) = Mid(Ligne, 1, P - 1)
Ligne = Mid(Ligne, P + 1)
Next
Sheets("Feuil2").Cells(lg, k) = CVDate(Ligne)
End If
Loop
Close #canal
End Sub
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: 5CEE744E-CC6F-4045-A553-B4C450D1A74D@microsoft.com...
bonsoir,
pour le chemin merci :))
pour la deuxieme partie
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006
2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006
je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon
fichier
excel (la range est déjà connue j adapterai)
uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path
2) C'est un fichier text ou une feuille Excel...???
3) Application.OnTime TimeValue(heureDépart), "nomdelamacro"
C'est déja une approche
Youky
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: 7AFE73E4-C6FF-4BAE-A620-54698D46DCF5@microsoft.com...
bonjour,
voici mon problème:
1) je n'arrive pas à mettre dans une variable le chemin complet du
fichier
excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les
données
s'y trouvant
(sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa)
je voudrais ne faire apparaître uniquement les entrées avec les dates
correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à
partir
de
la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au
critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour
toutes les X secondes (sans trop ralentir le fichier et ni raffraichir
la
selection) d'aprés la date du jour en cours (jj/mm/aaaa
'=aujourdhui()'),
les
valeur étant dans un fichier texte....
voici en retard qui doit faire le fichier txt doit etre dans le mm répertoire sinon faut spécifier à modifier le nom des feuilles et le nom du fichier ma macro est sous un bouton , met là en worksheets_change
if target.address<>"$C$6" then exit sub
Youky
Private Sub CommandButton1_Click() chemin = ThisWorkbook.Path canal = FreeFile Open chemin & "mytxt.txt" For Input As #canal Do While Not EOF(1) Line Input #canal, Ligne If CVDate(Right(Ligne, 10)) = Feuil1.[C6] Then lg = Feuil2.[A65536].End(xlUp).Row + 1 For k = 1 To 5 P = InStr(Ligne, ",") If P = 0 Then P = 1 Sheets("Feuil2").Cells(lg, k) = Mid(Ligne, 1, P - 1) Ligne = Mid(Ligne, P + 1) Next Sheets("Feuil2").Cells(lg, k) = CVDate(Ligne) End If Loop Close #canal End Sub
"Sanaell" a écrit dans le message de news:
bonsoir,
pour le chemin merci :))
pour la deuxieme partie
C est un fichier texte dans lequel j ai des données de cette forme
1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 2,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,10/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,11/05/2006 1,NOM,555,TEXTE,TEXTE PLEIN DE TEXTE,12/05/2006 je voudrais donc que le 10/05/2006 (en case C6) me reporte dans mon fichier excel (la range est déjà connue j adapterai) uniquement les enregistrements de la date donné....
1) Msgbox ThisWorkbook.Path 2) C'est un fichier text ou une feuille Excel...??? 3) Application.OnTime TimeValue(heureDépart), "nomdelamacro" C'est déja une approche Youky
"Sanaell" a écrit dans le message de news:
bonjour, voici mon problème: 1) je n'arrive pas à mettre dans une variable le chemin complet du fichier excel à son ouverture
2) j'ai bcps de difficulté a lire un fichier texte afin de trier les données s'y trouvant (sachant que en colonne 1, j ai des dates sous la forme jj/mm/aaaa) je voudrais ne faire apparaître uniquement les entrées avec les dates correspondantes à la case "C6" (qui est sous la forme jj/mm/aaaa) à partir de la ligne A8 jusqu'a (A'n) "n" étant le nombre d'entrée correspondant au critère "C6"
3) je voudrais que 'si c est possible' la case en "B5" soit mise à jour toutes les X secondes (sans trop ralentir le fichier et ni raffraichir la selection) d'aprés la date du jour en cours (jj/mm/aaaa '=aujourdhui()'), les valeur étant dans un fichier texte....
