Ouverture d'un fichier

Bonjour,

En fait le classeur1 est dans "D:\Mes documents\" et le bouton est dans un autre classeur (il est dans le classeur d'ouverture qui permet d'avoir accès aux différents classeurs). La commande que j'ai mise en PS permet d'enregistrer mais auparavant j'ai mis " Set Wb = Workbooks.Add" ce qui permet d'ouvrir un classeur. Le problème est que lorsque je renomme le classeur1 il me le met sous un autre nom mais il me garde toujours classeur1, ce qui est embêtant car à la suite de ça lorsque je veux ouvrir un autre fichier, il me met "Classeur2" par défaut et moi je veux qu'il me mette "Classeur1" à chaque fois que j'ouvre un nouveu fichier. Merci

Bonjour,

Le classeur1 n'est pas deja existant puisque c'est le nom du 1er classeur par defaut que l'on ouvre chaque fois que l'on veut demarre Excel. Moi ce que je veut c'est qu'a chaque fois que j'ouvre un nouveau classeur il apparait sous le nom de classeur1 comme si je venais juste de demarrer Excel et que j'ouvre une page Excel. J'ai essayer plusieurs codes mais en vain Voici un dees codes :

Sub Essai()
Dim nomcl$, Wb As Workbook, nb
nomcl = "Classeur"
nb = 1

nb = InputBox("Entrez le nombre de classeur à ouvrir", , nb)
If nb < 1 Then
MsgBox "Vous n'avez entré aucune valeur"
Exit Sub
End If

For i = 1 To nb
Set Wb = Workbooks.Add
On Error Resume Next

For Each Cel In Range(Cells(8, 1), Cells(9, 10))

Range(Cells(8, 1), Cells(9, 10)).Font.Bold = True

'Recopie de la première ligne d'en-tête
Workbooks("Classeur1").Worksheets("feuil1").Cells(8, 2).Value = " FEUILLE "
'NewBook["fName"].
Workbooks("Classeur1").Worksheets("feuil1").Range((Cells(8, 3)), Cells(8, 9)).Value = " SPEC "
Workbooks("Classeur1").Worksheets("feuil1").Cells(8, 10).Value = " ISO "

'Recopie de la deuxième ligne d'en-tête
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 1).Value = " Nom"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 2).Value = " LIBELLE"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 3).Value = " htc"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 4).Value = " Affaire"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 5).Value = "section_âme"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 6).Value = " âme"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 7).Value = " U"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 8).Value = " Ema"
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 9).Value = " Seg."
Workbooks("Classeur1").Worksheets("feuil1").Cells(9, 10).Value = "epais_isolant"


Next
Next
End Sub

'Avec ce code le nom du nom classeur1 par défaut n'est pas enregistré. Le programme se contente seulement d'ouvrir une page Excel et y inscrit le tableau ci-dessus. Par contre lorsque j'ouvre une 2eme page Excel il m'affiche classeur2 et n'y affiche pas le tableau.

Merci

Bonjour,


L'erreur viendrait de la 1ere boucle For i=1 to Nb : c'est elle qui incrémente classeur1 ? En la supprimant je devrais toujours obtenir un nouveau classeur1 ? En fait ce n'est pas de la recopie mais une mise en page. C'est en fait parce que je reprend un tableau deja existant dans un autre classeur, c'est pour cela que je parle de recopie. Merci

Salut,

Desolé pour le retard, le doc ci-joint que vous m'avez envoyé me fonctionne pas. Lorsque je tape un nombre de classeur a ouvrir il m'affiche "erreur d'execution 1004", La methode 'Add' de l'objet 'Workbooks' a échoué. Au niveau du programme VBA l'erreur se situe sur la ligne 'nomcladd=Workbooks.add.Name'. Merci

Salut,


Pour répondre à vos questions : oui j'ai bien enregistré le classeur sur mon PC, j'ai la version Excel 2000, je l'est utilisé tel quel, et oui j'ai bien les 6 references VBAProject. Et toujours la même erreur. le problème doit forcement venir de mon ordi. Merci d'avance

Bonjour,


EN fait je suis en stage en entreprise et je sais pas si l'entreprise a le CD d'installation D'Excel, car dernierement c'est un prestataire externe qui nous a installer Access, donc a mon avis ils n'ont pas le CD. Voila

Bonjour,


Mon tuteur de stage m'a fait comprendre qu'il aimerait bien que je fasse cette application. Maintenant si vraiment je n'arrive pas à réussir cette application, ça sert a rien de bloquer dessus, je lui dirait que je préfére avancer sur autre chose de plus accessible. D'autant plus qu'il ne me reste plus qu'une semaine pour terminer le projet de stage. pour l'nstant jai fait le plus gros travail la je ne fait que pofiner, voir ameliorer quelques application. Voila mon histoire est terminée. La j'essaye de faire une page HTML à partir des données d'un fichier Excel comportant un tableau de 1500 lignes environ et 10 colonnes. Si vous avez des idées car mon programme ne marche pas il me dit : " erreur d'execution '9' L'indice n'appartient pas à la selection". dans VBA il me selectionne en jaune : Print #1, "<td><b>" + NomsRub(Col) + "</b>" + vbCr;

Voici le programme en entier (Bonne lecture):

Public initFait As Boolean, Rdatex As String, Sep As String
Public Repert As String, NomFichMemb As String, WkMemb As Workbook
Public ShMemb As Worksheet, LdMemb As Integer, NbRub As Integer
Public NomsRub()

Function ouvert(Nom As String, Optional F As Boolean = False) As Boolean
Dim W As Workbook, Tr As Boolean
Tr = False
For Each W In Workbooks
If F Then
If W.FullName = Nom Then Tr = True: Exit For
Else
If W.Name = Nom Then Tr = True: Exit For
End If
Next
ouvert = Tr
End Function



'----------------------------------------------------------------Init
Sub Init()
initFait = True
Range(Rdatex).FormulaLocal = Date
ThisWorkbook.Save
Repert = ThisWorkbook.Path
Sep = Application.PathSeparator
NomFichMemb = "Classeur_Bases.xls"
If Not ouvert(NomFichMemb) Then Workbooks.Open Filename:=Repert + Sep + NomFichMemb
Set WkMemb = Workbooks(NomFichMemb)
WkMemb.Activate
Set ShMemb = WkMemb.Sheets("base_commune")
LdMemb = 10
NbRub = 10
NomsRub = Array("Nom", "Libelle", "htc", "Affaire", "Section_Ame", "Ame", "Tension", "Ema", "Type écran", "Corde")

End Sub

'------------------------------------------------------------------GenerHTM
Sub GenerHTM()
Dim Lig As Integer, Col As Integer, Rub As String
Rdatex = "A4"
If Not initFait Then Init
Open Repert + Sep + "base_commune.htm" For Output As #1
Print #1, "<html><head>" + vbCr; 'Début page
Print #1, "<title>Base commune aux trois utilisateurs</title>" + vbCr;
Print #1, "</head><body><center>" + vbCr;
Print #1, "<h2>Nexans</h2><//h2>" + vbCr;
Print #1, "<h2>Base commune aux trois utilisateurs</h2></center>" + vbCr;
Print #1, "table border width=95%>" + vbCr; 'Début tableau
Print #1, "<tr>" + vbCr;
For Col = 1 To NbRub 'Noms de rubriques
Print #1, "<td><b>" + NomsRub(Col) + "</b>" + vbCr;
Next Col
Print #1, "</tr>" + vbCr;
For Lig = LdMemb To 1500 'Les membres
If IsEmpty(ShMemb.Cells(Lig, 1)) Then Exit For
Print #1, "<tr>" + vbCr;
For Col = 1 To NbRub - 1 'Les rubriques
Rub = CStr(ShMemb.Cells(Lig, Col).Value)
If Rub = "" Then Rub = " "
Print #1, "<td>" + Rub + vbCr;
Next Col
Rub = CStr(ShMemb.Cells(Lig, NbRub).Value)
Next Lig
Print #1, "</table>" + vbCr;
Print #1, "</body></html>" + vbCr;
Close 1



End Sub
'------------------------------------------------------------------NouvMembre
Sub NouvMembre()
Rdatex = "A8"
If Not initFait Then Init

End Sub
'------------------------------------------------------------------ModifMembre
Sub ModifMembre()
Rdatex = "A12"
If Not initFait Then Init

End Sub

Bonjour,


Merci pour les réponses. Concernant le problème de l'ouverture de classeur, le programme ne fonctionne toujours pas, il m'affiche ' erreur d'execution 1004, la methode "Add" de l'objet 'workbooks' a échoué'
Apr contre concernant la page HTML, le programme m'affiche bien les 10 element en en-tête mais il ne les met pas sous forme de tableau, les données sont stockées les uns a la suite des autres et non pas les uns sous les autres. Voici le fichier que je doit convertir en page HTML : https://www.cjoint.com/?izlEIw47Er

Merci d'avance

Bonjour,


Je voudrais savoir si c'est possible d'activer et de desactiver une ou plusieurs zones de listes modifiables. J'ai 4 zones de listes modifiables donc 4 critéres de recherche. ESt-il possible de selectionner que 2 ou 3 zones de listes ? c'est a dire faire une recherche que sur 2 ou 3 critéres. J'ai réaliser 4 zones de listes modif dans un formulaire mais à chaque fois il faut que je fasse une recherche sur les 4 zones de listes. Merci