Salut,
J' ai résolu la question de l' ajout.Reste à savoir comment appliquer
dynamiquement une mise en page.
Mon but est faire une mise en forme (manuellement) sur les premières
feuilles et de conserver la même pour celles qui vienderont s' ajouter au classeur.

Est-ce possible alors ?
Si oui, comment ?

Merci.

Notez bien que pour moi, Excel est une terre étrangère..

                 

---

... Y'en a même qui disent qu'ils l'ont vu voler.

Salut
De quoi parles-tu ?
Ne penses-tu pas qu'il serait bon de poser des questions bien expliquées et documentées.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Salut jack,
voila..
J' ai un classeur Excel.
Dans ce classeur j' ai 3 feuilles.
J' ajoute par code une quatrième.
Comment faire pour que cette dernière hérite des mêmes
caractéristiques que les 3 premières ?
A savoir Font, Taille, Couleur, Format de cellules etc.

 

 				 						 								
... Y'en a même qui disent qu'ils l'ont vu voler. 				 		

Le plus simple serait peut être dans ce cas de ne pas l'ajouter, mais de faire une copie d'une feuille précédente ?

Par code, tu copies une feuille de référence, par ex. la feuille 1, et sur cette feuille ainsi crée, tu n'as plus qu'à faire :
worksheets("Nouvelle feuille").cells.clearcontent
Ce qui en supprimera tout le contenu en conservant le format des cellules, etc ...

Molenn

Salut Molenn et merci,
A suppose que j' ai :

Sub ENVOYER()
    'OUVRIR LA TABLE

        Dim rs As Recordset
        Set rs = pDB.OpenRecordset("INSCRIPTIONS", dbOpenDynaset)
    
        'SI LA TABLE EST VIDE
        If rs.BOF And rs.EOF Then
             MsgBox "Table vide !"
             Exit Sub
        End If

    '- Ouvrir un fichier Excel
    'Déclaration des variables
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel

    'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open(App.Path & "\NXLS.xls")
    'wsExcel correspond à la première feuille du fichier
        Set wsExcel = wbExcel.Worksheets(1)
 
    Dim i As Integer, y As Integer, xPage As Integer
    Dim enr As Integer  'numéro d' enregistrement
  
    y = 0         'ligne 0
    xPage = 1   'page 1
 
    rs.MoveFirst
    Do While Not rs.EOF
    
            'LIRE L' ENREGISTREMENT
            'ET
            'ECRIRE DANS EXCEL
            y = y + 1
            
            '12 lignes par page
             If y = 13 Then
                  'IMPRIMER
                  'wsExcel .PrintOut
              
                 'REINITIALISER L'INDEX LIGNE
                 'EN VUE DE LA PROCHAINE FEUILLE
                 y = 1
              
                If xPage = wbExcel.Worksheets.Count Then
                  'AJOUTER UNE FEUILLE
                   wbExcel.Worksheets.Add , wbExcel.Worksheets(xPage), 1
                End If
                
                 xPage = xPage + 1
             End If
            
             Set wsExcel = wbExcel.Worksheets(xPage)
          
            With wsExcel
                    Debug.Print .Name
                   .Activate
                   .Cells(y, 1) = rs!Nom
                   .Cells(y, 2) = rs!Prenom
                   .Cells(y, 3) = rs!Ne_le
                   .Cells(y, 4) = rs!ArNom
                   .Cells(y, 5) = rs!ArPrenom
            End With
           
            'enregistrement suivant
            rs.MoveNext
   
    Loop

      MsgBox "TERMINE"
   
     'FERMER l' objetEXCEL
      ' wbExcel .Close False
     
     'AFFICHER EXCEL
          wbExcel.Windows.Application.Visible = True
    
   '...DETRUIRE LES OBJETS
    Set appExcel = Nothing
    Set wbExcel = Nothing
    Set wsExcel = Nothing
'Fermer et détruire l' objet recordset
    rs.Close
    Set rs = Nothing
End Sub

Avec ça sera plus facile pour vous de m' indiquer ce que
je dois faire et surtout ou..

 				 						 								
... Y'en a même qui disent qu'ils l'ont vu voler. 				 		

Mais en tout cas j' ai compris ou tu voulais en venir.
Au lieu de Add, il faudra insèrer une copie de la feuille1.
Astucieux mais comment le traduire?

... Y'en a même qui disent qu'ils l'ont vu voler.

Salut,

wbExcel.Worksheets.Copy , wbExcel.Worksheets(xPage), 1

on vas bien encore y passer une journée pour un truc aussi simple

mais cela m'embete un peu de t'aider vu que tu demande l'avis des gents et que finalement tu n'en as rien a faire

l'activate et le select dans excel sont a proscrir ce sont des source de l'enteur et d'erreur

je ne vois pas en quoi d'activer la feuille de destination vas changer le faite que :

wbExcel.Worksheets(xPage).Cells(y, 1) = rs!Nom

si tu avait essayé directement dans excel tu aurais vu que cela ne fait aucune difference avec ou sans l'activate

.Cells(y, 1) = rs!Nom Sache que d'atribuer une valeur a une cellule de cette facon est  une source de plantage. Pourquoi ?

et bien il y a 174 methodes et proprietes possible sur une cellule ! Donc pour eviter qu'excel ne ce melange les pinceaux il est preferable de faire comme suit

.Cells(y, 1).Value = rs!Nom

a ce qui prennent le temps lire : bonne journee

une petit correction :

enleve ,1 en fin de ligne et precise qu'elle est la feuille a copier

wbExcel.Worksheets("sheet1").Copy ,wbExcel.Worksheets(xPage)

mais attention les valeurs seront copier avec donc il est preferable d'avoir template qui reste vide

re-salut,
c' est noté !

Pour la copie
wbExcel.Worksheets.Copy , wbExcel.Worksheets(1), 1

et pour l' insertion ça serait donc
wbExcel.Worksheets.Insert , wbExcel.Worksheets(xPage), 1

c' est ça ?

>>on vas bien encore y passer une journée
t' es pas obligé !

>>pour un truc aussi simple
Tu parles pour toi, là !

>>mais cela m'embete un peu de t'aider vu que tu demande l'avis
des gents et que finalement tu n'en as rien a faire..

t' inquiètes, je lis tout et j' en retiens l' essentiel.

Pour preuve,Voici une chose que je ne savais pas.

>>l'activate et le select dans excel sont a proscrir ce sont des source
de l'enteur et d'erreur

>>.Cells(y, 1) = rs!Nom Sache que d'atribuer une valeur a une cellule de cette
facon est  une source de plantage

jusqu' à preuve du contraire, non !
Mais je ne perderais rien si j' ajoute .Value.

Bonne journée à toi aussi.

                 

---

... Y'en a même qui disent qu'ils l'ont vu voler.

Poste croisé..
Pour la copie donc
wbExcel.Worksheets("sheet1").Copy ,wbExcel.Worksheets(1)

le mieux serait de faire une copie une fois pour toute.
dans une autre variable, non ?

... Y'en a même qui disent qu'ils l'ont vu voler.