!!! URGENT !!! URGENT !!! Fichier excel

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.

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.

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.

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.

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.

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.

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.

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.

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.