conservation et copie automatique de données d'un classeur à un a
2 réponses
Claire
bonjour à tous,
Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de
projets. Sur access on garde ces fiches est-ce que sur excel on peut en faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un
numéro s'incrémente automatiquement dans mes fiches et que ces numéro ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour
répertorier ces fiches en fait.
Pouvez vous m'aidez??
Merci d'avance
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
Bonjour Claire, cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire que ton fichier de départ. Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le fichier N°Projet.txt avec le bloc note pour remettre le bon N° de départ il te faut un onglet nommé "modele" ou change le nom dans la macro, change aussi E17 cells ou va s'inscrire le N° Pour l'enregistrement je n'ai rien prévu. A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False On Error Resume Next canal = FreeFile fichier = ThisWorkbook.Path & "N°Projet.txt" Open fichier For Input As #canal Input #canal, nf Close #canal nf = nf + 1 Open fichier For Output As #canal Print #canal, nf Close #canal Sheets("modele").[E17] = nf 'modele est le nom de l'onglet 'Sheets("modele").Visible = True Sheets("modele").Copy Sheets("modele").Name = "P" & nf 'nom de l'onglet Application.ScreenUpdating = True
"Claire" a écrit dans le message de news:
bonjour à tous, Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de projets. Sur access on garde ces fiches est-ce que sur excel on peut en faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un numéro s'incrémente automatiquement dans mes fiches et que ces numéro ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour répertorier ces fiches en fait. Pouvez vous m'aidez?? Merci d'avance
Bonjour Claire,
cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire
que ton fichier de départ.
Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le
fichier N°Projet.txt avec le
bloc note pour remettre le bon N° de départ
il te faut un onglet nommé "modele" ou change le nom dans la macro,
change aussi E17 cells ou va s'inscrire le N°
Pour l'enregistrement je n'ai rien prévu.
A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False
On Error Resume Next
canal = FreeFile
fichier = ThisWorkbook.Path & "N°Projet.txt"
Open fichier For Input As #canal
Input #canal, nf
Close #canal
nf = nf + 1
Open fichier For Output As #canal
Print #canal, nf
Close #canal
Sheets("modele").[E17] = nf 'modele est le nom de l'onglet
'Sheets("modele").Visible = True
Sheets("modele").Copy
Sheets("modele").Name = "P" & nf 'nom de l'onglet
Application.ScreenUpdating = True
"Claire" <Claire@discussions.microsoft.com> a écrit dans le message de news:
339ECC51-7C9A-475C-A236-EEFA7EAFF2D2@microsoft.com...
bonjour à tous,
Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de
projets. Sur access on garde ces fiches est-ce que sur excel on peut en
faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un
numéro s'incrémente automatiquement dans mes fiches et que ces numéro
ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour
répertorier ces fiches en fait.
Pouvez vous m'aidez??
Merci d'avance
Bonjour Claire, cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire que ton fichier de départ. Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le fichier N°Projet.txt avec le bloc note pour remettre le bon N° de départ il te faut un onglet nommé "modele" ou change le nom dans la macro, change aussi E17 cells ou va s'inscrire le N° Pour l'enregistrement je n'ai rien prévu. A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False On Error Resume Next canal = FreeFile fichier = ThisWorkbook.Path & "N°Projet.txt" Open fichier For Input As #canal Input #canal, nf Close #canal nf = nf + 1 Open fichier For Output As #canal Print #canal, nf Close #canal Sheets("modele").[E17] = nf 'modele est le nom de l'onglet 'Sheets("modele").Visible = True Sheets("modele").Copy Sheets("modele").Name = "P" & nf 'nom de l'onglet Application.ScreenUpdating = True
"Claire" a écrit dans le message de news:
bonjour à tous, Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de projets. Sur access on garde ces fiches est-ce que sur excel on peut en faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un numéro s'incrémente automatiquement dans mes fiches et que ces numéro ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour répertorier ces fiches en fait. Pouvez vous m'aidez?? Merci d'avance
Claire
Merci Youky et bonne journée
Bonjour Claire, cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire que ton fichier de départ. Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le fichier N°Projet.txt avec le bloc note pour remettre le bon N° de départ il te faut un onglet nommé "modele" ou change le nom dans la macro, change aussi E17 cells ou va s'inscrire le N° Pour l'enregistrement je n'ai rien prévu. A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False On Error Resume Next canal = FreeFile fichier = ThisWorkbook.Path & "N°Projet.txt" Open fichier For Input As #canal Input #canal, nf Close #canal nf = nf + 1 Open fichier For Output As #canal Print #canal, nf Close #canal Sheets("modele").[E17] = nf 'modele est le nom de l'onglet 'Sheets("modele").Visible = True Sheets("modele").Copy Sheets("modele").Name = "P" & nf 'nom de l'onglet Application.ScreenUpdating = True
"Claire" a écrit dans le message de news:
bonjour à tous, Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de projets. Sur access on garde ces fiches est-ce que sur excel on peut en faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un numéro s'incrémente automatiquement dans mes fiches et que ces numéro ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour répertorier ces fiches en fait. Pouvez vous m'aidez?? Merci d'avance
Merci Youky
et bonne journée
Bonjour Claire,
cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire
que ton fichier de départ.
Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le
fichier N°Projet.txt avec le
bloc note pour remettre le bon N° de départ
il te faut un onglet nommé "modele" ou change le nom dans la macro,
change aussi E17 cells ou va s'inscrire le N°
Pour l'enregistrement je n'ai rien prévu.
A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False
On Error Resume Next
canal = FreeFile
fichier = ThisWorkbook.Path & "N°Projet.txt"
Open fichier For Input As #canal
Input #canal, nf
Close #canal
nf = nf + 1
Open fichier For Output As #canal
Print #canal, nf
Close #canal
Sheets("modele").[E17] = nf 'modele est le nom de l'onglet
'Sheets("modele").Visible = True
Sheets("modele").Copy
Sheets("modele").Name = "P" & nf 'nom de l'onglet
Application.ScreenUpdating = True
"Claire" <Claire@discussions.microsoft.com> a écrit dans le message de news:
339ECC51-7C9A-475C-A236-EEFA7EAFF2D2@microsoft.com...
bonjour à tous,
Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de
projets. Sur access on garde ces fiches est-ce que sur excel on peut en
faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un
numéro s'incrémente automatiquement dans mes fiches et que ces numéro
ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour
répertorier ces fiches en fait.
Pouvez vous m'aidez??
Merci d'avance
Bonjour Claire, cette macro va créer un petit fichier N°Projet.txt dans le meme répertoire que ton fichier de départ. Il va s'incrémenter à chaque lancement de la macro, tu peux modifier le fichier N°Projet.txt avec le bloc note pour remettre le bon N° de départ il te faut un onglet nommé "modele" ou change le nom dans la macro, change aussi E17 cells ou va s'inscrire le N° Pour l'enregistrement je n'ai rien prévu. A voir si tu veux tout dans le meme classeur
Application.ScreenUpdating = False On Error Resume Next canal = FreeFile fichier = ThisWorkbook.Path & "N°Projet.txt" Open fichier For Input As #canal Input #canal, nf Close #canal nf = nf + 1 Open fichier For Output As #canal Print #canal, nf Close #canal Sheets("modele").[E17] = nf 'modele est le nom de l'onglet 'Sheets("modele").Visible = True Sheets("modele").Copy Sheets("modele").Name = "P" & nf 'nom de l'onglet Application.ScreenUpdating = True
"Claire" a écrit dans le message de news:
bonjour à tous, Cette fois ci j'ai une fiche projet que l'on remplie à chaque création de projets. Sur access on garde ces fiches est-ce que sur excel on peut en faire
de même pour ensuite toutes les consulter? D'autre part je souhaite qu'un numéro s'incrémente automatiquement dans mes fiches et que ces numéro ainsi
que quelques données d'une fiche soit copiés dans un autre classeur pour répertorier ces fiches en fait. Pouvez vous m'aidez?? Merci d'avance
