Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est enregi strée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau cla sseur qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuil le
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est enregi strée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau cla sseur qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuil le
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est enregi strée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau cla sseur qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuil le
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Salut Chaff,
Alors supposons que le fichier créant les fiches d'intervention se nomme :
Interv.xls
Que le fichier récapitulatif se nomme : Recapinterv.xls ( Dans ce fichier
prévois-toi une feuille " bidon " que tu nommera ACCUEIL )
Voici le code que tu peux mettre dans un module du fichier créant les
fiches
d'intervention ( interv.xls ), charge à toi de voir comment tu appelera ce
code une fois ta fiche d'intervention éditée. sois par raccourci clavier,
sois par CommandButton, sois directement dans la feuille représentant ta
fiche d'intervention, avec par exemple un déclenchement sur un "Selection
Change ".
Sub CreateFichCopy()
'
Dim FicheCree
'
FichRecap = "Recapinterv.xls"
FichRecap = ThisWorkbook.Path & FichRecap
'
' ouverture fichier RECAP
Workbooks.Open Filename:=FichRecap
' activation fiche Intervenion
Windows("interv.xls").Activate
' Sauvegarde fiche Intervention
ActiveWorkbook.Save
' Activation page active donc de la Fiche Intervention
' Affectation à une variable du nom de la feuille à copier
FicheCree = ActiveSheet.Name
' Activation fichier RECAP pour effectuer copie
Windows("recapinterv.xls").Activate
' Recherche dans fichier RECAP si feuille déjà existante
' Si OUI alors fermeture fichier RECAP et sortie du code --> retour au
fichier Interv
For a = 1 To ActiveWorkbook.Worksheets.Count
If UCase(FicheCree) = UCase(Worksheets(a).Name) Then
MsgBox "Vous possédez une feuille portant déjà ce nom"
Windows("recapinterv.xls").Close
Exit Sub
End If
Next
' activation fichier fiche Intervenion
Windows("interv.xls").Activate
' Recopie de cette feuille dans le fichier RECAP
ActiveSheet.Copy After:=Workbooks("recapinterv.xls").Sheets(1)
' Activation fichier RECAP
Windows("recapinterv.xls").Activate
' Sauvegarde fichier RECAP
ActiveWorkbook.Save
' Fermeture fichier RECAP
Windows("recapinterv.xls").Close
'
End Sub
Les lignes du code précédées d'in petit ( ' ) sont des commentaires pour
aider à la compréhension du code. Alles apparaîtront en vert.
Désolé mais je n'ai pas pu faire plus court. J'ai fait un essai à la
maison
et ça marche.
Bon courage.
Cordialement.
Marc
Salut Chaff,
Alors supposons que le fichier créant les fiches d'intervention se nomme :
Interv.xls
Que le fichier récapitulatif se nomme : Recapinterv.xls ( Dans ce fichier
prévois-toi une feuille " bidon " que tu nommera ACCUEIL )
Voici le code que tu peux mettre dans un module du fichier créant les
fiches
d'intervention ( interv.xls ), charge à toi de voir comment tu appelera ce
code une fois ta fiche d'intervention éditée. sois par raccourci clavier,
sois par CommandButton, sois directement dans la feuille représentant ta
fiche d'intervention, avec par exemple un déclenchement sur un "Selection
Change ".
Sub CreateFichCopy()
'
Dim FicheCree
'
FichRecap = "Recapinterv.xls"
FichRecap = ThisWorkbook.Path & FichRecap
'
' ouverture fichier RECAP
Workbooks.Open Filename:=FichRecap
' activation fiche Intervenion
Windows("interv.xls").Activate
' Sauvegarde fiche Intervention
ActiveWorkbook.Save
' Activation page active donc de la Fiche Intervention
' Affectation à une variable du nom de la feuille à copier
FicheCree = ActiveSheet.Name
' Activation fichier RECAP pour effectuer copie
Windows("recapinterv.xls").Activate
' Recherche dans fichier RECAP si feuille déjà existante
' Si OUI alors fermeture fichier RECAP et sortie du code --> retour au
fichier Interv
For a = 1 To ActiveWorkbook.Worksheets.Count
If UCase(FicheCree) = UCase(Worksheets(a).Name) Then
MsgBox "Vous possédez une feuille portant déjà ce nom"
Windows("recapinterv.xls").Close
Exit Sub
End If
Next
' activation fichier fiche Intervenion
Windows("interv.xls").Activate
' Recopie de cette feuille dans le fichier RECAP
ActiveSheet.Copy After:=Workbooks("recapinterv.xls").Sheets(1)
' Activation fichier RECAP
Windows("recapinterv.xls").Activate
' Sauvegarde fichier RECAP
ActiveWorkbook.Save
' Fermeture fichier RECAP
Windows("recapinterv.xls").Close
'
End Sub
Les lignes du code précédées d'in petit ( ' ) sont des commentaires pour
aider à la compréhension du code. Alles apparaîtront en vert.
Désolé mais je n'ai pas pu faire plus court. J'ai fait un essai à la
maison
et ça marche.
Bon courage.
Cordialement.
Marc
Salut Chaff,
Alors supposons que le fichier créant les fiches d'intervention se nomme :
Interv.xls
Que le fichier récapitulatif se nomme : Recapinterv.xls ( Dans ce fichier
prévois-toi une feuille " bidon " que tu nommera ACCUEIL )
Voici le code que tu peux mettre dans un module du fichier créant les
fiches
d'intervention ( interv.xls ), charge à toi de voir comment tu appelera ce
code une fois ta fiche d'intervention éditée. sois par raccourci clavier,
sois par CommandButton, sois directement dans la feuille représentant ta
fiche d'intervention, avec par exemple un déclenchement sur un "Selection
Change ".
Sub CreateFichCopy()
'
Dim FicheCree
'
FichRecap = "Recapinterv.xls"
FichRecap = ThisWorkbook.Path & FichRecap
'
' ouverture fichier RECAP
Workbooks.Open Filename:=FichRecap
' activation fiche Intervenion
Windows("interv.xls").Activate
' Sauvegarde fiche Intervention
ActiveWorkbook.Save
' Activation page active donc de la Fiche Intervention
' Affectation à une variable du nom de la feuille à copier
FicheCree = ActiveSheet.Name
' Activation fichier RECAP pour effectuer copie
Windows("recapinterv.xls").Activate
' Recherche dans fichier RECAP si feuille déjà existante
' Si OUI alors fermeture fichier RECAP et sortie du code --> retour au
fichier Interv
For a = 1 To ActiveWorkbook.Worksheets.Count
If UCase(FicheCree) = UCase(Worksheets(a).Name) Then
MsgBox "Vous possédez une feuille portant déjà ce nom"
Windows("recapinterv.xls").Close
Exit Sub
End If
Next
' activation fichier fiche Intervenion
Windows("interv.xls").Activate
' Recopie de cette feuille dans le fichier RECAP
ActiveSheet.Copy After:=Workbooks("recapinterv.xls").Sheets(1)
' Activation fichier RECAP
Windows("recapinterv.xls").Activate
' Sauvegarde fichier RECAP
ActiveWorkbook.Save
' Fermeture fichier RECAP
Windows("recapinterv.xls").Close
'
End Sub
Les lignes du code précédées d'in petit ( ' ) sont des commentaires pour
aider à la compréhension du code. Alles apparaîtront en vert.
Désolé mais je n'ai pas pu faire plus court. J'ai fait un essai à la
maison
et ça marche.
Bon courage.
Cordialement.
Marc
Hello mon ami,
Ouais ben t'inquiète pas pour cette personne, c'était des " milles mercis
"
empoisonnés de toute manière. Comme on dit par chez moi :" Fait plaisir à
Bertrand il te le rend en cagant !"
Je la range dans la même case que certains PLOUKS qui traînent sur ce
forum
et qui ont oubliés les règles élémentaires de politesse... :-((
Voilà quelq'un à qui j'avais offert de l'aide et qui m'a donc relancé par
mail. Je lui ai répondu et j'attends toujours le retour, ne serait ce que
"
Merde " , sic ! ! ! Alors tu vois soit pas "jalouse" tu as rien manqué...
lol
A part sur le fil qui nous interresse j'aurais encore tout compris de
travers, c'est balot ça. Moi qui était content de mon usine à gaz que j'ai
mis la nuit entière à faire..........mdr
En effet j'avais pas vu que notre ami voulais aussi reprendre les fiches
déjà existantes. Mon truc partait à partir d'aujourdh'ui. Avec ce cagnard
à
la barraque j'abuse un peu trop de l'anisette je ne vois que ça qui
pourrrait expliquer cela. ;-)
Sinon entre deux verres ( Hic ! ) j'ai testé la soluce à JB est bien sur
il
tombe pile dessus " Lui ", ça devient énervant...... Merci JB parceque
mine
de rien ta soluce m'interresse alors je me suis permis de la mettre de
côté.
C'est un freeware j'espère. ;-)))
Allez so long chers amis.
Amicalement.
Marc
Hello mon ami,
Ouais ben t'inquiète pas pour cette personne, c'était des " milles mercis
"
empoisonnés de toute manière. Comme on dit par chez moi :" Fait plaisir à
Bertrand il te le rend en cagant !"
Je la range dans la même case que certains PLOUKS qui traînent sur ce
forum
et qui ont oubliés les règles élémentaires de politesse... :-((
Voilà quelq'un à qui j'avais offert de l'aide et qui m'a donc relancé par
mail. Je lui ai répondu et j'attends toujours le retour, ne serait ce que
"
Merde " , sic ! ! ! Alors tu vois soit pas "jalouse" tu as rien manqué...
lol
A part sur le fil qui nous interresse j'aurais encore tout compris de
travers, c'est balot ça. Moi qui était content de mon usine à gaz que j'ai
mis la nuit entière à faire..........mdr
En effet j'avais pas vu que notre ami voulais aussi reprendre les fiches
déjà existantes. Mon truc partait à partir d'aujourdh'ui. Avec ce cagnard
à
la barraque j'abuse un peu trop de l'anisette je ne vois que ça qui
pourrrait expliquer cela. ;-)
Sinon entre deux verres ( Hic ! ) j'ai testé la soluce à JB est bien sur
il
tombe pile dessus " Lui ", ça devient énervant...... Merci JB parceque
mine
de rien ta soluce m'interresse alors je me suis permis de la mettre de
côté.
C'est un freeware j'espère. ;-)))
Allez so long chers amis.
Amicalement.
Marc
Hello mon ami,
Ouais ben t'inquiète pas pour cette personne, c'était des " milles mercis
"
empoisonnés de toute manière. Comme on dit par chez moi :" Fait plaisir à
Bertrand il te le rend en cagant !"
Je la range dans la même case que certains PLOUKS qui traînent sur ce
forum
et qui ont oubliés les règles élémentaires de politesse... :-((
Voilà quelq'un à qui j'avais offert de l'aide et qui m'a donc relancé par
mail. Je lui ai répondu et j'attends toujours le retour, ne serait ce que
"
Merde " , sic ! ! ! Alors tu vois soit pas "jalouse" tu as rien manqué...
lol
A part sur le fil qui nous interresse j'aurais encore tout compris de
travers, c'est balot ça. Moi qui était content de mon usine à gaz que j'ai
mis la nuit entière à faire..........mdr
En effet j'avais pas vu que notre ami voulais aussi reprendre les fiches
déjà existantes. Mon truc partait à partir d'aujourdh'ui. Avec ce cagnard
à
la barraque j'abuse un peu trop de l'anisette je ne vois que ça qui
pourrrait expliquer cela. ;-)
Sinon entre deux verres ( Hic ! ) j'ai testé la soluce à JB est bien sur
il
tombe pile dessus " Lui ", ça devient énervant...... Merci JB parceque
mine
de rien ta soluce m'interresse alors je me suis permis de la mettre de
côté.
C'est un freeware j'espère. ;-)))
Allez so long chers amis.
Amicalement.
Marc
Bonjour.
Une fois que les classeurs "feuilles d'intervention" sont regroupés dans le
classeur unique, que deviennent-ils ? sont-ils supprimés ? C'est à dire qu'à
chaque ouverture du classeur unique, faut-il récupérer tous les classeurs ou
uniquement ceux qui ne sont pas traités ?
Cordialement.
Daniel
"Chaff'" <Chaff'@discussions.microsoft.com> a écrit dans le message de news:Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour.
Une fois que les classeurs "feuilles d'intervention" sont regroupés dans le
classeur unique, que deviennent-ils ? sont-ils supprimés ? C'est à dire qu'à
chaque ouverture du classeur unique, faut-il récupérer tous les classeurs ou
uniquement ceux qui ne sont pas traités ?
Cordialement.
Daniel
"Chaff'" <Chaff'@discussions.microsoft.com> a écrit dans le message de news:
E6CA99A1-0C2D-42F0-9360-9C39D1AC1195@microsoft.com...
Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
Bonjour.
Une fois que les classeurs "feuilles d'intervention" sont regroupés dans le
classeur unique, que deviennent-ils ? sont-ils supprimés ? C'est à dire qu'à
chaque ouverture du classeur unique, faut-il récupérer tous les classeurs ou
uniquement ceux qui ne sont pas traités ?
Cordialement.
Daniel
"Chaff'" <Chaff'@discussions.microsoft.com> a écrit dans le message de news:Bonjour à tous !!
Dans la société pour laquelle je travaille, nous avons fréquemment à
éditer
des feuilles Excel appelées "Fiches d'intervention". Chacune est
enregistrée
dans un classeur qui ne contient qu'une seule feuille. Je suis chargé de
synthétiser ces feuilles, et l'idéal serait de créer un nouveau classeur
qui
regrouperait toutes ces fiches d'intervention, à raison d'une par feuille
Excel. Cela est facile "à la main", mais ne serait-il pas possible
d'automatiser ce processus en faisant qu'à chaque ouverture, ce nouveau
classeur se remette à jour et ait pour feuilles toutes les fiches
d'intervention de l'année?
Merci d'avance de votre réponse.
Chaff'.
