OVH Cloud OVH Cloud

erreur 1004

5 réponses
Avatar
Cdams
Bonjour,

Voila j'ai téléchargé fc-excelphp et j'ai fait ce qui était demandé (enfin
il me semble.) Qd je valide la gestion de la base de donné, j'ai une erreur,
l'erreur 1004 :
If Fiches = True Then
Page = "fiches"
NomSql = SqlAjout
If Sheets("fiches").Range("A2") = "" Then
MsgBox ("Il n'y a pas de nouvelles fiches à exporter !")
Exit Sub
End If
Sheets("fiches").Range(NewFiches).Copy /c'est la ligne indiquée par le
debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Et je ne vois pas comment régler ce pb....

5 réponses

Avatar
Jacky
Bonsoir Cdams

A première vue l'erreur vient de ceci:(si NewFiches existe)

Range(NewFiches)
Change en:
Range("NewFiches")

En même temps tu peux reduire ce code:

Sheets("fiches").Range("NewFiches").Copy /c'est la ligne indiquée par
le

debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste


à ceci:

Sheets("fiches").Range("NewFiches").Copy
Sheets("bdd").Range("A65536").End(xlUp).Offset(1, 0)

Salutations
JJ

"Cdams" a écrit dans le message de
news:
Bonjour,

Voila j'ai téléchargé fc-excelphp et j'ai fait ce qui était demandé
(enfin

il me semble.) Qd je valide la gestion de la base de donné, j'ai une
erreur,

l'erreur 1004 :
If Fiches = True Then
Page = "fiches"
NomSql = SqlAjout
If Sheets("fiches").Range("A2") = "" Then
MsgBox ("Il n'y a pas de nouvelles fiches à exporter !")
Exit Sub
End If
Sheets("fiches").Range(NewFiches).Copy /c'est la ligne indiquée par
le

debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Et je ne vois pas comment régler ce pb....



Avatar
MichDenis
Bonjour Cdams,

Je suis juste un peu perplexe par ce que représente "Fiches" , tantot il est semble être utilisé comme variable , tantot comme un
nom d'objet. Quel interprétation est la bonne ?

Observe ceci :

If Fiches = True Then
Page = "fiches" Les guillements transforme la variable "fichies" en un simple nom d'une chose portant le nom "Fiches"

Et cela se répète ailleurs dans le code.

Et dans ceci :
Sheets("fiches").Range(NewFiches).Copy

Est-ce que ta feuille s'appelle "Fiches" ou c'est une variable portant le nom de Fiches, dans le deuxième cas, Fiches ne prend pas
de guillemets.


Salutations!




"Cdams" a écrit dans le message de news:
Bonjour,

Voila j'ai téléchargé fc-excelphp et j'ai fait ce qui était demandé (enfin
il me semble.) Qd je valide la gestion de la base de donné, j'ai une erreur,
l'erreur 1004 :
If Fiches = True Then
Page = "fiches"
NomSql = SqlAjout
If Sheets("fiches").Range("A2") = "" Then
MsgBox ("Il n'y a pas de nouvelles fiches à exporter !")
Exit Sub
End If
Sheets("fiches").Range(NewFiches).Copy /c'est la ligne indiquée par le
debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Et je ne vois pas comment régler ce pb....
Avatar
Misange
Bonsoir,
j'ai pas mis le nez dans ce code depuis un sacré moment mais je regarde
ça et je te dis. En tous cas
Tu ne peux pas tester ce bout de code tout seul : fiches est une
variable de type booléen ici dont la vaeur est modifiée dans le
userform. mais de fait ca semble être aussi le nom d'un onglet ce qui
n'est pas une fort bonne idée, voilà l'occasion de faire un peu de
ménage ;-)
@ + !!

De même
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 08/04/2005 18:41, :
Bonjour,

Voila j'ai téléchargé fc-excelphp et j'ai fait ce qui était demandé (enfin
il me semble.) Qd je valide la gestion de la base de donné, j'ai une erreur,
l'erreur 1004 :
If Fiches = True Then
Page = "fiches"
NomSql = SqlAjout
If Sheets("fiches").Range("A2") = "" Then
MsgBox ("Il n'y a pas de nouvelles fiches à exporter !")
Exit Sub
End If
Sheets("fiches").Range(NewFiches).Copy /c'est la ligne indiquée par le
debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Et je ne vois pas comment régler ce pb....



Avatar
Misange
pas eu le temps ce soir mais en jetant un oeil, je trouve ça diablement
plus complqué que ce que j'utilise maintenant. Je mettrai ça à jour si
je peux demain..
patience !
de fait tu as raison ça plante là ou tu l'as dit et je sais pourquoi
(mais t'attendras encore un peu :-)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 08/04/2005 21:17, :
Bonsoir,
j'ai pas mis le nez dans ce code depuis un sacré moment mais je regarde
ça et je te dis. En tous cas
Tu ne peux pas tester ce bout de code tout seul : fiches est une
variable de type booléen ici dont la vaeur est modifiée dans le
userform. mais de fait ca semble être aussi le nom d'un onglet ce qui
n'est pas une fort bonne idée, voilà l'occasion de faire un peu de
ménage ;-)
@ + !!

De même
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 08/04/2005 18:41, :

Bonjour,

Voila j'ai téléchargé fc-excelphp et j'ai fait ce qui était demandé
(enfin il me semble.) Qd je valide la gestion de la base de donné,
j'ai une erreur, l'erreur 1004 : If Fiches = True Then
Page = "fiches"
NomSql = SqlAjout
If Sheets("fiches").Range("A2") = "" Then
MsgBox ("Il n'y a pas de nouvelles fiches à exporter !")
Exit Sub
End If
Sheets("fiches").Range(NewFiches).Copy /c'est la ligne indiquée par
le debogueur
Sheets("bdd").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Et je ne vois pas comment régler ce pb....





Avatar
jietch
Bonjour, je voudrais savoir ou s'en était car j'ai la même erreur...
Il refuse de transférer les données et me met une erreur sur cette ligne

Sheets("fiches").Range(NewFiches).Copy

Je sais que le post est un peu vieux.. mais sait on jamais..

Merci d'avance