Discussion :

[Kass4r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ..... depuis hier midi je cherche mais je ne trouve pas....Je suis débutant en vba

Merci de votre aide

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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é

[Renardo]

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kass4r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Renardo]

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

miseEnFormeFichierExcel

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

[Kass4r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

miseEnFormeFichierExcel

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

J'utilise le code suivant pour recupere mes worksheets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.