Le code ci-dessous est ex=E9cut=E9 dans Access 2002. Il fonctionne une
premi=E8re fois parfaitement. Lorsque je veux l'ex=E9cuter une deuxi=E8me
(3=E8me et +) fois, j'ai l'erreur 1004.
=AB la m=E9thode 'Cells' de l'objet '_Global' a =E9chou=E9 =BB ou =AB la m=
=E9thode
'Range' de l'objet '_Worksheet' a =E9chou=E9 =BB
Je ne comprends pas cette inconstance : le code fonctionne une fois et
puis plus jamais, =E0 moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
(...)
Set xlApp =3D CreateObject("Excel.Application")
Set xlBook =3D xlApp.Workbooks.Add
xlApp.Visible =3D True
Set xlSheet =3D xlBook.Worksheets.Add
(...)
Temp$ =3D Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst
("Act_Denomination"), 31))
xlSheet.Name =3D Temp$
xlSheet.Cells(2, 2) =3D "Client : " & Rst("Cli_Nom_Entreprise")
xlSheet.Cells(3, 2) =3D "Action : " & Rst("Act_Code_Pub") & " -
" & Rst("Act_Denomination")
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size =3D 15
(erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
^ ^ ^
(...)
Set xlSheet =3D Nothing
Set xlBook =3D Nothing
Set xlApp =3D Nothing
A+ Gilles a écrit dans le message de news: Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Salut Pascal,
Essaye d'insérer cette ligne pour voir. C'est peut être une question de
focus ...
A+ Gilles
<pascal.cambier@gmail.com> a écrit dans le message de
news:136465ff-8034-4ea2-8ecd-b51c9917c437@p2g2000prn.googlegroups.com...
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une
première fois parfaitement. Lorsque je veux l'exécuter une deuxième
(3ème et +) fois, j'ai l'erreur 1004.
« la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode
'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et
puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
(...)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets.Add
(...)
Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst
("Act_Denomination"), 31))
xlSheet.Name = Temp$
xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise")
xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " -
" & Rst("Act_Denomination")
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15
(erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
^ ^ ^
(...)
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
A+ Gilles a écrit dans le message de news: Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
pascal.cambier
On 15 déc, 14:25, "gilles" wrote:
Salut Pascal,
Essaye d'insérer cette ligne pour voir. C'est peut être une question de focus ...
Nan, itou (et range("A1") avece les guillements) Merci quand même
TopJB
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes objets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la solution)
xlSheet.close xlBook.close xlApp.close
Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
a écrit :
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes objets
de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la
solution)
xlSheet.close
xlBook.close
xlApp.close
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
pascal.cambier@gmail.com a écrit :
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une
première fois parfaitement. Lorsque je veux l'exécuter une deuxième
(3ème et +) fois, j'ai l'erreur 1004.
« la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode
'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et
puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
(...)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets.Add
(...)
Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst
("Act_Denomination"), 31))
xlSheet.Name = Temp$
xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise")
xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " -
" & Rst("Act_Denomination")
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15
(erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
^ ^ ^
(...)
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Ton problème pourrait ressembler à une erreur de fermeture de tes objets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la solution)
xlSheet.close xlBook.close xlApp.close
Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
a écrit :
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
pascal.cambier
On 15 déc, 15:12, TopJB wrote:
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes obj ets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce l a solution)
xlSheet.close xlBook.close xlApp.close
Hello. La méthode close n'existe que pour le classeur et ... je ne veux pas clore ni sauvegarder. De toutes façons, cela ne fonctionne malheureusement pas. Ceci dit je pressentais aussi un problème d'instance ouverte
On 15 déc, 15:12, TopJB <top...@yahoo.fr> wrote:
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes obj ets
de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce l a
solution)
xlSheet.close
xlBook.close
xlApp.close
Hello.
La méthode close n'existe que pour le classeur et ... je ne veux pas
clore ni sauvegarder.
De toutes façons, cela ne fonctionne malheureusement pas.
Ceci dit je pressentais aussi un problème d'instance ouverte
Ton problème pourrait ressembler à une erreur de fermeture de tes obj ets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce l a solution)
xlSheet.close xlBook.close xlApp.close
Hello. La méthode close n'existe que pour le classeur et ... je ne veux pas clore ni sauvegarder. De toutes façons, cela ne fonctionne malheureusement pas. Ceci dit je pressentais aussi un problème d'instance ouverte
Michel__D
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp=Nothing
a écrit dans le message de news: On 15 déc, 15:12, TopJB wrote:
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes objets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la solution)
xlSheet.close xlBook.close xlApp.close
Hello. La méthode close n'existe que pour le classeur et ... je ne veux pas clore ni sauvegarder. De toutes façons, cela ne fonctionne malheureusement pas. Ceci dit je pressentais aussi un problème d'instance ouverte
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp=Nothing
<pascal.cambier@gmail.com> a écrit dans le message de news:39c33877-c28d-4bb5-aef9-da867cf17a06@w1g2000prk.googlegroups.com...
On 15 déc, 15:12, TopJB <top...@yahoo.fr> wrote:
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes objets
de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la
solution)
xlSheet.close
xlBook.close
xlApp.close
Hello.
La méthode close n'existe que pour le classeur et ... je ne veux pas
clore ni sauvegarder.
De toutes façons, cela ne fonctionne malheureusement pas.
Ceci dit je pressentais aussi un problème d'instance ouverte
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp=Nothing
a écrit dans le message de news: On 15 déc, 15:12, TopJB wrote:
Bonjour,
Ton problème pourrait ressembler à une erreur de fermeture de tes objets de liaisons entre VBA et Excel
essaye avec (Pour ma part je n'ai pas essayé, mais peut être est-ce la solution)
xlSheet.close xlBook.close xlApp.close
Hello. La méthode close n'existe que pour le classeur et ... je ne veux pas clore ni sauvegarder. De toutes façons, cela ne fonctionne malheureusement pas. Ceci dit je pressentais aussi un problème d'instance ouverte
pascal.cambier
On 15 déc, 16:09, "Michel__D" wrote:
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp =Nothing
bonsoir,
cela ne fonctionne pas non plus, désolé je suis.
On 15 déc, 16:09, "Michel__D" <michel.NOS...@orange-ft.com.invalid>
wrote:
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp =Nothing
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp =Nothing
bonsoir,
cela ne fonctionne pas non plus, désolé je suis.
gilles
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui tourne ... a écrit dans le message de news: On 15 déc, 16:09, "Michel__D" wrote:
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp=Nothing
bonsoir,
cela ne fonctionne pas non plus, désolé je suis.
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui
tourne ...
<pascal.cambier@gmail.com> a écrit dans le message de
news:7f058b1c-bb04-4468-952a-870854e5386e@r36g2000prf.googlegroups.com...
On 15 déc, 16:09, "Michel__D" <michel.NOS...@orange-ft.com.invalid>
wrote:
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set
xlApp=Nothing
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui tourne ... a écrit dans le message de news: On 15 déc, 16:09, "Michel__D" wrote:
Bonjour,
L'instance d'Excel doit encore exister met un xlApp.Quit avant Set xlApp=Nothing
bonsoir,
cela ne fonctionne pas non plus, désolé je suis.
pascal.cambier
On 15 déc, 16:29, "gilles" wrote:
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui tourne ...
Oui, je sais aussi. Il ne tourne pas. C'est d'ailleurs pour cela xlApp.visible = true.
C'est décourageant...
On 15 déc, 16:29, "gilles" <bgille...@orange.fr> wrote:
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui
tourne ...
Oui, je sais aussi. Il ne tourne pas. C'est d'ailleurs pour cela
xlApp.visible = true.
Tu peux verifier dans le gestionnaire de tâches si tu as excel.exe qui tourne ...
Oui, je sais aussi. Il ne tourne pas. C'est d'ailleurs pour cela xlApp.visible = true.
C'est décourageant...
Blaise Cacramp
Mon frère Pascal,
C'est, comme tu le connais, toujours le même problème en VBA automation : il faut être très explicite pour les manipulations d'objets hors application porteuse. Donc comme tu es dans ACCESS, les objets EXCEL.
En cause ici : l'objet Cells (syntaxe 2) dans l'objet Range. Pour la syntaxe 1 (références de type "A1"), cela ne pose pas de problème.
Et Microsoft le dit : « Ce comportement est inhérent au produit. » http://support.microsoft.com/kb/178510/fr
Et comme je sais que tu as une foule de lignes a changer, bon courage pour demain
Cdt, Blaise ---- ---- ----
a écrit dans le message de news:
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Mon frère Pascal,
C'est, comme tu le connais, toujours le même problème en VBA automation : il
faut être très explicite pour les manipulations d'objets hors application
porteuse. Donc comme tu es dans ACCESS, les objets EXCEL.
En cause ici : l'objet Cells (syntaxe 2) dans l'objet Range.
Pour la syntaxe 1 (références de type "A1"), cela ne pose pas de problème.
Et Microsoft le dit : « Ce comportement est inhérent au produit. »
http://support.microsoft.com/kb/178510/fr
Et comme je sais que tu as une foule de lignes a changer, bon courage pour
demain
Cdt, Blaise
---- ---- ----
<pascal.cambier@gmail.com> a écrit dans le message de news:
136465ff-8034-4ea2-8ecd-b51c9917c437@p2g2000prn.googlegroups.com...
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une
première fois parfaitement. Lorsque je veux l'exécuter une deuxième
(3ème et +) fois, j'ai l'erreur 1004.
« la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode
'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et
puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
(...)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets.Add
(...)
Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst
("Act_Denomination"), 31))
xlSheet.Name = Temp$
xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise")
xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " -
" & Rst("Act_Denomination")
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15
(erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
^ ^ ^
(...)
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
C'est, comme tu le connais, toujours le même problème en VBA automation : il faut être très explicite pour les manipulations d'objets hors application porteuse. Donc comme tu es dans ACCESS, les objets EXCEL.
En cause ici : l'objet Cells (syntaxe 2) dans l'objet Range. Pour la syntaxe 1 (références de type "A1"), cela ne pose pas de problème.
Et Microsoft le dit : « Ce comportement est inhérent au produit. » http://support.microsoft.com/kb/178510/fr
Et comme je sais que tu as une foule de lignes a changer, bon courage pour demain
Cdt, Blaise ---- ---- ----
a écrit dans le message de news:
Bonjour.
Le code ci-dessous est exécuté dans Access 2002. Il fonctionne une première fois parfaitement. Lorsque je veux l'exécuter une deuxième (3ème et +) fois, j'ai l'erreur 1004. « la méthode 'Cells' de l'objet '_Global' a échoué » ou « la méthode 'Range' de l'objet '_Worksheet' a échoué »
Je ne comprends pas cette inconstance : le code fonctionne une fois et puis plus jamais, à moins de relancer vba
avec mes meilleures salutations
Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook (...) Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add (...) Temp$ = Fn_Expurge(Left$(Rst("Act_Code_Pub") & " - " & Rst ("Act_Denomination"), 31)) xlSheet.Name = Temp$ xlSheet.Cells(2, 2) = "Client : " & Rst("Cli_Nom_Entreprise") xlSheet.Cells(3, 2) = "Action : " & Rst("Act_Code_Pub") & " - " & Rst("Act_Denomination") xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 (erreur juste ici dessus) ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ (...) Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
PMO
Bonjour,
Je vous propose 2 pistes
PISTE 1 remplacez la ligne xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 par xlSheet.Range(xlSheet.Cells(2, 2), xlSheet.Cells(3, 2)).Font.Size = 15
PISTE 2 remplacez la ligne xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15 par xlSheet.Range("b2:b3").Font.Size = 15
Cordialement.
PMO Patrick Morange
Bonjour,
Je vous propose 2 pistes
PISTE 1
remplacez la ligne
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15
par
xlSheet.Range(xlSheet.Cells(2, 2), xlSheet.Cells(3, 2)).Font.Size = 15
PISTE 2
remplacez la ligne
xlSheet.Range(Cells(2, 2), Cells(3, 2)).Font.Size = 15
par
xlSheet.Range("b2:b3").Font.Size = 15