Salut à tous,
Existe t'il un equivalent d'Application.FindFile pour
choisir de la même maniere dans un classeur ouvert,
une feuille par un simple click dans le but ensuite
grace à Application.InputBox de selectionner une plage
en vue de copie ?
Merci.
--
Ne pas utiliser la fonction: "Répondre à l'expéditeur"
L'adresse a été volontairement modifiée (spam)
écrire à: cchris.col@free.fr avec un seul 'c' au début
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut, Travail sur 2 classeurs....... Fonctionne avec l'autre classeur ouvert ou fermé Une inputbox demande le nom de l'onglet et recopie [A1:Z50] de la feuille choisit et la colle en A1 de Feuil2 du classeur qui a la macro modifie "Menuserie.xls" par le nom du fichier à Activer ou à ouvrir Modifie aussi [A1:Z50].et la destination Youky
chemin = ThisWorkbook.Path & "" cefichier = ThisWorkbook.Name fichier = "Menuserie.xls" 'modifier le nom On Error Resume Next Workbooks(fichier).Activate If Err.Number = 9 Then Workbooks.Open Filename:=chemin & fichier End If Do rep = InputBox("Entrez le nom de la page à copier" _ & vbCr & "Clicker sur Annuler pour sortir") If rep = "" Then Workbooks(cefichier).Activate: Exit Sub On Error Resume Next Sheets(rep).[A1:Z50].Copy Workbooks(cefichier).Sheets("Feuil2").[A1] If Err <> 0 Then MsgBox "Le nom n'a pas été trouvé...Recommencer.!" Loop Workbooks(cefichier).Activate
"chris" a écrit dans le message de news: 453b1c01$0$29071$
Salut à tous, Existe t'il un equivalent d'Application.FindFile pour choisir de la même maniere dans un classeur ouvert, une feuille par un simple click dans le but ensuite grace à Application.InputBox de selectionner une plage en vue de copie ?
Merci. -- Ne pas utiliser la fonction: "Répondre à l'expéditeur" L'adresse a été volontairement modifiée (spam) écrire à: avec un seul 'c' au début
Salut,
Travail sur 2 classeurs.......
Fonctionne avec l'autre classeur ouvert ou fermé
Une inputbox demande le nom de l'onglet et recopie [A1:Z50]
de la feuille choisit et la colle en A1 de Feuil2 du classeur qui a la macro
modifie "Menuserie.xls" par le nom du fichier à Activer ou à ouvrir
Modifie aussi [A1:Z50].et la destination
Youky
chemin = ThisWorkbook.Path & ""
cefichier = ThisWorkbook.Name
fichier = "Menuserie.xls" 'modifier le nom
On Error Resume Next
Workbooks(fichier).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier
End If
Do
rep = InputBox("Entrez le nom de la page à copier" _
& vbCr & "Clicker sur Annuler pour sortir")
If rep = "" Then Workbooks(cefichier).Activate: Exit Sub
On Error Resume Next
Sheets(rep).[A1:Z50].Copy Workbooks(cefichier).Sheets("Feuil2").[A1]
If Err <> 0 Then MsgBox "Le nom n'a pas été trouvé...Recommencer.!"
Loop
Workbooks(cefichier).Activate
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b1c01$0$29071$426a74cc@news.free.fr...
Salut à tous,
Existe t'il un equivalent d'Application.FindFile pour
choisir de la même maniere dans un classeur ouvert,
une feuille par un simple click dans le but ensuite
grace à Application.InputBox de selectionner une plage
en vue de copie ?
Merci.
--
Ne pas utiliser la fonction: "Répondre à l'expéditeur"
L'adresse a été volontairement modifiée (spam)
écrire à: cchris.col@free.fr avec un seul 'c' au début
Salut, Travail sur 2 classeurs....... Fonctionne avec l'autre classeur ouvert ou fermé Une inputbox demande le nom de l'onglet et recopie [A1:Z50] de la feuille choisit et la colle en A1 de Feuil2 du classeur qui a la macro modifie "Menuserie.xls" par le nom du fichier à Activer ou à ouvrir Modifie aussi [A1:Z50].et la destination Youky
chemin = ThisWorkbook.Path & "" cefichier = ThisWorkbook.Name fichier = "Menuserie.xls" 'modifier le nom On Error Resume Next Workbooks(fichier).Activate If Err.Number = 9 Then Workbooks.Open Filename:=chemin & fichier End If Do rep = InputBox("Entrez le nom de la page à copier" _ & vbCr & "Clicker sur Annuler pour sortir") If rep = "" Then Workbooks(cefichier).Activate: Exit Sub On Error Resume Next Sheets(rep).[A1:Z50].Copy Workbooks(cefichier).Sheets("Feuil2").[A1] If Err <> 0 Then MsgBox "Le nom n'a pas été trouvé...Recommencer.!" Loop Workbooks(cefichier).Activate
"chris" a écrit dans le message de news: 453b1c01$0$29071$
Salut à tous, Existe t'il un equivalent d'Application.FindFile pour choisir de la même maniere dans un classeur ouvert, une feuille par un simple click dans le but ensuite grace à Application.InputBox de selectionner une plage en vue de copie ?
Merci. -- Ne pas utiliser la fonction: "Répondre à l'expéditeur" L'adresse a été volontairement modifiée (spam) écrire à: avec un seul 'c' au début
Youky
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
chris
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Merci à Youky pour le coup de main
Mais en fait, en utilisant:
Set ChoixDesDonnées=Application.InputBox(etc..
la boite de dialogue qui s'ouvre indique bien :
Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15
et le choix de la feuille passe à la trappe
C'est le nom de la premiere feuille qui s'ouvre à
l'ouverture du second classeur qui est mémorisé
La question est:
Comment recuperer Feuil5!$C$15
se serait si simple..
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
uKecC4b9GHA.1172@TK2MSFTNGP03.phx.gbl...
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Youky
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Je ne peux allez plus loin sans voir un bout de ton code.
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b6039$0$8602$426a74cc@news.free.fr...
Merci à Youky pour le coup de main
Mais en fait, en utilisant:
Set ChoixDesDonnées=Application.InputBox(etc..
la boite de dialogue qui s'ouvre indique bien :
Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15
et le choix de la feuille passe à la trappe
C'est le nom de la premiere feuille qui s'ouvre à
l'ouverture du second classeur qui est mémorisé
La question est:
Comment recuperer Feuil5!$C$15
se serait si simple..
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
uKecC4b9GHA.1172@TK2MSFTNGP03.phx.gbl...
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
chris
Y a Ka demander.. '================== Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Y a Ka demander..
'================== Sub Prog()
Nm = Application.FindFile
If Nm <> True Then
Annule = True
Exit Sub
End If
Nm = Application.ActiveWorkbook.Name
Ff = ActiveSheet.Name
Windows(Nm).Activate
On Error Resume Next
Set ColAna = Application.InputBox(Title:="Choix des données", _
prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _
& Chr(10) & "qui contient les données à analyser", Type:=8)
Ff = ActiveSheet.Name
End Sub
'===================== Si je choisi la Xeme feuille du classeur Nm,
ColAna ne rend que le Range de la Premiere
et c'est tout le probleme..
Merci d'avance.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
Os1LMqd9GHA.3264@TK2MSFTNGP04.phx.gbl...
Je ne peux allez plus loin sans voir un bout de ton code.
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b6039$0$8602$426a74cc@news.free.fr...
Merci à Youky pour le coup de main
Mais en fait, en utilisant:
Set ChoixDesDonnées=Application.InputBox(etc..
la boite de dialogue qui s'ouvre indique bien :
Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15
et le choix de la feuille passe à la trappe
C'est le nom de la premiere feuille qui s'ouvre à
l'ouverture du second classeur qui est mémorisé
La question est:
Comment recuperer Feuil5!$C$15
se serait si simple..
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
uKecC4b9GHA.1172@TK2MSFTNGP03.phx.gbl...
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
Y a Ka demander.. '================== Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Youky
MsgBox ColAna.Parent.Name & "!" & ColAna.Address A mettre en bas de ta macro, tu vas t'y retrouver facile Youky "chris" a écrit dans le message de news: 453b78a0$0$9811$
Y a Ka demander.. '================== > Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== > Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
MsgBox ColAna.Parent.Name & "!" & ColAna.Address
A mettre en bas de ta macro, tu vas t'y retrouver facile
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b78a0$0$9811$426a74cc@news.free.fr...
Y a Ka demander..
'================== > Sub Prog()
Nm = Application.FindFile
If Nm <> True Then
Annule = True
Exit Sub
End If
Nm = Application.ActiveWorkbook.Name
Ff = ActiveSheet.Name
Windows(Nm).Activate
On Error Resume Next
Set ColAna = Application.InputBox(Title:="Choix des données", _
prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _
& Chr(10) & "qui contient les données à analyser", Type:=8)
Ff = ActiveSheet.Name
End Sub
'===================== > Si je choisi la Xeme feuille du classeur Nm,
ColAna ne rend que le Range de la Premiere
et c'est tout le probleme..
Merci d'avance.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
Os1LMqd9GHA.3264@TK2MSFTNGP04.phx.gbl...
Je ne peux allez plus loin sans voir un bout de ton code.
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b6039$0$8602$426a74cc@news.free.fr...
Merci à Youky pour le coup de main
Mais en fait, en utilisant:
Set ChoixDesDonnées=Application.InputBox(etc..
la boite de dialogue qui s'ouvre indique bien :
Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15
et le choix de la feuille passe à la trappe
C'est le nom de la premiere feuille qui s'ouvre à
l'ouverture du second classeur qui est mémorisé
La question est:
Comment recuperer Feuil5!$C$15
se serait si simple..
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
uKecC4b9GHA.1172@TK2MSFTNGP03.phx.gbl...
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
MsgBox ColAna.Parent.Name & "!" & ColAna.Address A mettre en bas de ta macro, tu vas t'y retrouver facile Youky "chris" a écrit dans le message de news: 453b78a0$0$9811$
Y a Ka demander.. '================== > Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== > Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
chris
Fin de la galère. Heureusement qu'il n'a pas fait beau.
Merci, Merci et encore Merci. CC.
"Youky" a écrit dans le message de news:
MsgBox ColAna.Parent.Name & "!" & ColAna.Address A mettre en bas de ta macro, tu vas t'y retrouver facile Youky "chris" a écrit dans le message de news: 453b78a0$0$9811$
Y a Ka demander.. '================== >> Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== >> Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
Fin de la galère.
Heureusement qu'il n'a pas fait beau.
Merci, Merci et encore Merci.
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eVUvygf9GHA.3280@TK2MSFTNGP02.phx.gbl...
MsgBox ColAna.Parent.Name & "!" & ColAna.Address
A mettre en bas de ta macro, tu vas t'y retrouver facile
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b78a0$0$9811$426a74cc@news.free.fr...
Y a Ka demander..
'================== >> Sub Prog()
Nm = Application.FindFile
If Nm <> True Then
Annule = True
Exit Sub
End If
Nm = Application.ActiveWorkbook.Name
Ff = ActiveSheet.Name
Windows(Nm).Activate
On Error Resume Next
Set ColAna = Application.InputBox(Title:="Choix des données", _
prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _
& Chr(10) & "qui contient les données à analyser", Type:=8)
Ff = ActiveSheet.Name
End Sub
'===================== >> Si je choisi la Xeme feuille du classeur Nm,
ColAna ne rend que le Range de la Premiere
et c'est tout le probleme..
Merci d'avance.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
Os1LMqd9GHA.3264@TK2MSFTNGP04.phx.gbl...
Je ne peux allez plus loin sans voir un bout de ton code.
Youky
"chris" <cchris.col@free.fr> a écrit dans le message de news:
453b6039$0$8602$426a74cc@news.free.fr...
Merci à Youky pour le coup de main
Mais en fait, en utilisant:
Set ChoixDesDonnées=Application.InputBox(etc..
la boite de dialogue qui s'ouvre indique bien :
Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15
et le choix de la feuille passe à la trappe
C'est le nom de la premiere feuille qui s'ouvre à
l'ouverture du second classeur qui est mémorisé
La question est:
Comment recuperer Feuil5!$C$15
se serait si simple..
CC.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
uKecC4b9GHA.1172@TK2MSFTNGP03.phx.gbl...
Re,suite
Les 23 classeurs doivent être enregistré dans le même répertoire...
sinon faut indiquer le chemin C:.......
Youky
Fin de la galère. Heureusement qu'il n'a pas fait beau.
Merci, Merci et encore Merci. CC.
"Youky" a écrit dans le message de news:
MsgBox ColAna.Parent.Name & "!" & ColAna.Address A mettre en bas de ta macro, tu vas t'y retrouver facile Youky "chris" a écrit dans le message de news: 453b78a0$0$9811$
Y a Ka demander.. '================== >> Sub Prog() Nm = Application.FindFile If Nm <> True Then Annule = True Exit Sub End If Nm = Application.ActiveWorkbook.Name Ff = ActiveSheet.Name Windows(Nm).Activate On Error Resume Next Set ColAna = Application.InputBox(Title:="Choix des données", _ prompt:=("Cliquez sur une DONNEE VALIDE dans la colonne ") _ & Chr(10) & "qui contient les données à analyser", Type:=8) Ff = ActiveSheet.Name End Sub '===================== >> Si je choisi la Xeme feuille du classeur Nm, ColAna ne rend que le Range de la Premiere et c'est tout le probleme.. Merci d'avance.
"Youky" a écrit dans le message de news:
Je ne peux allez plus loin sans voir un bout de ton code. Youky
"chris" a écrit dans le message de news: 453b6039$0$8602$
Merci à Youky pour le coup de main
Mais en fait, en utilisant: Set ChoixDesDonnées=Application.InputBox(etc.. la boite de dialogue qui s'ouvre indique bien : Feuil5!$C$15 par exemple
Mais ChoixDesDonnées ne 'garde' que $C$15 et le choix de la feuille passe à la trappe C'est le nom de la premiere feuille qui s'ouvre à l'ouverture du second classeur qui est mémorisé
La question est: Comment recuperer Feuil5!$C$15 se serait si simple..
CC.
"Youky" a écrit dans le message de news:
Re,suite Les 23 classeurs doivent être enregistré dans le même répertoire... sinon faut indiquer le chemin C:....... Youky
