Discussion :

[Mocmoc38]

Bonsoir à tous et à toutes

Tite question:

Je débute complet en vba et je cale sur un truc !!!

J'ouvre un fichier en passant par une saisie InputBox. Comment s’appelle ensuite ce fichier ? pour lui donner une instruction de type close (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False
Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code, mais après un copy paste je veux fermer le premier mais je ne sais pas comment il est "nommé"



Un extrait du code en question:

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
22
23
24
25
26
27
    Dim Datee As String, Repert As String
 
 
    Repert = "C:\Users\xxxxx\Desktop\xxx-xxx\Maj MOP xp\Macro 3\IDO\Donnees plan IDO "
 
 
    Datee = Application.InputBox(prompt:="Entrez la date", Type:=2)
        If Datee > "" Then
 
 
    If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then
 
 
    Workbooks.Open Filename:=Repert & Datee & ".xls", UpdateLinks:=0, ReadOnly:=0, IgnoreReadOnlyRecommended:=True
 
 
    Else
 
 
    MsgBox "Fichier " & Repert & Datee & ".xls" & " non trouvé"
 
 
    End If
 
    End If
 
(Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False   ' --> c'est la que ca plante

Merci de vos lumières lumineuses lol

[Philippe Tulliez]

Bonjour,
Quelle est la question ?

[Mocmoc38]

Comment s’appelle ensuite ce fichier ? pour lui donner une instruction de type close (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False
Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code, mais après un copy paste je veux fermer le premier mais je ne sais pas comment il est "nommé"

[Philippe Tulliez]

Bonjour,
Lorsque tu ouvres un fichier, en principe tu connais son nom. Non ?
Sinon comment aurais-tu pu l'ouvrir ?

Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code

Petite remarque, ton second fichier ce n'est certainement pas this workbook mais ThisWorkbook

[Mocmoc38]

Bonjour,

Oui pour le second fichier ThisWorkbook. Juste mal saisi de ma part mais en effet, restons précis.

Ce que je cherche c'est la manière de le nommer en utilisant mes variables:

Code :

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

Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False

--> vu que je l'ouvre avec une InputBox, je dois ensuite le fermer mais le code plante surement a cause la parti en gras...

[Philippe Tulliez]

Bonjour,
Je doute que tu aies réussis à ouvrir le fichier car à mon avis entre Repert et Datee il manque le slash inversé "\"

J'ai des doutes également avec le résultat renvoyé par

Code :

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

If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then

n'es-tu pas sensé rechercher un fichier ?