qu'est ce qui cloche avec ma macro

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : qu'est ce qui cloche avec ma macro

veryfree

hello

la voici:

Sub Macro2()
Dim mail, request, CurrRow, LastRow
Close #1
campagneID = InputBox("Campagne ID" )
Open "request" & campagneID & ".TXT" For Output As #1
LastRow = Application.CountA(ActiveSheet.Range("A:A" ))
For Each Cell In Range("A1:A" & LastRow)
mail = Cell.Value
Print #1, mail
Next Cell
Close #1
MsgBox "Done"
End Sub

le fichier n'est pas crée ca c'est le probleme de base.

le 2em c'est pourquoi ce fichu excel (version 2002 ) a effacé mes macros lorsque je l'ai fermé sachant que je sauvegardait a chaque modification :'(

y'a un espoir de les retrouver ?

merci

Publicité

JihemAir

Je sais pas

Question de base...As-tu les droits en ecriture (ça expliquerait le fichier pas créé et les macros pas sauvegardées)

Sinon:
1: Essaie qq chose comme ça. Après, on verra pour l'ouverture du fichier. (je ne suis pas sûr que le pb. initial soit là)

Code :

Sub Macro2()
Dim objSheet As Worksheet
Dim objCell As Range
Dim i As Integer
Reset
' campagneID = InputBox("Campagne ID" )
Open "c:\mes documents\request1.TXT" For Output As #1
Set objSheet = ThisWorkbook.Worksheets("Feuil1" )
i = 1
Do While objSheet.Range("A" & i).Value <> ""
Print #1, objSheet.Range("A" & i).Value
i = i + 1
Loop
Close #1
MsgBox "Done"
End Sub

JihemAir

Je sais pas

Une application hôte peut désactiver ou activer des macros. Les causes de cette erreur et les solutions pour la corriger sont les suivantes :

· Vous avez ouvert le document avec l'option Macros Désactivées.

Fermez le document, puis ouvrez-le de nouveau en activant l'option Activer les Macros.

veryfree

JiHemAir a écrit :

tout d'abord merci beaucoup pour ton aide :jap:

je vais tout refaire par rapport a ton exemple qui marche niquel.

sinon , c'est possible de crée le fichier dans le repertoir courrant plutot que dans c:\ ?

et aussi, y a moyen de faire l'affectation en meme temps que la comparaison:
Do While objSheet.Range("B" & i).Value <> "" ( pour optimiser le truc ?)

ps: le prob des sauvegarde est résolu, j'executait les macros a partir d'un fichier csv

Message édité par veryfree le 06-07-2004 à 14:39:05

JihemAir

Je sais pas

Citation :

sinon , c'est possible de crée le fichier dans le repertoir courrant plutot que dans c:\ ?

Open CurDir & "\request1.TXT" For Output As #1 pour travailler dans le rep. courant. :wahoo:

Citation :

et aussi, y a moyen de faire l'affectation en meme temps que la comparaison:
Do While objSheet.Range("B" & i).Value <> "" ( pour optimiser le truc ?)

Nan :cry: Il faut tester d'abord et affecter après.

veryfree

a ma grande surprise tout les fichers etait crée dans mes docs .

CurDir retourne

Citation :

C:\Documents and Settings\jerry\Mes documents

alors que le fichier xls se trouve a :

Citation :

C:\Documents and Settings\jerry\Bureau\macros

enfin c'est pas tres grave.Merci encore

:hello:

Message édité par veryfree le 06-07-2004 à 15:04:39

veryfree

derniere chose, comment tu fait pour les distribuer tes macros?

on recevra un fichier excel tout les mois et il faudrai executer clele que j'ai ecrit sur ce fichier, c'est quoi le moyen le plus simple pour ne pas avoir a faire 50 manipulations?
surtout que ce sera pas a moi de les faire...

Merci

JihemAir

Je sais pas

Le mieux, c'est d'ecrire cette macro dans un fichier qui ne contient qu'elle, avec une seule feuille et un bouton dessus pour la lancer.
Quand tu reçois le fichier mensuel, tu l'ouvres en même temps que celui qui contient le bouton. Avec une petite gymnastique dans la macro pour savoir le nom du workbook qui n'est pas celui de la macro, tu dois pouvoir t'en tirer.

Arjuna

Aircraft Ident.: F-MBSD

Le premier Close #1

C'est pas plutôt un Free #1 que tu veux faire :??:

veryfree

JiHemAir a écrit :

quand tu parle de feuille, c'est la feuille de calcul ou un form VB ?

je pense que tu parle de la feuille de calcul mais comment tu met ce bouton ?

sinon a chaque ouverture de fichier ca crée une nouvelle instance d'excel donc je sais pas si ca marchera mais je testerai qd ce sera ok

Publicité

JihemAir

Je sais pas

Code :

je pense que tu parle de la feuille de calcul mais comment tu met ce bouton ?

Oui, c'est sur la feuille de calcul que je met le bouton.

Citation :

sinon a chaque ouverture de fichier ca crée une nouvelle instance d'excel donc je sais pas si ca marchera mais je testerai qd ce sera ok

Non. Tu n'as qu'une instance d'Excel, mais plusieurs WorkBooks. La preuve, ouvre plusieurs fichiers Excel et dans le module ThisWorkbook de l'un d'eux, colle ce code:

Code :

Sub toto()
Dim objWb As Workbook
For Each objWb In Application.Workbooks
Debug.Print objWb.Name
Next
End Sub

Tu verras qu'il liste tous les fichiers(classeurs) ouverts. A l'aide des objet Workbook, tu peux acceder a chacun (ainsi qu'à leur contenu) individuellement.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

qu'est ce qui cloche avec ma macro

Sujets relatifs
Besoin d aide pour une macro excel / VBA svp	[OOo/Macro] - Impossible de lire un fichier INI
Petit pb simple de macro excel	[VBA] Lancement automatique d'une macro lors d'une modif
une macro dédoublonnage???	[VB] macro pour imprimer une page sur powerpoint
Macro Excel à la con....	Lancer une macro excel depuis un batch
Lancer Macro access depuis excel	[VBA Excel] Lien hypertext + macro
Plus de sujets relatifs à : qu'est ce qui cloche avec ma macro

Page générée en 0.082 secondes