rss
Erreur execution 1004
par Drakov666
 Fil de Discussions
Statut : Non résolu
mardi 10 mai 2005 à 11:50:19
Bonjour
j'ai une macro prenant dans un fichier diverses données mais lorsque je la lance la macro stoppe et me met ce message : Erreur d'execution 1004 et surlignant ceci
: Sheets("tableau").Cells(ligne, 3) = adrdesta2

voici tout le reste du code

Sub CSuppEntetePusatyp()

' ajout de la feuille tableau
Sheets.Add
Sheets("feuil1").Select
Sheets("feuil1").Name = ("tableau")

'nombre de pro


Dim nom
Dim adr1
Dim codepost
Dim ville
Dim ligne

nom = "["
ligne = 1
For rang = 1 To 10000
ranga = Sheets("p_usatyp").Cells(rang, 1)
nomdest = InStr(ranga, nom)
If nomdest = "1" Then nomdesta = Sheets("p_usatyp").Cells(rang, 1): Sheets("tableau").Cells(ligne, 1) = nomdesta: adrdesta = Sheets("p_usatyp").Cells(rang + 2, 1): Sheets("tableau").Cells(ligne, 2) = adrdesta: adrdesta1 = Sheets("p_usatyp").Cells(rang + 3, 1): Sheets("tableau").Cells(ligne, 4) = adrdesta1: adrdesta2 = Sheets("p_usatyp").Cells(rang + 4, 1): Sheets("tableau").Cells(ligne, 3) = adrdesta2: ligne = ligne + 1
Next



Sheets("tableau").Select
nombre = 0
For Each ran In Range("a1:a7000")
If ran <> "" Then nombre = nombre + 1 Else GoTo 100

Next
100 nombre = nombre + 1

'nom
ote = "[BUDL]"
For rang = 1 To nombre
nom = Cells(rang, 1)
budl = InStr(nom, ote)
budl = budl - 1
If budl > 0 Then nomdef = Left(nom, budl): nomdefa = Mid(nomdef, 8): Cells(rang, 1) = nomdefa
Next


'adresse
For rang = 1 To nombre
adra = Cells(rang, 2)

adrdef = Mid(adra, 18)
Cells(rang, 2) = adrdef
Next

'ville
For rang = 1 To nombre
ville = Cells(rang, 4)
villa = Mid(ville, 18)
Cells(rang, 4) = villa
Next

'entetes du tableau
Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Nom"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Adresse"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Codep"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Ville"
Range("D2").Select

' tri alphabétique


Sheets("tableau").Select
Columns("A:j").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



End Sub

merci
Répondre à Drakov666  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par titi 22, le lundi 31 mars 2008 à 18:10:44 Fil de Discussions 
j'ai cette erreur d'xecution alors que mes fichiers sont bien nommés et mon chemin d'accès correct:HELP .


Workbooks.Open (chemsource & nomsource)
Répondre à titi 22
Discussions pertinentes trouvées dans le forum
10/05 11h50Erreur execution 1004Programmation31/03 18h101
19/05 10h35erreur execution programme java j2meProgrammation19/05 13h433
28/12 15h52Erreur exécution programme sur machine 64bitsProgrammation28/12 15h520
30/11 11h18Erreur exécutable MatlabProgrammation22/04 15h543
Plus de discussions sur « Erreur d'éxecution 1004 » Discussion en cours Discussion fermée Problème résolu
Logiciels pertinents trouvés dans les téléchargements
Télécharger OpenOffice.org 2.4.1OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle...Catégorie: Suite bureautique
Licence: Open Source
Télécharger Foxit Reader 2.3 Build 2923Foxit Reader - Foxit Reader est un lecteur de fichiers PDF très léger, et rapide à démarrer, contrairement à Adobe Acrobat Reader. Il...Catégorie: PDF
Licence: Freeware/gratuit
Télécharger DSL Test 2.0.0.6DSL Test - DSLtest est constitué d'un logiciel à télécharger gratuitement et de serveurs de test. Ces équipements vous permettent...Catégorie: ADSL
Licence: Freeware/gratuit
Télécharger QuickPAR 0.9.1QuickPAR - QuickPar est un utilitaire permettant de créer des volumes de parité utilisant l'algorithme Reed Solomon. Les volumes de...Catégorie: Téléchargement
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Erreur d'éxecution 1004 »
Répondre
Titre du message :
Votre pseudo:
Votre email :
Message: 
  •  
  •  
Options: Recevoir les réponses par mail.
 

Aide