[VBA Excel - resolu] ajout d'une feuille

ajout d'une feuille [VBA Excel - resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 11-08-2005 à 13:35:26    

Bonjour, c'est encore moi :hello:  
j'aurais voulu savoir qu'elle est la fonction des boite dialogs qui permet non pas d'ouvrir complètement une feuille seule, mais de l'ajouter à un fichier déjà existant.
Je ne trouve en effet pas de site qui les répertorie... :sweat:  
Merci d'avance! :jap:  
JP


Message édité par jpcheck le 11-08-2005 à 14:51:45
Reply

Marsh Posté le 11-08-2005 à 13:35:26   

Reply

Marsh Posté le 11-08-2005 à 14:11:16    

Salut jpcheck
 
Avec une simple msgbox vbyesno tu peux faire ça.

Code :
  1. Sub feuile()
  2. Dim resul As String
  3. resul = MsgBox("Ajouter une feuille ?", vbYesNo)
  4. If resul = 6 Then Sheets.Add
  5. End Sub


Après dans ton then tu peux définir les autres actions (choisir le fichier ou autre...)
 
Yes donne une valeur 6 , No donne une valeur 7
 
C'était bien ça ta question ?
 
bon courage

Reply

Marsh Posté le 11-08-2005 à 14:44:20    

merci pour ton aide watashi. En fait il ne s'agissait pas exactement de ce probleme. Je voulais permettre à l'utilisateur d'importer les données d'une page.
J'ai finalement trouvé un moyen d'y remédier, voici mes lignes de codes :
 

Code :
  1. 'ouverture d'un fichier xls
  2. Application.Dialogs(xlDialogOpen).Show
  3. 'je recopie toutes les valeurs du fichier ouvert dans celui que je veux 
  4. For i = 1 To 50
  5.     For j = 1 To 10
  6.         Workbooks("fichieroujecopie" ).Worksheets("pageoujecopie" ).Cells(i, j).Value = ActiveWorkbook.Worksheets(1).Cells(i, j).Value
  7.     Next j
  8. Next i
  9. 'je ferme le fichier ouvert
  10. ActiveWorkbook.Close


cette méthode fonctionne, mais je n'ai pas blindé les saisies, mais bon,c 'est une autre histoire :pt1cable:

Reply

Marsh Posté le 11-08-2005 à 15:02:25    

Ok la question n'était pas vraiment sur l'ajout d'une page ou msgbox...
 
 
Petit truc sur ton code :

Code :
  1. For i = 1 To 50
  2.     For j = 1 To 10
  3.         Workbooks("fichieroujecopie" ).Worksheets("pageoujecopie" ).Cells(i, j).Value = ActiveWorkbook.Worksheets(1).Cells(i, j).Value
  4.     Next j
  5. Next i


T'aurais pas meilleur temps de faire :

Code :
  1. workbooks("fichier_origine" ).activate
  2. worksheets("feuille_origine" ).activate
  3. range("A1:J50" ).select
  4. selection.copy
  5. Workbooks("fichieroujecopie" ).activate
  6. Worksheets("pageoujecopie" ).activate
  7. range("A1" ).select
  8. selection.paste


T'économiserais une boucle qui surcharge souvent les petits programmes.
Par ailleurs si tu tiens à ta boucle utilise plutot un Formula qu'un value pour ta celule de destination, tu seras garanti du résultat
 :ange:  

Reply

Marsh Posté le 11-08-2005 à 15:13:53    


 

Code :
  1. workbooks("fichier_origine" ).activate
  2. worksheets("feuille_origine" ).activate
  3. range("A1:J50" ).select
  4. selection.copy
  5. Workbooks("fichieroujecopie" ).activate
  6. Worksheets("pageoujecopie" ).activate
  7. range("A1" ).select
  8. selection.paste


Cette méthode me plait bien, toutefois, comment récupères tu le fichier_origine? VBE me pond une erruer pour selection.paste

Reply

Marsh Posté le 11-08-2005 à 18:09:25    

j'ai bien vu ton message j'aurais pas le temps de voir plus loin avant lundi. Mais si ça peut attendre mardi je regarderais ce weekend car j'ai un problème du même genre à résoudre.
Tu peux parcontre te reseigner sur les fonctions GetOpenFileName, et les filesystemobject.
désolée

Reply

Marsh Posté le 16-08-2005 à 09:41:48    

salut jpcheck,
 
donc voilà moi j'avais un autre traitement à faire et je l ai modifié pour ta copie de la plage ("A1:J50" ). je suis sous excel 2002.

Code :
  1. Sub Macro1()
  2. 'sélectioner et ouvrir le fichier origine(source des données)
  3. 'seulement s'il n'est pas ouvert
  4.      Dim wb1, B1, C1, original As Workbook
  5.      wb1 = Application.GetOpenFilename()
  6. 1    B1 = 1
  7.      C1 = ""
  8.      For B1 = 1 To Workbooks.Count
  9.         If Workbooks(B1).FullName = wb1 Then C1 = 1: Set original = Workbooks(B1)
  10.      Next B1
  11.      If C1 = "" Then Workbooks.Open Filename:=wb1: GoTo 1
  12.      original.Activate
  13. 'Sélectionner la feuille des données source
  14.      Dim Source, A1, D1
  15. 2    A1 = 1
  16.      Source = ""
  17.      D1 = ""
  18.      Source = InputBox("Choisir la feuille contenant les données" )
  19.      For A1 = 1 To original.Worksheets.Count
  20.         If Source = Worksheets(A1).Name Then D1 = 1
  21.     Next A1
  22.     If D1 = "" Then MsgBox ("Erreur sur le nom de la feuille" & vbLf & "merci de recommencer !" ): GoTo 2
  23. 'selection du fichier de destination et ourverture
  24. 'seulement s'il n'est pas ouvert
  25.      Dim wb2, B2, C2, Desti As Workbook
  26.      wb2 = Application.GetOpenFilename()
  27. 3    B2 = 1
  28.      C2 = ""
  29.      For B2 = 1 To Workbooks.Count
  30.         If Workbooks(B2).FullName = wb2 Then C2 = 1: Set Desti = Workbooks(B2)
  31.      Next B2
  32.      If C2 = "" Then Workbooks.Open Filename:=wb2: GoTo 3
  33.      Desti.Activate
  34. 'Sélectionner la feuille des données source
  35.      Dim Copie, A2, D2
  36. 4    A2 = 1
  37.      Copie = ""
  38.      D2 = ""
  39.      Copie = InputBox("Choisir la feuille où les données seront copiées" )
  40.      For A2 = 1 To Desti.Worksheets.Count
  41.         If Copie = Desti.Worksheets(A2).Name Then D2 = 1
  42.     Next A2
  43.     If D2 = "" Then MsgBox ("Erreur sur le nom de la feuille" & vbLf & "merci de recommencer !" ): GoTo 4
  44. 'traitement pour la copie des données
  45.     original.Activate
  46.     Worksheets(Source).Activate
  47.     Range("A1:J50" ).Select
  48.     Selection.Copy
  49.     Desti.Activate
  50.     Worksheets(Copie).Activate
  51.     Range("A1" ).Select
  52.     ActiveSheet.Paste
  53. End Sub


J'ai comme références : Visual Basic For Applications
                        Microsoft excel 10.0 object library
                        Microsoft Forms 2.0 Object library
 
@+ et bon courage

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed