Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel workbooks.open

workbooks.open

7 réponses
Avatar
Sylvie LAURENT
Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à un
bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier azertyuiop.xls
et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ?? bien
sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel bonheur !

Sylvie
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
FxM
Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM



Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à un
bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier azertyuiop.xls
et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ?? bien
sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel bonheur !

Sylvie




Avatar
Sylvie LAURENT
Bonsoir Fxm !!

Merci c'est ok, un peut de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au disque C par
exemple ?? pour gagner en rapidité) la fonction False ds propriete c'est
pour accepter les macro du fichier que l'on vient d'ouvrir ??

Merci déjà pour ton aide rapide, que penses tu quelle phrase ajouter si je
connaissais le chemin en partie ??

Bien à toi, merci d'avance

Sylvie



"FxM" a écrit dans le message de
news:
Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM



Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à
un


bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier
azertyuiop.xls


et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ??
bien


sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel
bonheur !



Sylvie






Avatar
FxM
Re-

Merci c'est ok, un peu de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au disque C par
exemple ?? pour gagner en rapidité)


Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:"


la fonction False ds propriete c'est pour accepter les macro du fichier que l'on vient d'ouvrir ??
C'est pour éviter que le focus reste sur le bouton et que cela ne fasse

allégrement planter certaines macros.
Si tu as accepté les macros de ton fichier [forcément puisque tu ouvres
l'autre par macro, ce qu'il est bête ce François :o) ], l'ouverture
devrait se passer sans problème et sans forcément un message. C'est en
tout cas ce que je viens de tester sur deux fichiers simples (XL2k)


Merci déjà pour ton aide rapide, que penses tu quelle phrase ajouter si je
connaissais le chemin en partie ??
Remplace

.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:le_chemin_que_je_connais"


Bien à toi, merci d'avance
Sylvie


Z'en prie et @+
FxM



"FxM" a écrit dans le message de
news:

Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM




Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à



un

bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier



azertyuiop.xls

et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ??



bien

sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel



bonheur !

Sylvie











Avatar
Sylvie LAURENT
Cher FxM,

Merci à nouveau car en plus du code tu m'aides à comprendre...

Je reviens bientôt et espère avoir l'occasion de partager d'autre
connaissance avec toi

Bien sincèrement

Merci encore de ta précieuse aide

Sylvie

"FxM" a écrit dans le message de
news:
Re-

Merci c'est ok, un peu de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au disque C
par


exemple ?? pour gagner en rapidité)


Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:"


la fonction False ds propriete c'est pour accepter les macro du fichier
que l'on vient d'ouvrir ??


C'est pour éviter que le focus reste sur le bouton et que cela ne fasse
allégrement planter certaines macros.
Si tu as accepté les macros de ton fichier [forcément puisque tu ouvres
l'autre par macro, ce qu'il est bête ce François :o) ], l'ouverture
devrait se passer sans problème et sans forcément un message. C'est en
tout cas ce que je viens de tester sur deux fichiers simples (XL2k)


Merci déjà pour ton aide rapide, que penses tu quelle phrase ajouter si
je


connaissais le chemin en partie ??
Remplace

.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:le_chemin_que_je_connais"


Bien à toi, merci d'avance
Sylvie


Z'en prie et @+
FxM



"FxM" a écrit dans le message de
news:

Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM




Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à



un

bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier



azertyuiop.xls

et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ??



bien

sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel



bonheur !

Sylvie













Avatar
sabatier
'tain, si le philippe R voit ça, il prend une syntaxe...oui, oui, je
sais, c'est synagogue de toutes façons
jps

Sylvie LAURENT a écrit:
Cher FxM,

Merci à nouveau car en plus du code tu m'aides à comprendre...

Je reviens bientôt et espère avoir l'occasion de partager d'autre
connaissance avec toi

Bien sincèrement

Merci encore de ta précieuse aide

Sylvie

"FxM" a écrit dans le message de
news:

Re-


Merci c'est ok, un peu de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au disque C


par


exemple ?? pour gagner en rapidité)


Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:"



la fonction False ds propriete c'est pour accepter les macro du fichier


que l'on vient d'ouvrir ??


C'est pour éviter que le focus reste sur le bouton et que cela ne fasse
allégrement planter certaines macros.
Si tu as accepté les macros de ton fichier [forcément puisque tu ouvres
l'autre par macro, ce qu'il est bête ce François :o) ], l'ouverture
devrait se passer sans problème et sans forcément un message. C'est en
tout cas ce que je viens de tester sur deux fichiers simples (XL2k)



Merci déjà pour ton aide rapide, que penses tu quelle phrase ajouter si


je


connaissais le chemin en partie ??


Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:le_chemin_que_je_connais"



Bien à toi, merci d'avance
Sylvie


Z'en prie et @+
FxM




"FxM" a écrit dans le message de
news:


Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM





Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui associé à


un



bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier


azertyuiop.xls



et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier peut
varier, comment trouver et ouvrir ce fichier sans déclarer le chemin ??


bien



sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel


bonheur !



Sylvie

















Avatar
FxM
Ben oui ! Philippe a souvent des merci et j'ai quelquefois une
quasi-déclaration. La rançon de la gloire en quelque sorte :o)

Chère Sylvie, tu passes quand tu veux.

@+
FxM


sabatier wrote:
'tain, si le philippe R voit ça, il prend une syntaxe...oui, oui, je
sais, c'est synagogue de toutes façons
jps

Sylvie LAURENT a écrit:

Cher FxM,

Merci à nouveau car en plus du code tu m'aides à comprendre...

Je reviens bientôt et espère avoir l'occasion de partager d'autre
connaissance avec toi

Bien sincèrement

Merci encore de ta précieuse aide

Sylvie

"FxM" a écrit dans le message de
news:

Re-


Merci c'est ok, un peu de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au
disque C



par


exemple ?? pour gagner en rapidité)



Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:"



la fonction False ds propriete c'est pour accepter les macro du fichier



que l'on vient d'ouvrir ??


C'est pour éviter que le focus reste sur le bouton et que cela ne fasse
allégrement planter certaines macros.
Si tu as accepté les macros de ton fichier [forcément puisque tu ouvres
l'autre par macro, ce qu'il est bête ce François :o) ], l'ouverture
devrait se passer sans problème et sans forcément un message. C'est en
tout cas ce que je viens de tester sur deux fichiers simples (XL2k)



Merci déjà pour ton aide rapide, que penses tu quelle phrase ajouter si



je


connaissais le chemin en partie ??



Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:le_chemin_que_je_connais"



Bien à toi, merci d'avance
Sylvie



Z'en prie et @+
FxM




"FxM" a écrit dans le message de
news:


Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM





Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui
associé à



un



bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier



azertyuiop.xls



et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier
peut
varier, comment trouver et ouvrir ce fichier sans déclarer le
chemin ??



bien



sur le nom du fichier à ouvrir sera toujours le même (azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel



bonheur !



Sylvie




















Avatar
sabatier
:-)))))))))))))
jps (qui met quand même sylvie en (vin de) garde)

FxM a écrit:
Ben oui ! Philippe a souvent des merci et j'ai quelquefois une
quasi-déclaration. La rançon de la gloire en quelque sorte :o)

Chère Sylvie, tu passes quand tu veux.

@+
FxM


sabatier wrote:

'tain, si le philippe R voit ça, il prend une syntaxe...oui, oui, je
sais, c'est synagogue de toutes façons
jps

Sylvie LAURENT a écrit:

Cher FxM,

Merci à nouveau car en plus du code tu m'aides à comprendre...

Je reviens bientôt et espère avoir l'occasion de partager d'autre
connaissance avec toi

Bien sincèrement

Merci encore de ta précieuse aide

Sylvie

"FxM" a écrit dans le message de
news:

Re-


Merci c'est ok, un peu de réglage,

Comment faire pour l'aider un peu dans la recherche (limiter au
disque C




par


exemple ?? pour gagner en rapidité)




Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:"



la fonction False ds propriete c'est pour accepter les macro du
fichier




que l'on vient d'ouvrir ??


C'est pour éviter que le focus reste sur le bouton et que cela ne fasse
allégrement planter certaines macros.
Si tu as accepté les macros de ton fichier [forcément puisque tu ouvres
l'autre par macro, ce qu'il est bête ce François :o) ], l'ouverture
devrait se passer sans problème et sans forcément un message. C'est en
tout cas ce que je viens de tester sur deux fichiers simples (XL2k)



Merci déjà pour ton aide rapide, que penses tu quelle phrase
ajouter si




je


connaissais le chemin en partie ??




Remplace
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
par
.LookIn = "C:le_chemin_que_je_connais"



Bien à toi, merci d'avance
Sylvie




Z'en prie et @+
FxM




"FxM" a écrit dans le message de
news:


Bonsoir Sylvie,

Non testé, les précautions d'usage sont à appliquer.
N'oublie pas de mettre la propriété "TakeFocus" du bouton à false.

Sub test()
Dim fil As String
fil = "azertyuiop.xls"
With Application.FileSearch
.Filename = fil
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Left(ThisWorkbook.Path, 1) & ":"
.SearchSubFolders = True
.Execute
With .FoundFiles
Select Case .Count
Case 0
MsgBox fil & " non trouvé"
Case Is > 1
MsgBox "Plusieurs fichiers trouvés !"
Case 1
Workbooks.Open .Item(1)
End Select
End With
End With
End Sub

@+
FxM





Cher Tous,

Je souhaite vous demander comment écrire une petite macro qui
associé à




un



bouton présent ma feuille serait:
"Quand je clique sur le bouton, chercher et ouvrir le fichier




azertyuiop.xls



et activer les macros"

Je ne sais pas comment faire, car le chemin d'accès de ce fichier
peut
varier, comment trouver et ouvrir ce fichier sans déclarer le
chemin ??




bien



sur le nom du fichier à ouvrir sera toujours le même
(azertyuiop.xls)

Je vous remercie vivement

Bien sincèrement à vous, et merci à votre immense talent !!!! Quel




bonheur !



Sylvie