un petit coup de pouce SVP

[sasha]

http://cjoint.com/?kbwU6FyhAK

bonsoir à tous
A voir quelques macros qui me posent des petits problemes-
j'ai mis ds la piece jointe mes questions en police bleue
Sûr que pour vs se sera de la broutille..

merci

 

[Luki]

Re : un petit coup de pouce SVP

Bonsoir Sasha,

Je pense que tu auras plus de réponse si exposes un peu plus clairement ce qui te pose problème.

Petit rappel:
Les intervenants sur ce forum sont bénévoles et passionnés certes, mais ne sont pas devins et ne sont pas compétents dans TOUS les domaines.
Donc, un titre de fil explicite nous permet de voir si c'est du domaine de notre compétence, une explication succinte et claire permet de préciser si c'est de notre ressort.

En bref, nous préférons passer du temps à répondre à une question qu'à essayer de deviner quelle est cette question.

Bon courage à toi

Edit :

Sûr que pour vs se sera de la broutille..

Pas la peine d'essayer de nous flatter, nous n'avons rien à prouver....

 

[sasha]

Re : un petit coup de pouce SVP

jE NE FLATTE PERSONNE, MAIS JE SUIS PAS DOUE EN VBA DONC JE M'ADRESSE SOUVENT A VOUS DS CE FORUM, ET LES REPONSES ARRIVENT SI VITE QUE J'AI VRAIMENT L'IMPRESSION DE M'ADRESSER A DES "PRO"- DONC PAS DE FLATTERIE MAIS JUSTE UN MOT GENTIL POUR DES INTERNAUTES D'HABITUDE CHALEUREUX- Mes questions sont notees en bleu ds le fichier joint- Pardon d'avoir dérangé

 

[Mytå]

Re : un petit coup de pouce SVP

Salut Sasha, Luki et le Forum

Sasha écrire en majuscules n'aidera pas pour une réponse.

C'est l'équivalent de crier après le monde.

Comme Luki te la dit une question avec les problèmes à corriger
par cas et on t'aidera surement.

Ne pas oublier que nous ne sommes que des bénévoles qui donnent
un peu de notre temps et connaissance à aider les autres.

Déjà que tu peux joindre un fichier .xls ou .zip ic sans passer par Ci-Joint.

Mytå

 

[SergiO]

Re : un petit coup de pouce SVP

Bonjour à tous,

[FONT=Verdana][SIZE=2][COLOR=#000000]Sub ProgrammeLaMacroTime()
' lance MacroImpression à 10h25 heures
Application.OnTime TimeValue("10:25:00"), "MacroImpression", , True
End Sub

Sub MacroImpression()
'cette macro imprime la feuille Feuil1
ThisWorkbook.Sheets("Feuil1").PrintOut
End Sub [/COLOR][/SIZE][/FONT]

Ce code fonctionne mais il faut lancer ProgrammeLaMacroTime() pour que l'impression se déclenche à l'heure donnée.
Pour la lancer automatiquement à l'ouverture du fichier,il faut mettre ceci dans ThisWorkbook :

Private Sub Workbook_Open()
' lance MacroImpression à 10h25 heures
Application.OnTime TimeValue("10:25:00"), "MacroImpression", , True
End Sub

Voici les macros 2 et 3 à la suite :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets(1).[A1] = "Dernière modification le " & Format(Date, "dd-mm-yyyy")
ActiveWorkbook.SaveAs Filename:=Sheets(1).Range("A1").Value

End Sub

Et enfin la macro Copier-Coller :

Sub CopierColler()
On Error GoTo Erreur

Range("C18").Select
Selection.Copy
Windows("Tableau2.xls").Activate
Sheets("Feuil2").Range("C19").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub

Erreur:
MsgBox "Une erreur s'est produite!"
End Sub

@+

 

[sasha]

Re : un petit coup de pouce SVP

Juste un grand MERCI à Sergio par ses réponses
sasha

 

[Eric 45]

Re : un petit coup de pouce SVP

Bonjour à tous et à toi sasha

Il est vrai que nous sommes tous des bénévoles, et nous donnons autant que nous nous enrichissons des pb et des réponses de tous.
Et ceci est vrai dans tous les forums, que ce soit celui ci ou les autres (swisstools.net pour ne pas le nommer).
Un merci de la part du demandeur même si la réponse n'a rien résolu, ce qui n'est pas fait à chaque fois (le merci), c'est dommage. Cela commence par le repect des autres, la bien séance, le savoir vivre, alors ne nous en privons pas, n'est ce pas sasha.

Merci Myta, Luki, Sergio, et tous les autres qui effacent d'un coup de baguette nos problêmes par d'excellentes solutions.

A+

Cordialement