erreur 1004 vba excel Résolu

Question

Bonjour,

bon voila j'ai fait une macro et je dois sélectionner une cellule pour contrôler si elle vide où non.

j'utilise cette commande : Range(Cells(10, 2)).Select => là ça bug
quand j'utilise : Range("J2").Select => là ça passe :(
je peux pas utiliser la seconde méthode par ce que je souhaite l'introduire dans une boucle for.

voici tout le code

Private Sub transfert_Click()
Dim i, j As Double
Dim f, g As Double
Dim leer As Boolean

'======================= suchen die daten - recherche des données =======================
'control dass es ein datei gibt - contôle de présence de fichier
If classeur1 = vide Then Exit Sub
If classeur2 = vide Then Exit Sub

'öffnen der Datei .csv - ouverture du fichier .csv
Workbooks.Open Filename:=classeur1

'Kopieren die daten von der datei .csv - copier les données du fichier .csv
Cells.Select
Selection.Copy

'öffnen der Datei .xls - ouverture du fichier .xls
NameFichier = ActiveWorkbook.Name
Workbooks.Open Filename:=classeur2

'einfügen die daten in der datei .xls - coller les données dans le fichier .xls
Cells.Select
ActiveSheet.Paste

'schliessen die datei .csv - fermer le fichier.csv
Workbooks(NameFichier).Close

'konvertieren den string -> Koolonne - convertir les chaînes de caractère -> colonne
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Semicolon:=True


'====================== Datenverarbeitung - traitement des données ======================

'Definit le nbr de ligne et de colonne de la liste
f = ActiveSheet.UsedRange.Columns.Count
g = ActiveSheet.UsedRange.EntireRow.Count

'leer = 1
'For i = 2 To 256
' link_xls.Text = i
' If Cells(10, 2) <> 0 Then
' leer = leer + 1
' link_csv.Text = leer
' End If
'Next

'If leer = 0 Then
Range(Cells(10, 2)).Select
'Range("J2").Select
If Selection = "" Then
Columns(10).Select
Selection.Delete
End If
End Sub


ps : j'en ai besoin pour un projet au boulot et j'utilise excel 2000, mais il bug aussi chez moi avec excel 2003.

En espérant que vous pourrez m'aider.

tompols · Answer

Bonjour,
"Range(Cells(10, 2)).Select" => alors premiere chose, cells(10,2) fait référence à B10 et non J2 ( Cells(ligne, colone)
sinon cells(10,2).select suffit par besoin du Range()....

moapremier · Answer

Sur 2003, ça fonctionne

Mais il me semble que j'avais déjà testé sur la version 2000 et que ça n'avait marcher
je teste demain et je vous donne le résultat

je te remercie aussi pour l'inversion entre ligne et colonne, j'avais pas fait attention à ça
Je te remercie de ton aide tompols

moapremier · Answer

ça a bien fonctionné tompols, mais j'ai autre problème du même type
j'essye de renomer un onglet et j'ai la même erreur.

voici le code que j'utilise :

Sub Tri()
    classeur2 = Application.GetOpenFilename("*.xls,*.xls")
    'ActiveSheets.Name = zeitergeleitet
    'Worksheets.Name = zeitergeleitet
    'Sheets(1).Name = zeitergeleitet
    'Workbooks(classeur2).Save
    'Workbooks(classeur2).Close
End Sub

je vous remercie de votre aide

tompols · Answer

Bonjour,
ActiveSheet.name = "zeitergeleitet" 'renomme l'onglet actif
Sheets(1).Name = "zeitergeleitet" 'renomme la feuille 1
Activeworkbook.save 'sauvegarde le classeur actif
Workbooks("classeur2.xls").save 'sauvegarde le classeur Classeur2.xls
voilà :)

moapremier · Answer

en fait voila les problèmes que j'ai :

'ActiveSheets.Name = zeitergeleitet => erreur 424
'Sheets(1).Name = zeitergeleitet => erreur 1004

renommer la première feuille est bien ce que je veux faire

tompols · Answer

Bonjour,
tu n'as pas lu mon poste précédent ???? le nom tu les mets entre guillemets, ensuite c'est activesheet sans s....

garion28 · Answer

si tu ne met pas de guillemet c'est compté comme une variable, du coup tu essaye de renommer ta feuille avec une valeur null

moapremier · Answer

désolé tompols, je ne l'avais pas vu le "s" en moins
j'ai testé sans le "s" et ça me provoque une erreur 1004...

garion28 · Answer

as tu remis les guillemet autour de zeitergeleitet ?

moapremier · Answer

Je te remercie, ça fonctionne comme ça; se frappe la tête contre un mur :p

je pense que je risque encore d'avoir des questions à cause de l'erreur 1004, vu sa capacité à me casser les pieds.... :p

=> prochaine étape : programmer un pareto et comprendre les codes que j'ai déjà trouvé

moapremier · Answer

qu'est ce que je disais :(, jai à nouveau cette erreur

voila le code pour le pareto que j'ai trouvé :

Sub Macro1()

    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh => il big ici
    Range("A4").Select
    pareto = 0
    Selection.Ungroup
    For i = 5 To 100
        pareto = Range("C" & i).Value + pareto
        If pareto >= 0.8 Then
            max0 = i + 1
            Exit For
        End If
    Next i
    max1 = Range("A4").End(xlDown).Row - 1
    Range("A" & max0, "A" & max1).Select
    Selection.Group
    
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Nom Fournisseur2")
        .Caption = "Nom Fournisseur "
        .PivotItems("Groupe1").Caption = "Reste des fournisseurs"
        .PivotItems("Reste des fournisseurs").ShowDetail = False
        .AutoSort xlDescending, "Sum of Montant Commandé 2"
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Nom Fournisseur"). _
        Orientation = xlHidden
        
End Sub

à priori, il a déjà été testé, je l'ai récupérer ici : https://www.excel-downloads.com/threads/grphique-tcd-avec-pareto.78645/ je vais aussi voir avec eux s'ils voient d'où peut provenir le problème

garion28 · Answer

d'après l'explorateur d'objet PivotTables demande un index (optionel) en paramètre, hors tu y met un string au lieu du integer

moapremier · Answer

le problème, c'est aue même en applicant l'exemple donné par l'aide, ça bug

voici l'exemple : Worksheets(1).PivotTables(1).PivotCache.Refresh

tompols · Answer

Salut
bon là tu essaies de manipuler le tableau croisé dynamique numéro 1 de ta feuille 1....t'es sur qu'il existe ?

moapremier · Answer

j'essaie de créer le tableau croisé, mais à chaque fois que j'essaie quelque chose je tombe sur l'erreur 1004 :(

voila un exemple :
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "ramasse!R1C1:R" & lastrow & " C8").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique4"

le problème est que j'ai du mal à voir auoi serve chacun des paramètre

moapremier · Answer

voila om j'arrive : 

ActiveWorkbook.PivotCaches.Add SourceType:=xlDatabase, SourceData:= _
        "zeitergeleitet!R1C1" & lastrow & lastCol
=> je crée le cache du tableau

ActiveWorkbook.PivotCaches.Item.CreatePivotTable TableDestination:= _
        "new!R1C1", TableName:="Tableau", readdata:=True
=> je crée le tableau lui même

le problème c'est que je ne sais pas comment les associés pour avoir ce que je veux
j'ai essayé de l'associé comme c'est fait dans le post du dessus, mais ça ne marche pas non plus

voila mon code :

Sub Tri()
    classeur2 = Application.GetOpenFilename("*.xls,*.xls")
    If classeur2 = vide Then Exit Sub
    Workbooks.Open Filename:=classeur2
    Sheets(1).Name = "zeitergeleitet"
    
    Sheets(2).Activate
    ActiveSheet.Name = "New"
    
    Dim lastrow As Double
    lastrow = ActiveSheet.UsedRange.EntireRow.Count
    lastCol = ActiveSheet.UsedRange.Columns.Count
        
    'ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    '    "zeitergeleitet!A1" & lastrow & lastCol).CreatePivotTable TableDestination:="new", TableName:= _
    '    "Tableau"
    
    ActiveWorkbook.PivotCaches.Add SourceType:=xlDatabase, SourceData:= _
        "zeitergeleitet!R1C1" & lastrow & lastCol
    
    ActiveWorkbook.PivotCaches.Item.CreatePivotTable TableDestination:= _
        "new!R1C1", TableName:="Tableau", readdata:=True

        
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Je vous remercie de votre aide

moapremier · Answer

j'ai pu glaner des infos, le problème vient du fais que workbook il prend le classeur où il y a la macro :(

j'ai encore des problème, je cherche de mon coté et je vous demande si je trouve pas moi même

voila le problème :

Workbooks(classeur2).PivotCaches.Add SourceType:=xlDatabase, SourceData:="zeitergeleitet!(R1C1:Cells(lastRow, lastCol))"

sur cette ligne, il me mets erreur 9 : l'indice n'appartient pas à la sélection
comment je peux le faire appartenir ?

eriiic · Answer

Bonsoir,

Ca ne suffira peut-être pas mais tu es faché avec les " " toi... 

Workbooks("classeur2") (voire même Workbooks("classeur2.xls") ?)
vue l'heure pas envie de tester ;-)
eric

moapremier · Answer

c'est pas faux, mais j'ai testé et ça change rien

garion28 · Answer

zeitergeleitet!(R1C1:Cells(lastRow, lastCol)) si je traduit ca donne:
pour lastrow = 1
pour lastcol = "A"
dans la feuille zeitergeleitet a la sélection R1C1:"A1"

si j'ai bien traduit alors ya un problème (après je ne sais pas ce que représente le R1C1 car je l'ai souvent vu mais jamais utilisé)

moapremier · Answer

j'ai trouvé cette erreur et je l'ai corrigé, voila où en est mon code :

Sub Tri()
    Dim lastRow, lastCol As Integer
    
    classeur2 = Application.GetOpenFilename
    If classeur2 = Null Then Exit Sub
    Workbooks.Open Filename:=classeur2
    Sheets(1).Name = "zeitergeleitet"
    
    lastRow = ActiveSheet.UsedRange.EntireRow.Count
    lastCol = ActiveSheet.UsedRange.Columns.Count
    
    Sheets(2).Activate
    Sheets(2).Name = "new"
   
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "zeitergeleitet!R1C1:R" & lastRow & "C" & lastCol).CreatePivotTable TableDestination:="new!R1C1", TableName:="Tableau"
    
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

ça a l'air de pas trop mal fonctionnait

moapremier · Answer

la prochaine étap est de définir les colonnes du tableau croisé de manière automatique, je vous préviens si j'ai un blocage

moapremier · Answer

J'ai un petit problème sans que je fasse de modification dans le code

l'erreur se produit dans cette cette formule :
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
"zeitergeleitet!R1C1:R" & lastRow & "C" & lastCol).CreatePivotTable TableDestination:="new!R1C1", TableName:="Tableau"

j'ai fait des tests pour trouver d'où venait l'erreur et j'ai pu déterminer que c'est cette partie qui gène :
TableDestination:="new!R1C1" => errur 1004, la donnée n'est pas bonne
je sus presque sur qu'il s'agit de ce problème, si je remplace "new!R1C1", il le reconnait

je peux pas utiliser le "", car cela me provoque si je relance le programme avec le même fichier

Je pense aue après ça, il n'y aura plus de problème

moapremier · Answer

j'ai contourné le problème en procédant d'une autre manière :)

moapremier · Answer

Jai eu toute les infos nécessaires consernant ces problèmes, je le mets donc comme étant résolu

Erreur 1004 vba excel

25 réponses

Newsletters