Ouverture feuille word

BBRT14 · 27 Septembre 2010

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

kiki29 · 27 Septembre 2010

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."

kiki29 · 28 Septembre 2010

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

BBRT14 · 28 Septembre 2010

Re : Ouverture feuille word

Bonjour kiki29,
Deux jours que je tourne en rond.Merci de ton aide, cela fonctionne il ne me reste plus qu'a l'adapter sur mes autre boutons pour l'ouverture d'autre fichiers.
Bonne journée
et encore merci

kiki29 · 28 Septembre 2010

Re : Ouverture feuille word

Re,j'ai légérement modifié le code ci-dessus avec un DoEvents pour effacer les artefacts qui peuvent exister sous 2007 quand on utilise la boite de sélection de fichier

BBRT14 · 28 Septembre 2010

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

job75 · 28 Septembre 2010

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+

BBRT14 · 28 Septembre 2010

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

kiki29 · 29 Septembre 2010

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

BBRT14 · 29 Septembre 2010

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

kiki29 · 29 Septembre 2010

Re : Ouverture feuille word

Re, un drame du copier/coller , je te laisse trouver cette "erreur" évidente
un conseil télécharge SmartIndenter sur Office Automation Ltd. - Smart Indenter
sinon à demain

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

Staple1600 · 29 Septembre 2010

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 ?

BBRT14 · 29 Septembre 2010

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

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

kiki29 · 29 Septembre 2010

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

BBRT14 · 29 Septembre 2010

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

Ouverture feuille word

BBRT14

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

job75

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

BBRT14

XLDnaute Nouveau

Pièces jointes

Discussions similaires

Ouverture feuille word

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency