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 ?