Problème d'exécution de macro sous excel

pour moi, il faudrait la mettre en macro complémentaire et essayez de tester l'ouverture d'un classeur.
Du coup, ta macro serait à un seul endroit et chargé dans excel sur chacun des postes...

Je suis désolé j'ai eu un souci avec le premier message d'hier et en le refaisant j'ai changé de pseudo...première utilisation d'un forum je ne me ferai plus avoir:) mé nec et neccro27 c bien moi

désolé

soit fait un test sur le nombre de feuilles,

soit mets un message au debut de ta macro du style ( je pense que c'est le mieux )
if msgbox("Voulez vous lancer la macro...",vbquestion+vbyesno,"Question") = vbyes then

et la tu mets ton code

end if

Merci mais j'ai toujours le même problème. La macro ne s'exécute pas puisqu'il n'y a pas de feuille à l'ouverture.
Le message box fonctionne bien en effet mais renvoi sur une erreur une fois avoir coché 'oui'.

Je lance mon fichier.
Il me demande si je veux activer les macros. J'active.
Ensuite le msgbox aparaît ("voulez vous lancer la macro?") Je répond 'oui'.
Message d'erreur renvoyé :
"Erreur d'exécution '1004':
La méthode 'range' de l'objet '_Global' a échoué."

Ou alors existe t'il un code afin d'ouvrir un fichier directement après le msgbox? Ce qui me permettrai d'ouvrir le navigateur, aller chercher puis ouvrir un fichier pour ensuite activer la macro? j'ai déjà cherché à ce sujet mais sans résultat.

Je précise que je suis limité dans excel, je ne suis pas un pro ('malheureusement') ainsi j'ai un peu (beaucoup) de mal...merci

si je reprends ton post du debut tu as deux classeurs, donc dans ta macro complémentaire, tu li dis de rien faire tant qu'il n'y a pas 2 classeurs
if workbooks.count <= 2 then exit sub
et sinon elle s'execute sur le classeur actif

En effet à présent il n'y a plus d'erreur. Je peux donc aller ouvrir un fichier excel par ce classeur. Mais, je ne voit toujours pas comment activer cette maudite macro sur le nouveau classeur sans avoir à copier le code à nouveau dans le workbook_open... :-( je vais finir par croire que je ne suis vraiment pas doué.

J'ouvre le fichier 'test.xla' (qui contient la macro complémentaire), jactive la macro, je répond au msgbox et ensuite je fais ouvrir fichier 'exemple.xls' (qui contient le tableau à trier). C'est bien sa? Cela devrait fonctionner?

merci

il faudrait arriver à mettre un test qui se déclenche sur

Workbook_WindowDeactivate avec un compteur qui compte les fenetres ouvertes et le stocke dans ton fichier 1

comme ca lorsque qu'une nouvelle fenetre apparait en testant ton compteur
elle désactive ton premier fichier et ladu coup ca marche ...

Donc je remplace le sub Workbook_Open par sub Workbook_WindowDeactivate c'est bien sa? et pour le compteur par exemple je met un nbfenetre que jincrémente à quel niveau? Je suis largué désolé...

ou alors je crée un deuxième sub mé est-ce possible dans le workbook?

et comment tu fait pour compter le nombre de fenêtre ouverte? Je vois comment faire la condition mais c'est le vocabulaire vb qui vient à manquer -_-' sheet.count?

le sub c'est un procedure, tu en mets autant que tu veux
tu as aussi les function qui sont des fonctions ( eh ouais ) qui elles te renvoient un resulat

pour moi, tu peux te creer une variable compteur qui s'initialise lorsque tu ouvres ton fichier n°1 ( celaui dans lequel tu vas appelé tes autres fichiers )

Quand je relis ton post du tout debut je me demande quand meme s'il n'y as pas plus simple.
Du style un bouton qui executerai ta macro complémentaire manuellement quand l'utilisateur clique sur le bouton et qui s'effectuerai sur le fichier actif à l'écran...

En faite de base j'avais attaché la macro à un bouton (trouvant également cela beaucoup plus simple), mais le problème est toujours le même puisque le bouton n'aparaîtra pas sur les nouveaux fichiers. Ou du moins l'affectation de la macro au bouton. A chaque fois le problème est que l'on doit réinscrire le code dans le visual basic, que ce soit dans le workbook ou dans un module.

De plus mon maitre de stage m'a demandé s'il été possible de supprimer le bouton afin de passer directement sur l'ouverture d'un nouveau fichier.. Il m'a de plus montrer un fichier excel qui dès son lancement, demande d'activer les macros, et en réponse favorable à cette question offre la possibilité d'ouvrir un nouveau fichier qui prendrai en compte la macro en saisissant le racourci ctrl+i qui lance la macro sur la feuille active....seul problème, c'est que ce n'est pas mon maitre de stage qui a effectué la macro mais une personne extérieure...qui a mis des mots de passe.....forcément sa limite la chose. Et je ne trouve aucune trace de ce genre de problème sur internet. A croire que je sois le premier à poser la question..

et ofète merci pour la partie cour ^^ c utile de le savoir. je conaissais les fonctions, mais ce qui me poser problème c'était en faite de savoir si dans le workbook il pouvait y avoir plusieur sub. c'est bon je le sait maintenant.

Voila mon code peut être comprendras-tu mieux.

Private Sub Workbook_open()

Dim nbcode, numligne, numligne2, As Integer

If MsgBox("Voulez-vous lancez la macro?", vbQuestion + vbYesNo, "Question") = vbYes Then

numligne = 2 'Représente le numéro de ligne de la feuille 1.
numligne2 = 3 'Représente le numéro de ligne de la feuille 2.
numligne3 = 3 'Représente le numéro de la ligne de la feuille 3.

Sheets("Feuil1").Select
Range("F2").Select
If Workbooks.Count <= 2 Then Exit Sub
While ActiveCell.Range("C2") <> Empty

If Mid(Cells(numligne, 1), 1, 1) = "S" Or Mid(Cells(numligne, 1), 1, 1) = "G" Then
If Mid(Cells(numligne, 35), 1, 1) <> "C" And Mid(Cells(numligne, 35), 1, 1) <> "D" Then
If Cells(numligne, 2) <> 3440 Then
If Feuil2.Cells(numligne2, 2) = "" Then

Feuil2.Cells(numligne2, 1) = nbarticle
[...]
Feuil2.Cells(numligne2, 36) = Feuil1.Cells(ActiveCell.Row, 35)

numligne = numligne + 1

End If
End If

If Mid(Cells(numligne, 2), 1, 2) = 46 Then
If Sheets("feuil3").Cells(numligne3, 2) = "" Then

Sheets("feuil3").Cells(numligne3, 1) = nbarticle2
[...]
Sheets("feuil3").Cells(numligne3, 36) = Feuil1.Cells(ActiveCell.Row, 35)

numligne2 = numligne2 + 1

End If
End If
End If
End If
nbcode = nbcode + 1
ActiveCell.Offset(1, 0).Activate

Wend
End If
End Sub

Voila mon désastre.. mais n'existerai t'il pas juste un code comme par exemple un inputbox qui renverai l'utilisateur vers l'explorateur afin d'ouvrir son fichier, ou du moins qui aurai la même fontion que le bouton 'ouvrir' à ta connaissance? en tout cas merci beaucoup du temp que tu consacres à mon souci.

Enfaite j'ai donné une partie de la réponse dans ma dernière argumentation..il sufit de mettre un racourci ctrl + touche au choix.

En effet j'ouvre un fichier 1 qui contient une macro (qui n'est pas complémentaire). La macro est placée dans un module auquel j'attribue un raccourci (ctrl+o). je sauvegarde le programme et le réouvre

le fichier me demande si je veux activer la macro je répon oui. une page vierge est alors ouverte.
j'ouvre un fichier 2 par l'intermédiaire du fichier 1. la feuille 1 contient les donnée a trier. je presse le raccourci et le tri se fait sur la page en cours qui est la feuille 1 du fichier 2. Donc génial sa marche!!

Mais (je hai ce mot -_-), petit problème :

les page 2 et 3 qui devrai contenir les information extraites sont vides, ou du moins seul les en-tete de colonne (A1,B1,...) sont visiblent. En effet le while vérifie bien tan ke la colonne n'est pa vide sur la feuille 1 du
fichier 2..mais importe les données de la feuille 1 du fichier 1....qui est une page vierge et par conséquent copie les cellules vide.

j vai me tuer ^^

donc g plu ka trouver la solution pour nommé un fichier. comme lon peu faire pour
feuille --> sheets("feuil1")
cellule --> range("A1")
fichier --> ?

aurait tu une idée?

en tout cas je cherche ^^

merci

je repense à ton appli existante, peut etre que le gars en question a fait un userform avec une boite de dialogue ouvrir et que du coup c'est cette boite de dialoque qu'il utilise et la du coup c'est plus facile car il intègre tout dans sa macro de base...

pour le reste, tu peux te referer à une feuille dans un classeur en particulier du style
workbook("Classeur02").sheets("Feuill1").cells(1,1).value= workbook("Classeur01").sheets("Feuill1").cells(1,1).value

par contre pour faire cela il faut connaitre le nom des classeurs.
Si tu en as que 2 c'est facile ( en sachant que tu connais forecement le premier ), apres c'est plus dur...

dis moi si ca te cause ou pas

oui sa me cause plus que bien t génial je vai essayer de ce pas et te tenir au courant

merci :)

if Workbooks("classeur1.xls").Sheets("Feuil1").Mid(Cells(nbcode, 35), 1, 1) <> "C"

cette ligne ne veu pas fonctionner, il me met une erreur "propriété ou méthode non géré par cet objet"...je me doute que c'est a cause du mid mais je pense que je doi préciser le classeur sur cette ligne

sinon g inséré

Workbooks("classeur1.xls").Sheets("Feuil1").Range("F2").Select

jute avt la boucle while ainsi que

Workbooks("classeur1.xls").Sheets("Feuil2").Cells(numligne, 2) = Workbooks("test.xls").Sheets("Feuil1").Cells(ActiveCell.Row, 1) en ce qui concerne l'exportation des données...en vain cela ne fonctionne pas.

j'ai toujours mes pages blanches en pages 2 et 3 du classeur 2.

Et le petit souci c'est que je doi kiter mn poste..mais je me conecterai sur le forum kan mem de chez moi pour suivre..

en tout cas je te remerci beaucoup, encor une foi, g enfin l'impression d'avoir avancé dans le projet..depui ier matin je sui desu je comence a désespérer lol mé c en bonne voi il me reste plu ka gérer ces fameux affichages.mais je reste néamoin à l'écoute si tu a une idée

encore merci

pour If Workbooks("classeur1.xls").Sheets("Feuil1").Mid(Cells(nbcode, 35), 1, 1) <> "C"
il vaut mieux mettre en variable
variable_01 = Workbooks("classeur1.xls").Sheets("Feuil1").Cells(nbcode, 35).value

et ensuite tu fais ton test...
If Mid(variable_01, 1, 1) <> "C"
d'ailleurs autant faire left(variable_01,1) le resultat doit etre le meme ;-)

Je ne sais pas si tu es autorisé à diffuser ton fichier, mais je pense que je le comprendrai mieux si je vyais tourner le code...

bonjour NicoDisso,

je ne retourne que mardi sur mon poste de travail ainsi n'ai-je aucun document sur moi, et en effet il me parai peu probable que la diffusion du fichier soit possible. mais je demanderai quand même. Sinon dakor pour ton code je l'essaierai dès mardi matin et te tiendrait au courant.

merci :) et bon week-end

Bonjour, c'est bon cela fonctionne enfin !!

En faite j'avais fais une erreur bête :(

Au lieu de noter
Workbooks("classeur1.xls").Sheets("feuil2").Cells(numligne, 3)
= Workbooks("classeur1.xls").Sheets("Feuil1").Cells(ActiveCell.Row, 2)

J'avais noté
Workbooks("classeur1.xls").Sheets("feuil2").Cells(numligne, 3)
= Workbooks("test.xls").Sheets("Feuil1").Cells(ActiveCell.Row, 2)

Donc forcément cela ne recopier pas les bonnes cellules.....

Par contre la mise en variable ne fonctionne pas, mais je pense que c'est dû à sa déclaration, puisque je ne vois pas en quoi je doit la déclarer. j'ai essayer integer, string.

Enfin en tout cas merci beaucoup tu m'a été d'une grande aide.

j'ai encore 2 petites choses à demander mais je vais poster un nouveaux message pour recentrer le sujet.. encor merci

a mon avis, il faudrait la déclarer en "public" dans ton classeur

Public Variable as string

Du coup elle devrait etre accessible en faisant

Workbooks("classeur1.xls").Variable

il ne reconai pas 'public'

il m'affiche comme erreur :
erreur de compilation.
attribut incorrect dans une procédure sub ou fonction.

voici mes lignes de code :

Dim nbcode, numligne, numligne2, nbarticle, nbarticle2 As Integer
Public variable1 As String

oui c'est parce que Public doit etre directementdans le code de module ou de feuille
Une variable public ne peut pas etre dans une procedure ou une fonction.

Moi je les mets en tete de module, ou si j'en ai beaucoup je fait meme un module "Declaration" dans lequel je mets mes variables publiques par ordre alphabétique