Ouverture feuille word

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
BBRT14

BBRT14

XLDnaute Nouveau
Bonjour Toutes et Tous,
Avant de commencer, bravo pour ce site formidable et riche de partage.
Je suis novice en vba et votre FoFo mais d'un grand recours.
voici mon problème :
Dans mon projet j'ai un bouton de commande qui m'ouvre un dossier archive. Celui ci contient mes docs Word. quand je clic sur le bouton tout ce passe bien et mes docs word sont bien présent mais quand je clic sur un des documents rien ne s'affiche. j'ai bien chercher sur le FoFo et je n'ai pas trouvé de solution.
Merci de votre aide et bonne soirée.

PS : je ne peu joindre le fichier car il fait 23 Mo
je vous met la ligne de commande qui me bloque


Private Sub CommandButton34_Click()

Dim Ouvrirfichiers As Variant
'Chemin par défault
ChDir ("C:\Users\mon14\Desktop\S\Archives")
Ouvrirfichiers = Application.GetOpenFilename("Classeur Microsoft Office Word (.docx), *.Docx")

End Sub
 
Trier par date Trier par votes
Re : Ouverture feuille word

Salut,l'aide en ligne d'Excel sur GetOpenFilename te donne un exemple
"Cette méthode affiche la boîte de dialogue standard Ouvrir et affiche un nom de fichier entré par l'utilisateur sans réellement ouvrir un fichier."
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Re, au bas de cette page tu as qqs liens qui devraient t'aider
sinon qqch comme
Code: 
Option Explicit

Sub Tst()
Dim oWordApp As Object, Fichier As Variant

    ChDir ThisWorkbook.Path

    Fichier = Application.GetOpenFilename("Doc Files (*.doc), *.doc")

    If Fichier <> False Then
        DoEvents
        Set oWordApp = CreateObject("word.application")
        oWordApp.Visible = True
        oWordApp.documents.Open Fichier
        Set oWordApp = Nothing
    End If

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

re kiki29,
j'ai complété mon code et je me retrouve avec une [ERREUR DE COMPILATION projet ou bibliothèque introuvable]
la question que je me pose 😱 pourquoi cela fonctionne bien pour l'ouverture d'un fichier Word et non avec l'ouverture d'un fichier Excel.
Voici le Code :
L'erreur est sur Dim [xlapp As objet]

Merci pour l'aide et bonne soirée

Private Sub CommandButton34_Click()
'ouvre le dossier Archives
Dim oWordApp As Object, Fichier As Variant
ChDir ("C:\Users\mon14\Desktop\S\Archives")
Fichier = application.GetOpenFilename("Doc Files (.docx), *.docx")

If Fichier <> False Then
DoEvents
Set oWordApp = CreateObject("word.application")
oWordApp.Visible = True
oWordApp.documents.Open Fichier
Set oWordApp = Nothing

Dim xlapp As objet, Fichier As Variant
ChDir ("C:\Users\mon14\Desktop\S\Archives")
Fichier = application.GetOpenFilename("Doc files (.xls), *.xls")
xlapp.Workbooks.Open

If Fichier <> False Then
DoEvents
Set xlapp = CreateObject("Excel.application")
xlapp.Visible = True
xlapp.documents.Open Fichier
Set xlapp = Nothing

End If
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Bonsoir,

Vu assez rapidement le post précédent.

D'abord pour Dim xlapp As objet il manque un c pour faire Object.

Ensuite xlapp.Workbooks.Open ne fonctionnera pas puisque xlapp n'est pas défini (ne pas confondre déclaration et définition).

Enfin xlapp.documents.Open Fichier ne peut s'appliquer qu'à Word à cause de Documents.

On mélange un peu tout et n'importe quoi dans ce code 🙄

Edit : je découvre encore Fichier As Variant écrit 2 fois.

Une variable ne doit être déclarée qu'une seule fois...

Mais quand on est débutant tout doit être pardonné 🙂

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Bonsoir Job75,
Oui novice et j'y prends goût, je viens d'acheter des livres en vba 2003/2007/2010 et Ohhh malheur le langage évolue en fonction des années.
En attendant merci pour l'info sur Fichier As Variant de trop
Je vais continuer ma recherche pour ouvrir ce classeur excel
merci bonne soirée
 
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Re, dans le même style pour un fichier Excel qui s'ouvrira dans une autre instance d'Excel
Code: 
Option Explicit

Sub Tst()
Dim oXlApp As Object, Fichier As Variant

    ChDir ThisWorkbook.Path

    Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")

    If Fichier <> False Then
        DoEvents
        Set oXlApp = CreateObject("Excel.Application")
        oXlApp.Visible = True
        oXlApp.Workbooks.Open Filename:=Fichier
        Set oXlApp = Nothing
    End If

End Sub

Car sinon il y a plus simple
Code: 
Option Explicit

Sub Tst()
Dim Fichier As Variant

    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    If Fichier <> False Then Workbooks.Open Filename:=Fichier

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

re kiki29
voila mon code, mais il y a encore un bug. entre 2003 et 2007
merci bonne nuit

Private Sub CommandButton34_Click()
'ouvre le dossier Archives
Dim oWordApp As Object, Fichier As Variant
ChDir ("C:\Users\mon14\Desktop\S\Archives")
Fichier = application.GetOpenFilename("Doc Files (.docx), *.docx")

If Fichier <> False Then
DoEvents
Set oWordApp = CreateObject("word.application")
oWordApp.Visible = True
oWordApp.Documents.Open Fichier
Set oWordApp = Nothing


Dim xlsapp As Object
ChDir ("C:\Users\mon14\Desktop\S\Archives")
Fichier = application.GetOpenFilename("Excel files (.xls), *.xls")


If Fichier <> False Then
DoEvents
Set xlsapp = CreateObject("Excel.application")
xlsapp.Visible = True
xlsapp.Workbooks.Open Fichier
Set xlsapp = Nothing

End If

End If
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Bonsoir à tous

BBRT14
Personne n'aime voir des bas Dim plissés sur les jolies cuisses de ces dames *
C'est pour cela que celles-ci tirent les Dim bien haut, tout en haut.

Eh ben en VBA, c'est pareil (sauf pour ce qui de la beauté des cuisses)

Oui, en VBA, on tire bien haut ses Dim
(tout du moins c'est l'usage)

VB: 
Sub Zut_Mes_Bas_Ont_Encore_Filés()
Dim
Dim
Dim

' et ensuite le début du code

End Sub

PS1: * ces messieurs aussi peuvent mettre des bas, mais c'est moins joli non ?

PS2: BBRT14: le 14, c'est pour le Calvados ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Bonjour,

@ kiki29

Et pourquoi vouloir à tout prix encastrer les 2 codes, va au plus simple, un bouton pour ouvrir un doc word et un autre pour un classeur excel
Cliquez pour agrandir...


Mon dossier Archives regroupe du Word, Excel, Et PDF et je veux les ouvrir par simple Clic. Pour accéder au Dossier Archives j' utilise un CommandButton [Archives] placé dans un USF. Mon projet a pour fonctions de gérer un carnet d'adresse pour une association tout en gérant les fichiers Excel Word et PDF de celle ci.
Pour le moment le code fonctionne mais il perd un peu les pédales quand je lui demande de m'ouvrir plusieurs fichiers. il me reconverti un Excel en Word ou j' ai un word vide, il n'a pas l'air d'apprécier les ouvertures simultanées

peut-être du au copié-Coller, donc je vais ré écrire le code

Je ne peux joindre le projet car il fait 50Mo

En ce qui concerne Smart Indenter v3.5 quelle version je prends sachant que je suis sous 2007

# Office 2000/2002/2003 (10 Février 2005, 260k, 62 435 télécharg ements)
# Visual Basic 6 (10 February 2005, 260k, 39518 downloads)
# Excel 97 (10 February 2005, 381k, 21541 downloads)
# Excel 5 and 95 (26 Jan 1998, 77k, 10606 downloads)

@ Staple1600
Oui le 14 => Calvados => VIRE
Associer l'humour au VBA je prends 😀
Merci de l'aide
Bonne journée @ Toutes & Tous
 
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Salut, dans ce cas la meilleure façon de faire est
Code: 
Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Tst()
Dim Fichier As Variant

    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Fichier (*.*), **")
    If Fichier <> False Then
        ShellExecute 0, vbNullString, Fichier, vbNullString, vbNullString, 0
    End If
End Sub

SmartIndenter pour Office 2000/2002/2003 : fonctionne parfaitement sous 2007
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture feuille word

Re, bon je nage grave 😡
pour vérification j'ai crée 2 commandButton, 1 pour les dossiers word et l'autre pour les dossiers Excel.
les deux codes séparé fonctionnent très bien.


Voir fichier joint avec les 2 codes regroupé

merci
 

Pièces jointes

  • p.zip
    p.zip
    36.7 KB · Affichages: 41
  • p.zip
    p.zip
    36.7 KB · Affichages: 37
  • p.zip
    p.zip
    36.7 KB · Affichages: 39
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2016 utiliser publipostage word depuis excel
Réponses
1
Affichages
1 K
scoubidou35
S
patricktoulon
  • Question Question
XL 2013 la librairie shell and automation de Microsoft a t elle des limites
Réponses
5
Affichages
866
patricktoulon
patricktoulon
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
V
  • Question Question
XL 2010 VBA Macro : importer les 12 caractères suivant toutes les occurrences d'un mot sur une trame word dans excel
Réponses
9
Affichages
1 K
sousou
sousou
D
  • Question Question
Microsoft 365 Réduction et activation excel et Word
Réponses
1
Affichages
906
Phil69970
Phil69970
A
  • Question Question
XL 2016 Depuis Excel enregistrement d'un document word sous format pdf
Réponses
0
Affichages
976
alexane
A
A
  • Question Question
XL 2010 macro vba excel publipostage
Réponses
0
Affichages
2 K
AUDREYPHIL
A
F
  • Question Question
XL 2010 Get OpenFileName ( Specifier un chemin)
Réponses
1
Affichages
704
Dranreb
Dranreb
S
  • Question Question
XL 2016 macro copier coller tableau excel => word
Réponses
3
Affichages
2 K
Adapiano25
A
A
  • Question Question
Microsoft 365 Détecter un click de souris en dehors de la zone excel ..via une API
Réponses
2
Affichages
2 K
Nairolf
N
O
  • Question Question
XL 2016 Ouverture d'une feuille d'un fichier avec un bouton
Réponses
2
Affichages
862
Oriaux
O
B
  • Question Question
Mise à jour des liens Hypertexte de documents Word transformés en PDF
Réponses
1
Affichages
1 K
Hasco
Hasco
pompaero
  • Question Question
XL 2016 Copie onglet vers autre classeur
2
Réponses
27
Affichages
3 K
pompaero
pompaero
M
  • Question Question
Copie de fichier Word avec nom déterminé par cellules Excel
Réponses
2
Affichages
1 K
Mariano
M
nrdz83
  • Question Question
[RESOLU]Ouvrir un document word via excel
Réponses
5
Affichages
1 K
nrdz83
nrdz83
T
  • Question Question
tableau excel sur word
2
Réponses
19
Affichages
2 K
Yaloo
Y
B
  • Question Question
[Word 2013] Convertir de nombreux fichiers (pdf en docx) ou (htm en docx) recursif
Réponses
0
Affichages
2 K
beoper
B
J
  • Question Question
Problèmes impression en pdf pilotée par Macro Excel d'un doc Word 2010 avec figures
Réponses
3
Affichages
1 K
Jodko
J
L
  • Question Question
Piloter un document word avec un fichier Excel
Réponses
2
Affichages
2 K
lobita3
L
ARNAUD ZIRIPE
  • Question Question
Automatiser word publipostage
Réponses
6
Affichages
3 K
Guicheux
G
Retour