mise en forme fichier excel depuis code vba (Access 2003)

Version imprimable

Bonjour,

j'ai un petit souci....ce souci et que j'execute des fonctions qui devraient changer la mise en forme de mon fichier excel mais il n'en est rien

Voici un petit bout de mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
Private Sub Commande5_Click()
 
Dim i As Integer
Dim dlgSaveAs As FileDialog
Dim chem As String
Dim strDateDébut As String
Dim strDateFin As String
 
strDateDébut = traitementDateSaisie(Me.Texte3.Value)
strDateFin = traitementDateSaisie(Me.Texte8.Value)
 
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
 
dlgSaveAs.Show 'boîte de dialoque de sauvegarde
 
If dlgSaveAs.ButtonName = "Enregistrer" Then:
 
 
 
chem = dlgSaveAs.SelectedItems(1)
 
Open chem + ".xls" For Output As #1
Close #1
 
 
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(chem + ".xls")
Set wsExcel = wbExcel.Worksheets(1)
 
initialisationMyArray
initialisationTabFournisseur
miseEnFormeFichierExcel       ' nom des colones             
requeteRapportPcs strDateDébut, strDateFin
insertionDonnéeFichierExcel
 
 
Range(Cells(2, 1), Cells(20, 1)).Font.Bold = True
 
 
MsgBox ("Votre fichier est à prèsent disponible à l'emplacement :" + chem)
 
End Sub

la ligne de code Range(Cells(2, 1), Cells(20, 1)).Font.Bold = True n'a aucun effet mais elle ne génère aucune erreur non plus .....:bug: depuis hier midi je cherche mais je ne trouve pas....Je suis débutant en vba :oops:

Merci de votre aide

10/04/2008, 14h28
Jean-Philippe André

salut,
lorsque tu n'est pas dans l'application elle-même (en l'occurence dans Access pour piloter Excel, mieux vaut toujours définir exactement à quoi on fait fait référence, ici essaie:

Code:

wsExcel.Range(Cells(2, 1), Cells(20, 1)).Font.Bold = True
10/04/2008, 14h38
Kass4r

Je viens d'essayer et cela me donne l'erreur suivante:

Erreur d'exécution 91
variable objet ou variable de bloc with non défini :bug:

et si je place la ligne de code avant mes appelles des procédures(initialisation....) j'ai l'erreur suivante :

Erreur d'exécution 1004
la méthode range de l'objet worsheet a echoué
10/04/2008, 14h55
Renardo

Essai

Code:

AppExcel.Range(AppExcel.Cells(2, 1), AppExcel.Cells(20,1)).Font.Bold = True

je viens d'executer ton code.
j'ai essayé dans un premier temps comme ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open(chem + ".xls") Set wsExcel = wbExcel.Worksheets(1) appExcel.Range(appExcel.Cells(2, 1), appExcel.Cells(20, 1)).Font.Bold = True miseEnFormeFichierExcel requeteRapportPcs strDateDébut, strDateFin insertionDonnéeFichierExcel MsgBox ("Votre fichier est à prèsent disponible à l'emplacement :" + chem)
là je n'ai pas de message d'erreur mais je n'ai tjs pas mes données qui sont mise en gras de la cellule 2 , 1 a 20 , 1

puis dans un deuxieme temps j'ai essayé comme cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open(chem + ".xls") Set wsExcel = wbExcel.Worksheets(1) miseEnFormeFichierExcel requeteRapportPcs strDateDébut, strDateFin insertionDonnéeFichierExcel appExcel.Range(appExcel.Cells(2, 1), appExcel.Cells(20, 1)).Font.Bold = True MsgBox ("Votre fichier est à prèsent disponible à l'emplacement :" + chem)
la j'ai un message d'erreur:

Erreur d'exection 91

variable objet ou variable de bloc with non définie

Je ne comprend pas .....
Je suis tjs à l'ecoute de quelques conseils
Merci de m'offrir de votre temps

10/04/2008, 15h26
Renardo

Essai

Code:

wsExcel.Range(wsExcel.Cells(2, 1), wsExcel.Cells(20, 1)).Font.Bold = True
10/04/2008, 16h03
Jean-Philippe André

moi là où j'ai un doute, c'est l'utilisation de ceci :

Code:

miseEnFormeFichierExcel

il fait comment ton code pour récupérer tes worksheets ? variables globales ?

Citation:

Envoyé par jpcheck

moi là où j'ai un doute, c'est l'utilisation de ceci :

Code:

miseEnFormeFichierExcel

il fait comment ton code pour récupérer tes worksheets ? variables globales ?

J'utilise le code suivant pour recupere mes worksheets:
Code:

1 2 3 4 5 6 7 8 9 10 11 '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("C:\MonFichierExcel.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
Mes variables concernant les fichiers et requête sont déclarés en global et privé dans le formulaire

je viens de palier au problème en supprimant la ligne de code :
Code:

1 2 3 'Open chem + ".xls" For Output As #1 'Close #1
Donc au lieu de creer le fichier puis de le fermer et de le réouvrir... je le creer et je le modifier directement....
Voici mon nouveau bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ajout d'un classeur appExcel.Workbooks.Add 'Récupération du classeur par défaut Set wbExcel = appExcel.ActiveWorkbook 'Récupération de la feuille par défaut Set wsExcel = wbExcel.ActiveSheet miseEnFormeFichierExcel ' procedure mise en forme qui contient en plus les fonctions permettant de modifier couleur du texte requeteRapportPcs strDateDébut, strDateFin insertionDonnéeFichierExcel
mais j'aimerai savoir quel code il faut utiliser pour pouvoir modifier la couleur du texte ou bien la taille des cellules d'un fichier excel déja existant....
Merci pour votre aide

11/04/2008, 11h38
Jean-Philippe André

Bonjour,
tu peux récupérer le code généré par le macro recorder sous Excel, et l'adapter assez facilement dans Access.