Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2241 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème d'onglet

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

problème d'onglet

n°1580312
yannw
Posté le 28-06-2007 à 12:20:50  profilanswer
 

bonjour voilà le dernier problème auxquel je fais face:
 
Dans un classeur  j'ai une macro qui me crée un onglet pour le mois de l'année que je peux choisir(Jan 07, feb 07,etc..) grâce à une combobox.
 
Et dans un autre classeur j'ai les mêmes onglet avec les mêmes appelations (Jan 07, Feb 07,etc).
 
Ce que j'aimerais faire c'est que lorsque je crée mon nouvel onglet Jan 07, ma macro puisse me copier coller la feuille s'appelant Jan 07 de mon autre classeur.
 
Si quelqu'un a une idée, voilà ce que j'ai
 
Sub copieblocrout():
 
Windows("Classeur ou je veux prendre mon information.xls" ).Activate
 
Sheets("jan 07" ).Select
 
Range("A1" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur ou je veux que mon information soit.xls" ).Activate
ActiveSheet.Select
Range("A50" ).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
 
 
 
 
 
 
et en faite ca merde au niveau du Sheets("jan 07" ).Select car j'aimerais choisir l onglet que je viens de créer et qui n est pas forcément Jan 07

mood
Publicité
Posté le 28-06-2007 à 12:20:50  profilanswer
 

n°1580349
jpcheck
Pioupiou
Posté le 28-06-2007 à 13:30:33  profilanswer
 

tu peux stocker le nom de l'onglet dans une variable non ?

n°1580366
yannw
Posté le 28-06-2007 à 14:22:16  profilanswer
 

J'en ai vraiment aucune idée...  
tu ferais comment?

n°1580370
jpcheck
Pioupiou
Posté le 28-06-2007 à 14:27:43  profilanswer
 

lorsque tu créés ton onglet dans un classeur, tu stocke dans une variable son nom
 
dim nomonglet as string
nomonglet = sheets(1).name
 
et tu utilises ce nomonglet dans ton 2e classeur.

n°1580388
yannw
Posté le 28-06-2007 à 14:50:06  profilanswer
 

fontionne tjrs pas, qu es ce que ca peut m enerver!

n°1580390
jpcheck
Pioupiou
Posté le 28-06-2007 à 14:51:26  profilanswer
 

qu'est-ce qui ne marche pas ?
tu peux filer ton code de création d'onglet pour voir comment tu utilises ce que je t'ai proposé stp ?

n°1580399
yannw
Posté le 28-06-2007 à 15:00:49  profilanswer
 

Sub ajouterrenommerfeuille()
Dim nomonglet As String
nomonglet = Sheets(1).Name
Sheets.Add.Name = Range("E2" )
end sub
 
J'ai juste remplacé mais je n y connais rien en vba.... :)
 
En faite j'ai une combobox qui me laisse choisir un mois de l'année, une fois ce mois choisi, ce mois est noté en "e2". Ensuite, j'ajoute mon onglet avec ce nom... voilà si quelque chose n est pas clair, n hésite pas à demander

n°1580420
yannw
Posté le 28-06-2007 à 15:10:36  profilanswer
 

En faite cela me recopie le premier mois de mon classeur (c'est a dire janvier) au bon endroit dans l onglet que je viens de créer, par exemple mars.

n°1580516
Paul Hood
Posté le 28-06-2007 à 17:10:17  profilanswer
 

Bonjour,
J'espere que ca t'aidera.
 
    NomFeuille = Sheets("Feuil1" ).Range("A1" )
    Sheets.Add
    ActiveSheet.Name = NomFeuille
 
    Workbooks.Open Filename:= _
        "C:\Mes Documents\TonFichierACopier.xls"
    Sheets(NomFeuille).Select
    ActiveSheet.Cells.Select
    Selection.Copy
    Windows("TonFichierOuColler.xls" ).Activate
    Sheets(NomFeuille).Select
    ActiveSheet.Cells.Select
    ActiveSheet.Paste
    Windows("TonFichierACopier.xls" ).Close (False)
    ActiveSheet.Range("A1" ).Select

n°1580526
yannw
Posté le 28-06-2007 à 17:44:43  profilanswer
 

Merci c'est cool, mais ça ne fonctionne toujours pas, je crois pas que je m y prenne bien pourtant ca pas l'air d'être si compliqué....

mood
Publicité
Posté le 28-06-2007 à 17:44:43  profilanswer
 

n°1580527
jpcheck
Pioupiou
Posté le 28-06-2007 à 17:46:49  profilanswer
 

quand tu dis que ca ne fonctionne pas, c'est parce que ca te pond une erreur ou le résultat n'est pas celui attendu ?? :sweat:  :pt1cable:

n°1580530
yannw
Posté le 28-06-2007 à 17:54:51  profilanswer
 

sans ta réponse mon code ressemble à ça:
 
Sub AfficheListeDeroulanteModifiable()
      listederoulantemodifiable.Show
     
 
End Sub
 
Sub ajouterrenommerfeuille()
Sheets.Add.Name = Range("E2" )
 
 
End Sub
 
Sub open_files_from_C()
Workbooks.Open Filename:= _
"C:\auxiliaire\stage.xls", _
updatelinks:=0
 
 
End Sub
 
Sub copieblocrout():
 
Dim Name_of_sheet As String
 
Windows("stage.xls" ).Activate
Name_of_sheet = "feb 07"
 
Sheets(Name_of_sheet).Select
 
Range("A1" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Début de procédure.xls" ).Activate
ActiveSheet.Select
Range("A50" ).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
 
End Sub

n°1580532
yannw
Posté le 28-06-2007 à 18:01:53  profilanswer
 

En faisant cela, je copie toujours de mon classeur excel source stage.xls, le premier onglet qui est donc janvier.
 
 Alors que dans ma combobox j'ai selectionné le mois de février, et créer cet onglet février dans mon deuxième classeur "début de procédure".  
 
Malheureusement je copie au bonne endroit mais pas la bonne source....(copie de janvier dans l onglet février!)

n°1580546
jpcheck
Pioupiou
Posté le 28-06-2007 à 18:55:34  profilanswer
 

je propose de passer directement le  
sheets(nomdelafeuille) plutot que de faire des select successif, sinon tu c plus où tu en es.

n°1580554
yannw
Posté le 28-06-2007 à 19:44:27  profilanswer
 

D'accord, mais es ce que tu pourrai me montré à quoi ca ressemblerai parce que je vois pas trop comment le faire stp


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème d'onglet

 

Sujets relatifs
probleme de compilationProblème de compatibilité
problème de positionnement de "slide menu"[JavaCC]Problème avec une grammaire
Problème FichiersProbleme [VBA] importation données excel dans Access
[HTML/CSS]Probleme de compatibilite IE7 ...MS VC++ et problème à l'édition des liens
[PHP] Problème de boucle et menu[Clarion]problème onglet....
Plus de sujets relatifs à : problème d'onglet


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR