Le topic de toutes les Questions (AVFFUO)

Recherche :

Mot : Pseudo : Filtrer Aller à la page :
Page : 1 2 3 4 5 .. 7054 7055 7056 .. 14945 14946 14947 14948 14949 14950 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Le topic de toutes les Questions (AVFFUO)

Proute2000

¡ sǝssǝɟ sǝɯ ɹǝʇɐɯ ǝp ǝʇǝɹɹɐ

Reprise du message précédent :

La Monne a écrit :

Il n'y a que 2 sortes d'homme. Ceux qui regardent du porno sur internet, et ceux qui ~~n'ont pas internet~~ vont aux putes.

[:cerveau du chaos]

Publicité

Guilletit

Et puis quoi encore?

Aardpeer a écrit :

Y'a des classement de villes où il fait le meilleur vivre, après c'est subjectif donc bon, chacun va prêcher pour sa paroisse.

Mais quand même, si je pouvais avoir quelques avis...

Message cité 1 fois

---------------
►►►There’s no light in your eyes and your brain is too slow◄◄◄ -- ►►► Bienvenue en République Bananière ◄◄◄

Aardpeer

Transmuteur grognon de Bluxte

Entre ceux qui aiment les quartiers vivants, les coins calmes, les grandes villes, la population, une densité de restaurant/sorties convenables, l'espace, la richesse du coin, t'es mal barré pour avoir un avis qui te correspondent, sauf si peut-être tu nous dit ce que tu aimes dans une ville.

Profil supprimé

Guilletit a écrit :

Quelle est la ville française qui a le meilleur rapport qualité / prix? [:cerveau dr]

/question conne et [:gaga drapal]

Granville [:bill2du1]

Message cité 1 fois

Melkaar

Champ d'ail

Avec une corde et à marée basse ya probablement moyen de se pendre depuis les plongeoirs effectivement :lol:

Profil supprimé

Ah mon bon monsieur je ne sais pas, j'y ai jamais vécu [:zedlefou:1]

Atropos

Peace Love Death Metal

Guilletit a écrit :

Mais quand même, si je pouvais avoir quelques avis...

Nantes c'est pas mal (qualité de vie ++), mais ça devient cher niveau logement...

Message cité 1 fois

Harrypotdefleur

I blue myself

A côté de chez moi, un immeuble est en travaux, bien sûr, pas de pancarte indiquant les dates du chantier ni le nom de l'entreprise.
Je me retrouve intoxiqué depuis ce matin, puisque ces gentils ouvriers n'ont rien trouvé de mieux que de faire brûler divers déchets dans la cour. :fou:

D'où ma question: Faire bruler des déchets à moins de 10 mètres d'autres habitations, c'est autorisé par la loi?

Message cité 3 fois

yo_play

Harrypotdefleur a écrit :

Y'a au minimum un arrêté municipal qui peut être en place, pour ça (à toi de te renseigner).
Je crois pas qu'il y ait quelque chose, niveau loi globale en France (si c'est bien ton cas).

---------------
Everything burns. | Where life had no value, death, sometimes, had its price.

Guilletit

Et puis quoi encore?

Il n'y a que 4 sortes d'hommes. Ceux qui regardent du porno sur internet, ceux qui nient en regarder sur internet, ceux qui n'ont pas internet et ceux qui ont internet mais qui jouent à WOW.

[:guilletit]

Message cité 1 fois
Message édité par Guilletit le 18-11-2010 à 14:21:44

---------------
►►►There’s no light in your eyes and your brain is too slow◄◄◄ -- ►►► Bienvenue en République Bananière ◄◄◄

Publicité

Guilletit

Et puis quoi encore?

Atropos a écrit :

Nantes c'est pas mal (qualité de vie ++), mais ça devient cher niveau logement...

C'est bien ça le problème, les villes agréables sont au-dessus de mes moyens. [:gaga cry]

Message cité 1 fois

---------------
►►►There’s no light in your eyes and your brain is too slow◄◄◄ -- ►►► Bienvenue en République Bananière ◄◄◄

jonas

c'est mon identité

Guilletit a écrit :

C'est bien ça le problème, les villes agréables sont au-dessus de mes moyens. [:gaga cry]

Bruxelles rulez

---------------
et voilà

Guilletit

Et puis quoi encore?

Faut que ça reste en France.

---------------
►►►There’s no light in your eyes and your brain is too slow◄◄◄ -- ►►► Bienvenue en République Bananière ◄◄◄

philibear

Orbital Bacon

Harrypotdefleur a écrit :

A côté de chez moi, un immeuble est en travaux, bien sûr, pas de pancarte indiquant les dates du chantier ni le nom de l'entreprise.
Je me retrouve intoxiqué depuis ce matin, puisque ces gentils ouvriers n'ont rien trouvé de mieux que de faire brûler divers déchets dans la cour. :fou:

D'où ma question: Faire bruler des déchets à moins de 10 mètres d'autres habitations, c'est autorisé par la loi?

Ils n'ont pas le droit de faire brûler de déchets tout court.

hugeq

Optimisation Team Member

Guilletit a écrit :

...et ceux qui se font passer pour une femme

Message cité 1 fois

---------------
Corporate Certified Iso 90069

Samourai

Mais que se passe-t-il?

Atropos a écrit :

FileFormat:=52 pour excel 2007-2010, 56 pour les anciennes versions
Et changer l'extention dans le nom de fichier, évidemment

Mais sérieusement, ça se trouve en 2 secondes sous google, à bac+5 ça devrait être accessible

Je m'excuse mais je ne suis vraiment pas doué et je n'ai jamais fait de développement.

En gras ci-dessous ce que j'ai modifié.

Citation :

Code :
Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 3
Sheets(i).Select
'chemin d'enregistrement
ChDir "C:\test"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test" & i & ".xls", FileFormat:=56
Next i
End Sub

ça correspond à quoi activeworkbook? où faut-il mettre le nom de son fichier?

j'ai honte mais je suis vraiment nul!

Message cité 1 fois

---------------
Nihon, gambare !

Atropos

Peace Love Death Metal

Samourai a écrit :

Citation :

ça correspond à quoi activeworkbook? où faut-il mettre le nom de son fichier?

j'ai honte mais je suis vraiment nul!

activeworkbook correspond au classeur ouvert en ce moment (actif).
Pour le nom du fichier, ici si j'ai bien compris (j'ai jamais fait de VBA ) c'est le numero de la feuille. Il te suffit de modifier la chaine Filename.
par exemple "C:\test\poil" & i & ".xls" donnera des fichiers poil01.xls, poil02.xls...
Pense à rajouter un antislash après le chemin du répertoire, là j'ai l'impression que tu vas te retrouver avec des test01.xls (enfin c'est peut être ce que tu veux..)
Pense aussi à changer l'indice max dans ta boucle For (si tu as 80 feuilles remplace 3 par 80)

Message cité 1 fois
Message édité par Atropos le 18-11-2010 à 14:54:19

Funkpeck

Je suis une citation

9841564324 a écrit :

tu fait une conf call [:spamafote]

Je crois pas que j'ai l'option ici. J'ai maté dans les options du phone [:transparency]

Guilletit

Et puis quoi encore?

hugeq a écrit :

...et ceux qui se font passer pour une femme

C'est pas des hommes, c'est des shemales. [:guilletit]

---------------
►►►There’s no light in your eyes and your brain is too slow◄◄◄ -- ►►► Bienvenue en République Bananière ◄◄◄

gabii

On met quoi dans le corps d'un mail de candidature spontanée à un stage ? J'ai le Cv et la lettre de motiv en pièce jointe.

Aardpeer

Transmuteur grognon de Bluxte

Dans quel cadre tu fais cette démarche, qui t'a recommandé cette entreprise ou cette personne. et les salutations d'usage.

Message cité 1 fois

gabii

Aardpeer a écrit :

Dans quel cadre tu fais cette démarche, qui t'a recommandé cette entreprise ou cette personne. et les salutations d'usage.

Merci :jap:

Samourai

Mais que se passe-t-il?

Atropos a écrit :

Merci.

J'ai fais ça:

Citation :

Code:
Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 12
Sheets(i).Select
'chemin d'enregistrement
ChDir "C:\test"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test\fichier\" & i & ".xls", FileFormat:=56
Next i
End Sub

Si j'enlève le mot "code" ils me disent "erreur définie par l'application ou par l'objet"

Si je le laisse ils me disent "erreur de compilation : instruction incorrecte à l'extérieur d'une procédure"

Message cité 1 fois

---------------
Nihon, gambare !

Atropos

Peace Love Death Metal

Samourai a écrit :

Merci.

J'ai fais ça:

Cette version marche, j'ai testé :

Code :

Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 12
Sheets(i).Select
'chemin d'enregistrement
ChDir "C:\test\fichier\"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test\fichier\" & i & ".xls"
Next i
End Sub

Vérifie que ton dossier C:\test\fichier\ existe et que tu peux écrire dedans

Message cité 1 fois
Message édité par Atropos le 18-11-2010 à 15:21:46

Samourai

Mais que se passe-t-il?

Atropos a écrit :

Cette version marche, j'ai testé :

Code :

Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 12
Sheets(i).Select
'chemin d'enregistrement
ChDir "C:\test\fichier\"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test\fichier\" & i & ".xls"
Next i
End Sub

Vérifie que ton dossier C:\test\fichier\ existe et que tu peux écrire dedans

merci, y a de l'amélioration mais ce n'est pas tout à fait ça!

Il a copié 24 fichiers (car j'ai mis 1 To 24) mais ...il a copié 24 x la même chose = la totalité des onglets! il n'a pas fait onglet pas onglet!

pour toi ça n'a pas fait ça?

EDIT: et les noms de fichier sont "1.xls", "2.xls", "3.xls" etc...

un grand merci en tout cas

Message cité 2 fois
Message édité par Samourai le 18-11-2010 à 15:30:58

---------------
Nihon, gambare !

Dolores

Si t'avais fait du bete copié/collé et enregistré les trucs, t'aurais déjà fini

Message cité 2 fois

Melkaar

Champ d'ail

Dolores a écrit :

Si t'avais fait du bete copié/collé et enregistré les trucs, t'aurais déjà fini

Chut

Samourai

Mais que se passe-t-il?

Dolores a écrit :

Si t'avais fait du bete copié/collé et enregistré les trucs, t'aurais déjà fini

j'ai commencé, rassures toi!

mais j'ai 8 putain de fichier avec dans chacun d'entre eux 12 à 30 onglets!

donc si jamais on me refait la demande le mois prochain, ce serait bien que je sache le faire en VBA

---------------
Nihon, gambare !

hugeq

Optimisation Team Member

"cette initiative sans pareille..." ou ""cette initiative sans pareil..." ou "cette initiative sans pareils. .."

[:clooney11]

Message cité 1 fois

---------------
Corporate Certified Iso 90069

aRWaM

Toujours classe en pédalo.

---------------
Demain c'est loin.

hugeq

Optimisation Team Member

je ne sais comment l'orthographier

---------------
Corporate Certified Iso 90069

Funkpeck

Je suis une citation

D: la réponse D

Kivi_

raboteur de parquet

hugeq a écrit :

"cette initiative sans pareille..." ou ""cette initiative sans pareil..." ou "cette initiative sans pareils. .."

[:clooney11]

Tu klaxonnes.
Sinon : http://66.46.185.79/bdl/gabarit_bdl.asp?id=2889

Message cité 1 fois

Atropos

Peace Love Death Metal

Samourai a écrit :

merci, y a de l'amélioration mais ce n'est pas tout à fait ça!

Il a copié 24 fichiers (car j'ai mis 1 To 24) mais ...il a copié 24 x la même chose = la totalité des onglets! il n'a pas fait onglet pas onglet!

pour toi ça n'a pas fait ça?

EDIT: et les noms de fichier sont "1.xls", "2.xls", "3.xls" etc...

un grand merci en tout cas

Effectivement

Code :

Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 12
Sheets(i).Copy
'chemin d'enregistrement
ChDir "C:\test\fichier\"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test\fichier\" & i & ".xls"
ActiveWorkbook.Close
Next i
End Sub

ca devrait être mieux

Message cité 1 fois
Message édité par Atropos le 18-11-2010 à 15:59:36

hugeq

Optimisation Team Member

Kivi_ a écrit :

Tu klaxonnes.
Sinon : http://66.46.185.79/bdl/gabarit_bdl.asp?id=2889

:jap:

---------------
Corporate Certified Iso 90069

ObsydianKenobi

peloton suicida

Samourai a écrit :

merci, y a de l'amélioration mais ce n'est pas tout à fait ça!

Il a copié 24 fichiers (car j'ai mis 1 To 24) mais ...il a copié 24 x la même chose = la totalité des onglets! il n'a pas fait onglet pas onglet!

pour toi ça n'a pas fait ça?

EDIT: et les noms de fichier sont "1.xls", "2.xls", "3.xls" etc...

un grand merci en tout cas

Prends ça:

Sub test()

Dim ws As Worksheet, i As Integer

For Each ws In ActiveWorkbook.Worksheets

Set Sourcewb = ActiveWorkbook

ws.Copy
Set destwb = ActiveWorkbook

i = i + 1

Application.DisplayAlerts = False

destwb.SaveAs Filename:="C:\test\fichier" & i & ".xls"

destwb.Close

Next ws

End Sub

Rien à changer, ça balaye tous les onglets peu importe leur nombre. Pense à supprimer les fichier créés précédemment par contre.

Message cité 1 fois
Message édité par ObsydianKenobi le 18-11-2010 à 16:00:19

---------------
Long-range goals keep you from being frustrated by short-term failures. RIP VC

Samourai

Mais que se passe-t-il?

Atropos a écrit :

Effectivement

Code :

Sub test()
Dim i As Byte
'tes feuilles doivent etre les 3 premières de ton classeur
For i = 1 To 12
Sheets(i).Copy
'chemin d'enregistrement
ChDir "C:\test\fichier\"
'sauvegarde de la feuille, le nom est ici Classeur + le numéro de la page
ActiveWorkbook.SaveAs Filename:="C:\test\fichier\" & i & ".xls"
ActiveWorkbook.Close
Next i
End Sub

ca devrait être mieux

erreur de syntaxe sur cette partie :

ActiveWorkbook.SaveAs Filename:="C:\test\fichier\"" & i & ".xls"

c'est passé pour toi?

Message cité 2 fois

---------------
Nihon, gambare !

Atropos

Peace Love Death Metal

Samourai a écrit :

erreur de syntaxe sur cette partie :

ActiveWorkbook.SaveAs Filename:="C:\test\fichier\"" & i & ".xls"

c'est passé pour toi?

édité y'avait un guillement en trop apres fichier\

ObsydianKenobi

peloton suicida

Samourai a écrit :

erreur de syntaxe sur cette partie :

ActiveWorkbook.SaveAs Filename:="C:\test\fichier\"" & i & ".xls"

c'est passé pour toi?

Essaye le mien j'te dis!

Message cité 2 fois

---------------
Long-range goals keep you from being frustrated by short-term failures. RIP VC

Publicité

Page : 1 2 3 4 5 .. 7054 7055 7056 .. 14945 14946 14947 14948 14949 14950

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Discussions

Vie pratique

Le topic de toutes les Questions (AVFFUO)

Sujets relatifs
Quelques questions sur ma première voiture (206)	Dieudonné : l'humoriste, ses spectacles (la politique c'est à coté)
[fane de violon qui veut prendre ses ailes] Questions pour débuter	questions sur frais bancaires (viremements ,cheque)
\Topik UniK [ /!\ RTC] \ Les plus belles voitures de route sur piste	[Topik Unik] Le Mans et sa banlieue
Questions avant adoption chaton	[Topik Unique] PLACEBO - Tournée mondiale pour les 20 ans du groupe !
Quelques questions à propos de NoosTV...	[Topic Unique] Lampes Torches /!\ Addict! /!\
Plus de sujets relatifs à : Le topic de toutes les Questions (AVFFUO)

Page générée en 0.108 secondes