|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : !!! URGENT !!! URGENT !!! Fichier excel [ Archives Visual Basic / Fichier / Disque ] (pino)
 Informations & options pour cette discussion
mercredi 13 mars 2002 à 10:36:33 |
!!! URGENT !!! URGENT !!! Fichier excel
pino
|
Bonjour, J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro. Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert. Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls. Voila c'est tout. J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!! Pino.
|
|
|
mercredi 13 mars 2002 à 11:22:52 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
oliver68
|
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
mercredi 13 mars 2002 à 11:37:07 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
pino
|
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
mercredi 13 mars 2002 à 12:54:28 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
pino
|
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
mercredi 13 mars 2002 à 15:02:11 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
oliver68
|
Re,
lig c'est la variable pour le numéro de ligne
"feuil1" c'est le nom de la feuille dans laquelle tu écris les données
C'est quoi le msg d'erreur ? ton fichier existe bien ?
Tu peux pas mettre :
Range("SnD.xls" & lig)
RANGE c'est pour lui indiquer la cellule, donc si tu veux écrire en colonne A, tu mets range("a" & lig), en colonne B, tu mets range("b" & lig), etc etc.
-------------------------------
Réponse au message :
-------------------------------
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
mercredi 13 mars 2002 à 16:05:25 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
pino
|
Merci Olivier,ça marche!
Je dois un peu arranger les ranges comme tu as dis.
Mille fois merci
Pino
-------------------------------
Réponse au message :
-------------------------------
Re,
lig c'est la variable pour le numéro de ligne
"feuil1" c'est le nom de la feuille dans laquelle tu écris les données
C'est quoi le msg d'erreur ? ton fichier existe bien ?
Tu peux pas mettre :
Range("SnD.xls" & lig)
RANGE c'est pour lui indiquer la cellule, donc si tu veux écrire en colonne A, tu mets range("a" & lig), en colonne B, tu mets range("b" & lig), etc etc.
-------------------------------
Réponse au message :
-------------------------------
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
jeudi 14 mars 2002 à 09:18:28 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
pino
|
Juste encore une petite question,
si la date est la même mais pas l'heure.
Comment tester l'heure alors.
Peus-tu m'expliquer que veut dire :" for input as #1
et mid$ ....,1, 8)
Merci.
-------------------------------
Réponse au message :
-------------------------------
Re,
lig c'est la variable pour le numéro de ligne
"feuil1" c'est le nom de la feuille dans laquelle tu écris les données
C'est quoi le msg d'erreur ? ton fichier existe bien ?
Tu peux pas mettre :
Range("SnD.xls" & lig)
RANGE c'est pour lui indiquer la cellule, donc si tu veux écrire en colonne A, tu mets range("a" & lig), en colonne B, tu mets range("b" & lig), etc etc.
-------------------------------
Réponse au message :
-------------------------------
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
vendredi 15 mars 2002 à 10:16:01 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
oliver68
|
salut,
ben dans ce cas là si tu veux comparer le groupe date-heure mets :
verifdate1 = FileDateTime("c:\Idbios.txt")
verifdate2 = FileDateTime("c:\SnD.xls")
j'ai pas utilisé mid$. Mid$ permet d'extraire une chaine d'une variable, donc là sans mid$, je lis toute la variable. structure de mid$:
mid$(chaine,début,longueur), donc
mid$("BONJOUR",1,3) me retourne BON.
Et for input as #1, c'est le mode d'ouverture du fichier. OPEN xxx FOR INPUT = pour lire le fichier xxx, as #1 parceque je lui assigne le numéro 1
@+
-------------------------------
Réponse au message :
-------------------------------
Juste encore une petite question,
si la date est la même mais pas l'heure.
Comment tester l'heure alors.
Peus-tu m'expliquer que veut dire :" for input as #1
et mid$ ....,1, 8)
Merci.
-------------------------------
Réponse au message :
-------------------------------
Re,
lig c'est la variable pour le numéro de ligne
"feuil1" c'est le nom de la feuille dans laquelle tu écris les données
C'est quoi le msg d'erreur ? ton fichier existe bien ?
Tu peux pas mettre :
Range("SnD.xls" & lig)
RANGE c'est pour lui indiquer la cellule, donc si tu veux écrire en colonne A, tu mets range("a" & lig), en colonne B, tu mets range("b" & lig), etc etc.
-------------------------------
Réponse au message :
-------------------------------
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
vendredi 15 mars 2002 à 12:32:08 |
Re : !!! URGENT !!! URGENT !!! Fichier excel
pino
|
Merci beaucoup, grace a des gens comme vous ce site est le meilleur que je connaisse.
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
ben dans ce cas là si tu veux comparer le groupe date-heure mets :
verifdate1 = FileDateTime("c:\Idbios.txt")
verifdate2 = FileDateTime("c:\SnD.xls")
j'ai pas utilisé mid$. Mid$ permet d'extraire une chaine d'une variable, donc là sans mid$, je lis toute la variable. structure de mid$:
mid$(chaine,début,longueur), donc
mid$("BONJOUR",1,3) me retourne BON.
Et for input as #1, c'est le mode d'ouverture du fichier. OPEN xxx FOR INPUT = pour lire le fichier xxx, as #1 parceque je lui assigne le numéro 1
@+
-------------------------------
Réponse au message :
-------------------------------
Juste encore une petite question,
si la date est la même mais pas l'heure.
Comment tester l'heure alors.
Peus-tu m'expliquer que veut dire :" for input as #1
et mid$ ....,1, 8)
Merci.
-------------------------------
Réponse au message :
-------------------------------
Re,
lig c'est la variable pour le numéro de ligne
"feuil1" c'est le nom de la feuille dans laquelle tu écris les données
C'est quoi le msg d'erreur ? ton fichier existe bien ?
Tu peux pas mettre :
Range("SnD.xls" & lig)
RANGE c'est pour lui indiquer la cellule, donc si tu veux écrire en colonne A, tu mets range("a" & lig), en colonne B, tu mets range("b" & lig), etc etc.
-------------------------------
Réponse au message :
-------------------------------
Resalut,
J'ai modifier le programme comme suit:
Sub mp()
Dim verifdate1 As Date
Dim verifdate2 As Date
verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
verifdate2 = Mid$(FileDateTime("c:\SnD.xls"), 1, 8)
If verifdate1 < verifdate2 Then Exit Sub
lig = 0
Sheet1("sheet1").Range("a1:a10000").ClearContents
Open "c:\Idbios.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lecontenu
lig = lig + 1
Sheet1("sheet1").Range("SnD.xls" & lig).FormulaR1C1 = lecontenu
Loop
Close
ActiveWorkbook.Save
End Sub
Cependant il plante sur la ligne :verifdate1 = Mid$(FileDateTime("c:\Idbios.txt"), 1, 8)
T'as une idéé?
MERCI
-------------------------------
Réponse au message :
-------------------------------
Merci Olivier c'est sympa.
Etand donné que je suis débutant,je pourrais te poser des questions stupides comme par exemple:que dois-je mettre à la place de ("feuil1").
Lig = ligne ?????
Merci encore.
-------------------------------
Réponse au message :
-------------------------------
salut,
pour démarrer la macro à l'ouverture du fichier et faire ton code :
private sub workbook_open()
dim verifdate as date
dim verifdate2 as date
verifdate = mid$(filedatetime("c:\monfichier.txt"), 1, 8)
verifdate2 = mid$(filedatetime("c:\a.xls"), 1, 8)
if verifdate1 < verifdate2 then exit sub
lig=0
sheets("feuil1").range(a1:a10000).clearcontents
open "c:\monfichier.txt" for input as #1
do while not eof(1)
line input #1,lecontenu
lig=lig+1
sheets("feuil1").range("a" & lig).formular1c1=lecontenu
loop
close
activeworkbook.save
end sub
C'est non testé et de tête mais ça devrait pas être mal. A toi de modif avec tes "vrais" noms de fichiers et de feuilles.
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.
Cette macro devra aller voir la date d'un fichier texte (.txt) qui se trouve toujours à la même place et ouvrir ce fichier si sa date est plus grande que le fichier "A".xls auparavant ouvert.
Ensuite si la date est plus grande alors copier le contenu du fichier texte dans le fichier "A".xls.
Voila c'est tout.
J'éspère avoir une réponse,en attendant merci d'avance,ce site est super!!!
Pino.
|
|
|
Cette discussion est classé dans : fichier, date, urgent, excel, xls
 Répondre à ce message
 Sujets en rapport avec ce message
!!! URGENT !!! URGENT !!! Fichier excel [ par pino ]
Bonjour,J'aimerais lorsque j'ouvre un fichier excel nommé "A".xls par exemple actionner automatiquement une macro.Cette macro devra aller voir la date
Pbl Fichier Excel URGENT !!!! [ par pedro ]
J'ai un fichier Excel (*.xls) qui après avoir mis un lien depuis Powerpoint, ne veut plus s'ouvrir. Auriez vous une solutions. Le fichiers porte bien
VBA ouvrir un fichier excel depuis excel [ par rvw68 ]
BonjourJe souhaite ouvrir un fichier excel se trouvant dans le meme repertoire que le fichier courant. car son emplacement peut varier. Mais je ny arr
VBA / Excel !!! Comment faire pour ... [ par Spe6men ]
Je voudrai savoir comment faire pour copier une ligne d'un fichier excel dans un autre fichier excel portant le nom de la premiere cellule de la ligne
Prog VB et Excel [ par lard ]
Bonjour !J'aimerais "simplement" connaitre le moyen de récupérer les données d'un fichier .XLS avec un programme écrit en VB6 et aussi (pendant qu'on
enregistrement automatique de fichier .xls [ par lhonolulu ]
bonjourMon problème c'est qu'avec la méthode ci dessous, excel me demande si je veux enregistrer le fichier. Je voudrais que vba gére ca comme un gran
repertoire d'ouverture d'un fichier excel [ par cerec59 ]
Salut a tousJe dois ouvrir un fichier excel et j'utilise ce code:Set wbExcel = appExcel.Workbooks.Open("c:\essai.xls").Mais moi je voudrais que le che
lire un fichier xls sans avoir excel [ par Persons ]
bonjour à tous!je voudrai comment faut procéder pour lire ou créer 1 fichier xls avec vb6 quand on a pas excel.Merci d'avance pour vos réponses le +
tres URGENT??? pb api fction shell [ par nikostaf ]
salut, j'ai un pb je veux juste ouvrir un fichier excel pour le visualiser donc le plus simple est d'utiliser un shell. code:Logiciel = "c:\program fi
** URGENT MERCI ** [ par yoarf ]
Bonjour,Je développe sous VBA Excel.Je souhaite tout d'abord ouvrir un doc excel :xl.Workbooks.Open "G:\Qualite\dossier yoann\stage\types_de_rapport\9
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
HTC G1
Entre 449€ et 449€
|