on aurait donc transformer le mec en mac... ;-) isabelle
Mgr T. Banni a écrit :
je connaissais ipod, iphone, inri même, mais pas iSteph Mgr T.B.
"G''Claire" a écrit dans le message de news:
Pour le code de iSteph,
G''Claire
Salut
Il me smeblait d'une erreur, sorry, lSteph
"isabelle" a écrit :
on aurait donc transformer le mec en mac... ;-) isabelle
Mgr T. Banni a écrit : > je connaissais ipod, iphone, inri même, mais pas iSteph > Mgr T.B. > > "G''Claire" a écrit dans le > message de news: >> >> Pour le code de iSteph, >
Salut
Il me smeblait d'une erreur, sorry, lSteph
"isabelle" a écrit :
on aurait donc transformer le mec en mac... ;-)
isabelle
Mgr T. Banni a écrit :
> je connaissais ipod, iphone, inri même, mais pas iSteph
> Mgr T.B.
>
> "G''Claire" <jacouille@discution.microsoft.com> a écrit dans le
> message de news: AB6CCB04-B15B-48B5-ACF7-AF86A06E53CF@microsoft.com...
>>
>> Pour le code de iSteph,
>
on aurait donc transformer le mec en mac... ;-) isabelle
Mgr T. Banni a écrit : > je connaissais ipod, iphone, inri même, mais pas iSteph > Mgr T.B. > > "G''Claire" a écrit dans le > message de news: >> >> Pour le code de iSteph, >
Peux tu l'enregistrer en version 2003 et me l'envoyer par le même biais
Merci
FFO
Rebonjour à toi
Aprés analyse de ton fichier il apparait ceci :
Si tu veus mettre tous tes documents dans le répertoire : "Génération classeur Professeur" la ligne du code qui les enregistre doit être ainsi :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls")
et non :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls")
Il manque dans ce que tu as mis le caractère "" aprés le nom du dossier "Génération classeur Professeur"
De plus certain nom de professeur en cellule H8 se répète sur plusieurs feuilles notamment : "Cathy PASCAL"
Il ne peux donc être présent comme fichier dans ce répertoire qu'une seule fois Ayant inclus la commande :
Application.DisplayAlerts = False
chaque fichier enregistré sous ce nom écrase le précédent du même nom
Enfin la cellule H8 de certaines feuilles est vide donc l'enregistrement du fichier correspondant à cette feuille ne peux être réalisé faute de nom à attribuer
Je te propose en conséquence mon code adapté à ces contraintes :
Application.DisplayAlerts = False ' For i = 1 To Sheets.Count Nom = Sheets(i).Range("H8") If Nom <> "" Then ThisWorkbook.Sheets(i).Copy Workbooks.Add.Sheets(1) ActiveSheet.Name = ThisWorkbook.Sheets(i).Name ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls") ActiveWorkbook.Close End If Next
Je l'ai testé et enregistré 5 fichiers correspondant à 5 noms de Professeur
Si tu souhaites en avoir plus il faut supprimer en H8 les doublons de nom
Fais des essais et dis moi !!!!!
Rebonjour à toi
Aprés analyse de ton fichier il apparait ceci :
Si tu veus mettre tous tes documents dans le répertoire : "Génération
classeur Professeur" la ligne du code qui les enregistre doit être ainsi :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA
JacquesBureauGénération classeur Professeur" & Nom & ".xls")
et non :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA
JacquesBureauGénération classeur Professeur" & Nom & ".xls")
Il manque dans ce que tu as mis le caractère "" aprés le nom du dossier
"Génération classeur Professeur"
De plus certain nom de professeur en cellule H8 se répète sur plusieurs
feuilles notamment : "Cathy PASCAL"
Il ne peux donc être présent comme fichier dans ce répertoire qu'une seule
fois
Ayant inclus la commande :
Application.DisplayAlerts = False
chaque fichier enregistré sous ce nom écrase le précédent du même nom
Enfin la cellule H8 de certaines feuilles est vide donc l'enregistrement du
fichier correspondant à cette feuille ne peux être réalisé faute de nom à
attribuer
Je te propose en conséquence mon code adapté à ces contraintes :
Application.DisplayAlerts = False
'
For i = 1 To Sheets.Count
Nom = Sheets(i).Range("H8")
If Nom <> "" Then
ThisWorkbook.Sheets(i).Copy Workbooks.Add.Sheets(1)
ActiveSheet.Name = ThisWorkbook.Sheets(i).Name
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA
JacquesBureauGénération classeur Professeur" & Nom & ".xls")
ActiveWorkbook.Close
End If
Next
Je l'ai testé et enregistré 5 fichiers correspondant à 5 noms de Professeur
Si tu souhaites en avoir plus il faut supprimer en H8 les doublons de nom
Si tu veus mettre tous tes documents dans le répertoire : "Génération classeur Professeur" la ligne du code qui les enregistre doit être ainsi :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls")
et non :
ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls")
Il manque dans ce que tu as mis le caractère "" aprés le nom du dossier "Génération classeur Professeur"
De plus certain nom de professeur en cellule H8 se répète sur plusieurs feuilles notamment : "Cathy PASCAL"
Il ne peux donc être présent comme fichier dans ce répertoire qu'une seule fois Ayant inclus la commande :
Application.DisplayAlerts = False
chaque fichier enregistré sous ce nom écrase le précédent du même nom
Enfin la cellule H8 de certaines feuilles est vide donc l'enregistrement du fichier correspondant à cette feuille ne peux être réalisé faute de nom à attribuer
Je te propose en conséquence mon code adapté à ces contraintes :
Application.DisplayAlerts = False ' For i = 1 To Sheets.Count Nom = Sheets(i).Range("H8") If Nom <> "" Then ThisWorkbook.Sheets(i).Copy Workbooks.Add.Sheets(1) ActiveSheet.Name = ThisWorkbook.Sheets(i).Name ActiveWorkbook.SaveAs ("C:Documents and SettingsZEZIOLA JacquesBureauGénération classeur Professeur" & Nom & ".xls") ActiveWorkbook.Close End If Next
Je l'ai testé et enregistré 5 fichiers correspondant à 5 noms de Professeur
Si tu souhaites en avoir plus il faut supprimer en H8 les doublons de nom
Fais des essais et dis moi !!!!!
gmlsteph
Bonjour,
( je n'ai pas testé celui de FFO) chez moi les deux codes qui semblent à ce que j'ai compris fonctionnent , celui de Philippe comme le mien , (le mien donne juste le principe dans le répertoire en cours à toi d'adapter)
A priori, le souci vient vraisemblablement de ce que tu aurais mis d'autre en H8 qu'un nom de fichier valide ou plusieurs fois le même nom, doublons s'abstenir. Ou caractères non autorisés.
Cordialement.
-- lSteph
On 2 juin, 18:12, G''Claire wrote:
Salut tout le monde,
Tout d'abord merci.
J'ai donc essayer cela. donc j'avais rajouer dans vos codes le display alerte, car a chaque fois cela me disait que le fichier éxistait déj à, si je voulais l'écraser.
La génération fonctionne mais pas pour tout.
Pour le Code De FFO
Il n'y a a que la dernière feuille d'enregistré dans le classeur des profs.
Pour le code de iSteph,
Idem, mais en plus j'ai un message d'erreur :
erreur d'éxécution '1004' Fichier inaccessible.Essayez l'une des opération suivantes :
Vérifier que le dosseir spécifié éxiste vérifier que le dosseir dans lequel se trouve le fichier n'est pas en lectrure seule Vérifiez que le nom du fichier ne comporte pas les caratctères suivan ts : <>?[]:ni*
Et il s'arrète sur ce code :
ActiveWorkbook.SaveAs Left([h8], 31)
Le code de PhilippeR
Comme je te l'ai dit mais hommis de te donner l'erreur sorry.
Donc erreur d'éxécution '1004': La méthode 'SaveAs' de l'objet'_Worbook' a échoué
Et cela s'arrète sur :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsZEZIOLA JacquesBureau" _ & lenom & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úl se
Voili.
Si je ne me suis pas assez bien expliqué dite le moi.
Autre chose que j'ai remarqué, lors de la création du fichier excel e t des feuilles, il reste les liens qui pointent vers le classeur Maitre, es-ce qu'il y a moyen de les supprimer tout en gardant la valeur de leur cellul e?
Merci beaucoup, G'Claire
"" a écrit :
> Bonjour,
> dim sh as worksheet > for each sh in thisworkbook.sheets > sh.copy > activeworkbook.saveas left([h8],31) > activeworkbook.close > next
> 'lSteph
> On 1 juin, 20:17, G''Claire wrote: > > Bonjour a toute et tous.
> > Je possède un classeur avec une bonne centaine de feuilles.
> > Dans chacune de ces feuilles en cellule "H8" il y a le nom des prof.
> > Afin de générer un classeur par prof de feuilles les concernant, serait il > > possible de créer une macro qui réalise cela.
> > Je vous remercie par avance, G'Claire
Bonjour,
( je n'ai pas testé celui de FFO) chez moi les deux codes qui semblent
à ce que j'ai compris fonctionnent ,
celui de Philippe comme le mien , (le mien donne juste le principe
dans le répertoire en cours à toi d'adapter)
A priori, le souci vient vraisemblablement de ce que tu aurais mis
d'autre en H8 qu'un nom de fichier valide
ou plusieurs fois le même nom, doublons s'abstenir. Ou caractères non
autorisés.
Cordialement.
--
lSteph
On 2 juin, 18:12, G''Claire <jacoui...@discution.microsoft.com> wrote:
Salut tout le monde,
Tout d'abord merci.
J'ai donc essayer cela. donc j'avais rajouer dans vos codes le display
alerte, car a chaque fois cela me disait que le fichier éxistait déj à, si je
voulais l'écraser.
La génération fonctionne mais pas pour tout.
Pour le Code De FFO
Il n'y a a que la dernière feuille d'enregistré dans le classeur des profs.
Pour le code de iSteph,
Idem, mais en plus j'ai un message d'erreur :
erreur d'éxécution '1004'
Fichier inaccessible.Essayez l'une des opération suivantes :
Vérifier que le dosseir spécifié éxiste
vérifier que le dosseir dans lequel se trouve le fichier n'est pas en
lectrure seule
Vérifiez que le nom du fichier ne comporte pas les caratctères suivan ts :
<>?[]:ni*
Et il s'arrète sur ce code :
ActiveWorkbook.SaveAs Left([h8], 31)
Le code de PhilippeR
Comme je te l'ai dit mais hommis de te donner l'erreur sorry.
Donc erreur d'éxécution '1004':
La méthode 'SaveAs' de l'objet'_Worbook' a échoué
Et cela s'arrète sur :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsZEZIOLA JacquesBureau" _
& lenom & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=Fal se
Voili.
Si je ne me suis pas assez bien expliqué dite le moi.
Autre chose que j'ai remarqué, lors de la création du fichier excel e t des
feuilles, il reste les liens qui pointent vers le classeur Maitre, es-ce
qu'il y a moyen de les supprimer tout en gardant la valeur de leur cellul e?
Merci beaucoup, G'Claire
"gmlst...@gmail.com" a écrit :
> Bonjour,
> dim sh as worksheet
> for each sh in thisworkbook.sheets
> sh.copy
> activeworkbook.saveas left([h8],31)
> activeworkbook.close
> next
> 'lSteph
> On 1 juin, 20:17, G''Claire <jacoui...@discution.microsoft.com> wrote:
> > Bonjour a toute et tous.
> > Je possède un classeur avec une bonne centaine de feuilles.
> > Dans chacune de ces feuilles en cellule "H8" il y a le nom des prof.
> > Afin de générer un classeur par prof de feuilles les concernant, serait il
> > possible de créer une macro qui réalise cela.
( je n'ai pas testé celui de FFO) chez moi les deux codes qui semblent à ce que j'ai compris fonctionnent , celui de Philippe comme le mien , (le mien donne juste le principe dans le répertoire en cours à toi d'adapter)
A priori, le souci vient vraisemblablement de ce que tu aurais mis d'autre en H8 qu'un nom de fichier valide ou plusieurs fois le même nom, doublons s'abstenir. Ou caractères non autorisés.
Cordialement.
-- lSteph
On 2 juin, 18:12, G''Claire wrote:
Salut tout le monde,
Tout d'abord merci.
J'ai donc essayer cela. donc j'avais rajouer dans vos codes le display alerte, car a chaque fois cela me disait que le fichier éxistait déj à, si je voulais l'écraser.
La génération fonctionne mais pas pour tout.
Pour le Code De FFO
Il n'y a a que la dernière feuille d'enregistré dans le classeur des profs.
Pour le code de iSteph,
Idem, mais en plus j'ai un message d'erreur :
erreur d'éxécution '1004' Fichier inaccessible.Essayez l'une des opération suivantes :
Vérifier que le dosseir spécifié éxiste vérifier que le dosseir dans lequel se trouve le fichier n'est pas en lectrure seule Vérifiez que le nom du fichier ne comporte pas les caratctères suivan ts : <>?[]:ni*
Et il s'arrète sur ce code :
ActiveWorkbook.SaveAs Left([h8], 31)
Le code de PhilippeR
Comme je te l'ai dit mais hommis de te donner l'erreur sorry.
Donc erreur d'éxécution '1004': La méthode 'SaveAs' de l'objet'_Worbook' a échoué
Et cela s'arrète sur :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsZEZIOLA JacquesBureau" _ & lenom & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úl se
Voili.
Si je ne me suis pas assez bien expliqué dite le moi.
Autre chose que j'ai remarqué, lors de la création du fichier excel e t des feuilles, il reste les liens qui pointent vers le classeur Maitre, es-ce qu'il y a moyen de les supprimer tout en gardant la valeur de leur cellul e?
Merci beaucoup, G'Claire
"" a écrit :
> Bonjour,
> dim sh as worksheet > for each sh in thisworkbook.sheets > sh.copy > activeworkbook.saveas left([h8],31) > activeworkbook.close > next
> 'lSteph
> On 1 juin, 20:17, G''Claire wrote: > > Bonjour a toute et tous.
> > Je possède un classeur avec une bonne centaine de feuilles.
> > Dans chacune de ces feuilles en cellule "H8" il y a le nom des prof.
> > Afin de générer un classeur par prof de feuilles les concernant, serait il > > possible de créer une macro qui réalise cela.
> > Je vous remercie par avance, G'Claire
gmlsteph
;-)
c'est le virus HiNi CA-CHON un i sous une l y trouvera'ton quelque oiseau rare.
On 2 juin, 18:34, "Mgr T. Banni" wrote:
je connaissais ipod, iphone, inri même, mais pas iSteph Mgr T.B.
"G''Claire" a écrit dans le message denews: AB6CCB04-B15B-48B5-ACF7-AF86A06E5__BEGIN_MASK_n#9g02mG7!__...__END _MASK_i?a63jfAD$
> Pour le code de iSteph,
;-)
c'est le virus HiNi
CA-CHON un i sous une l
y trouvera'ton quelque oiseau rare.
On 2 juin, 18:34, "Mgr T. Banni" <ba...@lacurie.va> wrote:
je connaissais ipod, iphone, inri même, mais pas iSteph
Mgr T.B.
"G''Claire" <jacoui...@discution.microsoft.com> a écrit dans le message denews: AB6CCB04-B15B-48B5-ACF7-AF86A06E5__BEGIN_MASK_n#9g02mG7!__...__END _MASK_i?a63jfAD$z__@microsoft.com...
