bug macro

[olive323]

Bonjour a tous,

J'ai un ptit souci avec cette macro qui bug à partir de cette ligne"""""Sheets("Resultat du TRI").Range("A3:C5000").ClearContents""". Je sais que le probleme est que je souhaite aller chercher les donnees dans un fichier sur le bureau.

Un de vous a-t'il une idée ???

Olive323



Sub grouper13()
Set classeur = Application.Workbooks.Open("C:\Documents and Settings\....\Bureau\invadj_sap.xls", , True)

Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("Feuil1")



Const fichier As String = "invadj_sap"
Dim wbkSource As Workbook
Dim wbkDestination As Workbook




With shtSource


Set liste = CreateObject("scripting.dictionary")
For Each c In .Range("G2:G" & .Range("G" & Rows.Count).End(xlUp).Row)
liste(c.Value & "#" & c.Offset(, 1)) = liste(c.Value & "#" & c.Offset(, 1)) + 1
Next c
Sheets("Resultat du TRI").Range("A3:C5000").ClearContents x = 3
For Each elem In liste.Keys
Sheets("Resultat du TRI").Range("A" & x).Resize(1, 2) = Split(elem, "#")
x = x + 1
Next elem
Sheets("Resultat du TRI").Range("C3:C" & liste.Count + 2) = Application.Transpose(liste.Items)
End With
Sheets("Resultat du TRI").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 5), TrailingMinusNumbers:=True

Range("C3").Select


End Sub

 

[Pierrot93]

Re : bug macro

Bonjour,

quel type d'erreur as tu ? la feuille en question existe bien dans le classeur actif ? tu as des cellules fusionnées ?

ton jaune passe mal à l'écran...

bonne journée
@+

 

[olive323]

Re : bug macro

Bonjour Pierrot,

Le message est:

Erreur d'excecution "9"
L'indice n'appartient pas à la selection

Par contre si je supprime la ligne """"""Set classeur = Application.Workbooks.Open("C:\Documents and Settings\Vitry\Bureau\invadj_sap.xls", , True)"""" et que j'ouvre le fichier invadj_sap avant d'executer la macro ca fonctionne.

Désolé pour le jaune

Cordialement

 

[olive323]

Re : bug macro

Non pas de fusion le feuil1 existe il manque pas grand chose pour que ca fonctionne

 

[Pierrot93]

Re : bug macro

Re,

désolé j'avais zappé... mais d'aprés le type d'erreur et si c'est bien la ligne que tu mets en jaune qui provoque l'erreur, vérifie bien le nom de la feuille, elle doit être présente sur le classeur actif... si c'est dans un autre classeur, il y aura lieu de préciser le dit classeur.....

Workbooks("NomClasseur.xls").Sheets("Resultat du TRI").Range("A3:C5000").ClearContents

bonne soirée
@+

 

[olive323]

Re : bug macro

Bonjour à tous,

Merci pour ses reponses, ca va deja mieux!!! La macro a avancé, mais elle s'arrete au niveau du texte en caractère gras maintenant.
Avec message:
Erreur d'excecution 1004
la méthode select de la classe worksheet a échoué

Sur ces derniers pas, je souhaite inverser la date qui est sous cette forme dans le fichier de base 20110403 transformé en 03042011
Cordialement
Olive323

Sub grouper13()
Const fichier As String = "invadj_sap"
Dim wbkSource As Workbook
Dim wbkDestination As Workbook
Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("C:\Documents and Settings\,,,,\Bureau\invadj_sap.xls", , True)

Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("Feuil1")

With shtSource


Set liste = CreateObject("scripting.dictionary")
For Each c In .Range("G2:G" & .Range("G" & Rows.Count).End(xlUp).Row)
liste(c.Value & "#" & c.Offset(, 1)) = liste(c.Value & "#" & c.Offset(, 1)) + 1
Next c
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("A3:C5000").ClearContents
x = 3
For Each elem In liste.Keys
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("A" & x).Resize(1, 2) = Split(elem, "#")
x = x + 1
Next elem
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("C3:C" & liste.Count + 2) = Application.Transpose(liste.Items)


End With
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 5), TrailingMinusNumbers:=True

Range("C3").Select





End Sub

 

[flyonets44]

Re : bug macro

Bonjour
Tu peux essayer Application.Goto reference :Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").range("a1")
pour inverser les dates tu peux utiliser l'instruction suivantes :
Function INVERSETEXTE(Texte) As String
'Renvoie son argument à l'envers
Dim LongueurTexte As Integer
Dim i As Integer
LongueurTexte = Len(Texte)
For i = LongueurTexte To 1 Step -1
INVERSETEXTE = INVERSETEXTE & Mid(Texte, i, 1)
Next i
End Function
Cordialement
Flyonets

 

[Pierrot93]

Re : bug macro

Bonjour à tous,

plutôt que "select", utilise la méthode "activate" :

Workbooks("NomClasseur.xls").Sheets("NomFeuille").Activate

 

[olive323]

Re : bug macro

Bonjour

Merci à vous, pour ces solutions comme ceci elle fonctiion.
Mais je note Floynets, cette methode. plutot qu'une enregristré.

Merci encore

Sub grouper13()
Const fichier As String = "invadj_sap"
Dim wbkSource As Workbook
Dim wbkDestination As Workbook
Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("C:\Documents and Settings\Vitry\Bureau\invadj_sap.xls", , True)

Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("Feuil1")

With shtSource


Set liste = CreateObject("scripting.dictionary")
For Each c In .Range("G2:G" & .Range("G" & Rows.Count).End(xlUp).Row)
liste(c.Value & "#" & c.Offset(, 1)) = liste(c.Value & "#" & c.Offset(, 1)) + 1
Next c
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("A3:C5000").ClearContents
x = 3
For Each elem In liste.Keys
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("A" & x).Resize(1, 2) = Split(elem, "#")
x = x + 1
Next elem
Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Range("C3:C" & liste.Count + 2) = Application.Transpose(liste.Items)
Workbooks(fichier).Close

End With
'Workbooks("TRI INVADJ_SAP.xls").Sheets("Resultat du TRI").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 5), TrailingMinusNumbers:=True

Range("C3").Select





End Sub