Bouton avec macro

Bonjours à toutes et tous

j'ai un dossier avec deux sous dossiers l'un possedent des boutons avec des noms de rues

et quand on clique sur un bouton on arrivent directement sur l'autre ficherà la feuille de cette rue

mais voilà je doit livrer des dossiers sur d'autre ordis

et là tout bascule

ça ne suis pas comment faire pour que cela suive

j' essayer de joindre mon fichier mais il est trop lourd s'il il y a une solution pour envoyer

plus lourd je veut bien les conseils pour l'envoyer

merci de vôtre aide

Mich Mich

Bonjour Mich Mich,

Pas besoin d'avoir toutes les données. Quelques-unes suffisent pour que ça reste clair.

Sinon pour joindre un gros fichier, soit tu essaies en le compressant soit tu utilises http://www.cjoint.com/ soit les deux.

Sinon fais nous voir le code.

Zut j'ai oublier de le compresser

Le numero de l'erreur est 1004

si c'est ça

-- 01 Aoû 2011, 16:41 --

Bon il y en a eu 1

Voilà le deuxieme

j'espère que ça vas aller

merci encore

Mich Mich a écrit :

mais voilà je doit livrer des dossiers sur d'autre ordis

Oui

Alors essaie avec ça (pour le code de la rue Abattoir) :

Sub RueAbattoir()
'
' RueAbattoir Macro
'

'
    Dim repertoire As String
    repertoire = ThisWorkbook.Path & "\"
    Workbooks.Open Filename:=repertoire & "Cheminements Détaillés 1.xls"
    Range("C4").Select
End Sub

Bonjours

Me revoilous

Et bien j'ai essayer ça ne marche pas

ça marche quand jereste sur le meme ordinateur mais pas si je vais sur un autre

je ne suis pas assez douer pour trouver

et en plus des boutons j'en ai plus de 80 alors voilà

que faire merci !!!!!!!!!!!!!!!

Quand tu vas sur les autres ordinateurs, il faut également que les fichiers soient dans le même répertoire. Est-ce que c'est le cas ?

Bon J'ai du mal mais ça fait rien

je recommence

Voilà

J'ai un dossier appeller Paris

Dans le dossier Paris jai 3 Dossiers 1 Organigrame

2 Etats des Lieux

3 Dossiers séparés

Dans Organigramme j'ai des boutons qui m'envoie directement dans Dossiers Séparés

Cheminements détaillés 1

Feuil Rue de l'abattoir

Dans Etats des Lieux J'ai un dossier Photos originales

Et un dossier Photos Reduites

Et les macro qui sont dans les boutons quand je vais sur un autre ordinateur ne marche plus erreur 1004

donc je ne sais pas si c'est le même répertoir

mais c'est toujours dans les même Dossier

Donc les fichiers "Organigramme des Rues.xlsm" et "Cheminements Détaillés 1.xls" ne sont pas dans le même répertoire (pour le premier c'est répertoire "Organigramme" et pour le deuxième répertoire "Dossiers Séparés"). C'était là ma question.

Essaie maintenant le code suivant :

Sub RueAbattoir()
'
' RueAbattoir Macro
'
Dim chemin As String, repParent$, dossier$, nomFichier$

    chemin = ThisWorkbook.Path
    repParent = Left(chemin, Len(chemin) - InStr(StrReverse(chemin), "\"))
    dossier = "\Dossiers Séparés\"    'dossier où se trouve le fichier "Cheminements Détaillés 1.xls"
    nomFichier = "Cheminements Détaillés 1.xls"    'nom du fichier contenant les cheminements

    Workbooks.Open Filename:=repParent & dossier & nomFichier

'    Workbooks.Open Filename:= _
'        "C:\Users\m.liegeois\Desktop\ESSAYE\Dossiers Séparés\Cheminements Détaillés 1.xls"
    Range("C4").Select
End Sub

Sous réserve que les noms correspondent exactement (majuscules, minuscules, lettres accentuées...)

Cela me repond

Erreur de compilation

Instruction incorrecte à l'intérieur d'une procédure

Quelle est la ligne surlignée en jaune ?

Aprés de longues verifications

je suis désolé ça marche pas

Il me dit qu il y a erreur 1004 la methode open de l'objet workbooks à échoué

mich mich

Peux-tu me faire une copie écran du message d'erreur retourné ?

Une copie écran de ton dossier Paris aussi.

Je vais y aller étape par étape.

ça y est !!!!!!!!!!!

ça marche

Merci beaucoup

maintenant je peux partir en vacances

Mich Mich