Discussion :

[Yullll]

Bonjour, je voudrais ouvrir un fichier word qui contiendra toujours le caractère SDZ . Voici ou j'en suis dans le code, mais sans succés. Je veux également que si il ne trouve rien il aille direct a un endroit, d'ou l'utilisation du If DIR(...) ="" then goto A.
Merci de votre aide !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Import()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Tableau As Word.Table
Dim i As Integer, j As Integer
 
'Création instance Word
Set WordApp = New Word.Application
'Masque Word pendant l'opération
WordApp.Visible = True
 
 
'Ouvre le document Word et copie les données SDZ
mot1 = SDZ
If Dir("D:\Users\S580385\Desktop\Sources PDP\") & mot1 & "" = "" Then GoTo A
Fich = Dir("D:\Users\S580385\Desktop\Sources PDP\") & mot1 & ""
Set WordDoc = WordApp.Documents.Open(Fich)
A:
Sheets("Inidicateurs").Range("I1").Value = "perdu"
End sub

[Jean-Philippe André]

Salut,

c'est quoi ce caractere SDZ ? Il correspond a un caractere ASCII ?

Si tu cherches un libelle de fichier approchant, il te faut utiliser le caractere *.

[Yullll]

Bonjour merci de ta réponse rapide, SDZ est un caractère présent dans la dénomination du fichier a savoir il peut s'appeler :
- Faits SDZ S34
- SDZ S34 etc
Meme avec le caratère * que j'avais mit au début j'obtiens une erreur : "Word n'a pas pu lire ce document. Ilest peut etre corrompu."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Import()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Tableau As Word.Table
Dim i As Integer, j As Integer
 
'Création instance Word
Set WordApp = New Word.Application
'Masque Word pendant l'opération
WordApp.Visible = True
 
 
'Ouvre le document Word et copie les données SDZ
mot1 = SDZ
If Dir("D:\Users\S580385\Desktop\Sources PDP\") & mot1 & "*" = "" Then GoTo A
Fich = Dir("D:\Users\S580385\Desktop\Sources PDP\") & mot1 & "*"
Set WordDoc = WordApp.Documents.Open(Fich)
A:
Sheets("Inidicateurs").Range("I1").Value = "perdu"
End sub

[Jean-Philippe André]

Ok, alors SDZ est en fait "SDZ", un chaine de caracteres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
mot1 = "SDZ"
If Dir("D:\Users\S580385\Desktop\Sources PDP\*") & mot1 & "*" = "" Then GoTo A
Fich = Dir("D:\Users\S580385\Desktop\Sources PDP\*") & mot1 & "*"

Attention toutefois, la fonction Dir retournera le nom du fichier, il faudra donc le concatener a "D:\Users\S580385\Desktop\Sources PDP\" pour avoir son emplacement correct lors de l'ouverture.

[Yullll]

Ok donc je peux pas me servir de Fich pour l'ouverture de celui ci ?
Comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WordDoc = WordApp.Documents.Open(Fich)

[Jean-Philippe André]

Non, sauf si ton fichier Excel se trouve dans ce dossier, ce qui ne devrait pas etre le cas (tu n'as que des fichiers word dans ce dossier, n'est-ce pas ?

Le code pour l'ouverture sera donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WordDoc = WordApp.Documents.Open("D:\Users\S580385\Desktop\Sources PDP\" & Fich)

[Yullll]

Merci beaucoup mon erreur venait de la je pensais que la fonction DIR me retourner un chemin .... Merci beaucoup !

Par contre il ne comprend pas que le fichier que je cherche doit contenir SDZ, il prend le premier et il me l'ouvre...
Le problème peut venir d'où ?

[Marc-L]

Bonjour,

le VBA ne se trompant pas, n'exécutant que les ordres donnés,
le problème étant situé donc entre la chaise et le clavier, juste un problème de conception …

Voir d'abord dans le forum Word comment fonctionne la recherche, ici étant un forum dédié à Excel !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Yullll]

Merci des conseils mais ca marche très bien de cette façon je met la soltion si ca peut intéréssé quelqu'un !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Dir("D:\Users\xxx\Desktop\Sources PDP\*SDZ*") = "" Then GoTo B
Fich = Dir("D:\Users\xxx\Desktop\Sources PDP\*SDZ*")
Set WordDoc = WordApp.Documents.Open("D:\Users\xxx\Desktop\Sources PDP\" & Fich)

[Marc-L]

Autant pour moi, ce n'est qu'une simple ouverture de fichier …

En plus propre (comme dans l'aide VBA interne !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
DOSSIER = "D:\Users\xxx\Desktop\Sources PDP\"
   FICH = Dir(DOSSIER & "*SDZ*")
 
If FICH > "" Then
    Set WordDoc = WordApp.Documents.Open(DOSSIER & FICH)
Else
'   code ici quand il n'y a pas de correspondance
End If