Nom d'un classeur = inputbox (une variable )

Version imprimable

15/07/2019, 15h58
Gioge

Nom d'un classeur = inputbox (une variable )
Bonjour,

Je demande à l'utilisateur d'entrer un nom, et j'utilise ce nom pour enregistrer un nouveau classeur.
J'appelle ce nouveau classeur ensuite dans mon code pour de nombreuses opérations, mais apparemment il n'est pas reconnu. (ERREUR, l'indice n'appartient pas à la selection en soulignant la ligne suivante )

Code:

Workbooks(nomfichier)

Pourtant au sein de la procédure qui crée ce classeur, ce code fonctionne, voici un exemple fonctionnel qui reprend ce code :
Code:

1 2 3 Workbooks(nomfichier).Activate Sheets.Add.Name = "synthese" Workbooks("classeur1").Worksheets("feuille1").Copy After:=Workbooks(nomfichier).Sheets(Workbooks(nomfichier).Sheets.Count)
NOTES :
Premièrement nomfichier était declarer avec dim, au sein de la procédure de creation de classeur, je l'ai donc declarer en public dans un autre module pour pouvoir l'utiliser partout.
Malheureusement ça ne fonctionne pas.

Merci de m'aider
15/07/2019, 19h21
marot_r
Bonjour.

Cela peut venir de différent endroits.
1. L'utilisateur a tapé en plus du nom le chemin d'accès.
  Un truc du genre : X:\UnChemin\UnFichier.xlsx.
2. Le fichier n'est pas ouvert par cette instance de Excel à ce moment.
  Pour avoir la liste des fichiers ouverts dans une instance donnée, tu peux mettre le code suivant avant ton appel :
  Code:
  
  1 2 3 4 5 dim wb as workbook for each wb inn application.workbooks debug.print wb.name next wb
3. Le fichier est bien ouvert mais Excel pense qu'il a un autre nom.
  Il m'est arrivé que Excel ne garde que le nom sans l'extension.
  Ex : MonFichier au lieu de MonFichier.xlsx.
  Voir le point 2 pour obtenir la liste des noms.
A+
15/07/2019, 20h06
Thumb down
Bonsoir,
Ce que tu dis est incompréhensible, de plus le code est sorti de son contexte on ne voit pas la création du classeur la récupération du input.

Le module c'est un module standard que tu as créé ?
Banni de ton vocabulaires les sélect , sélection et autres activate mais utilises des variables objet comme WB!
Code:

1 2 3 4 5 6 dim fichier as string, WB as workbook fichier="c:\MyRep\MyFicher.xlsx" Set WB=Worbooks.add WB.saveas fichier Set Sht=WB.sheets.add Sht.name="toto"
16/07/2019, 08h57
Gioge

En analysant, je remarque que le variable nomfichier est vide au moment où j'appelle ce classeur excel de nom nomfichier.

Pourtant le classeur s'est bien crée, et il porte bien le nom nomfichier.

J'ai aussi crée une variable nomfichier2 = nomfichier sans l'extension, le problème ne change pas vu que ces variables sont toujours vide quand j'appelle workbooks(nomfichier)

Voici ma procèdure qui crée le classeur ( cette procédure est fonctionnelle, elle crée le nouveau classeur et l'enregistre bien sous le bon nom, sous le bon dossier, et avec les bon onglets )

Code:

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
Sub Nom_fichier()
 
    Dim extension As String
    Dim Chemin As String
 
    Workbooks("CLASSEUR1").Activate
    ' Définir un nom de fichier
    Worksheets("Calcul").Select
    Worksheets("Calcul").Range("N2").Value = InputBox("Quel est le nom donné à ton fichier ?", "FICHIER", "")
 
 
    ' Enregistrer un nouveau fichier avec ses macros au format .xls
    extension = ".xls"
    Chemin = "C:\MesGammes\"
    nomfichier = Worksheets("Calcul").Range("N2").Text & extension
    nomfichier2 = Worksheets("Calcul").Range("N2").Text
    Workbooks.Add
    With ActiveWorkbook
    .SaveAs Filename:=Chemin & nomfichier, CreateBackup:=False
 
    End With
    Workbooks(nomfichier).Activate
Sheets.Add.Name = "synthese"
Workbooks("CLASSEUR1").Worksheets("Critères").Copy After:=Workbooks(nomfichier).Sheets(Workbooks(nomfichier).Sheets.Count)
 
 
End Sub

la où ça ne fonctionne plus c'est lorsque j'appelle workbooks(nomfichier) dans d'autre modules
Exemple :

Code:

1
2
3
4
5
6
7
8
9
Sub copygamme()
    wksclc.Range("a1:d29").Select
    Selection.Copy
End Sub
 
Sub collEt()
        Workbooks(nomfichier).Worksheets("synthese").Range("a1:d29").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

la procédure collEt renvoie une erreur, l'indice n'appartient pas à la selection

16/07/2019, 09h09
Thumb down

1 pièce(s) jointe(s)

Citation:

Envoyé par Gioge

En analysant, je remarque que le variable nomfichier est vide au moment où j'appelle ce classeur excel de nom nomfichier.

Pourtant le classeur s'est bien crée, et il porte bien le nom nomfichier.

J'ai aussi crée une variable nomfichier2 = nomfichier sans l'extension, le problème ne change pas vu que ces variables sont toujours vide quand j'appelle workbooks(nomfichier)

ou as tu créé cette variable?

Pièce jointe 491285

au regard de ta réponse je me demande si tu as lu nos postes!
16/07/2019, 09h23
Gioge

Tu peux eviter d'être agressif s'il te plait

Au debut la variable était crée dans sub nom fichier : dim nomfichier as string
Mais j'ai cru que cette variable serrait disponible que localement, donc je l'ai declaré maintenant dans un autre module en public ! ( public nomfichier as string )

1 pièce(s) jointe(s)

je ne suis pas agressif, mais si c'est ce que tu ressent désolé!

Code:

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
28
29
30
Sub Main()
Dim wb As Workbook
Set wb = Nom_fichier
copygamme Workbooks("CLASSEUR1").Worksheets("Calcul")
collEt wb.Sheets("synthese")
wb.Close False
End Sub
Function Nom_fichier() As Workbook
    Dim extension As String, Chemin As String
    extension = ".xls"
    Chemin = "C:\MyRep\"
    With Workbooks("CLASSEUR1")
        With .Worksheets("Calcul")
            .Range("N2").Value = InputBox("Quel est le nom donné à ton fichier ?", "FICHIER", "")
            Set Nom_fichier = Workbooks.Add
            Nom_fichier.SaveAs Chemin & .Range("N2").Text, FileFormat:=xlExcel8
            Nom_fichier.Sheets.Add.Name = "synthese"
        End With
        .Worksheets("Critères").Copy After:=Nom_fichier.Sheets(Nom_fichier.Sheets.Count)
    End With
    Nom_fichier.Save
End Function
Sub copygamme(ByRef wksclc As Worksheet)
    wksclc.Range("a1:d29").Copy
End Sub
 
Sub collEt(ByRef synthese As Worksheet)
        synthese.Range("a1:d29").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Pièce jointe 491309

16/07/2019, 11h49
Gioge
Merci de la réponse,

Petite question, car pas encore tout fait fonctionnelle, comment je fais pour appeler le nouveau classeur crée (wb) dans d'autres modules, car comme tu l'as mis dans sub main, c'est local.
Et je ne peux pas reecrire
Code:

1 2 Dim wb As Workbook Set wb = Nom_fichier
car ça me relance la fonction avec l'inputbox...
Merci

Code:

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
28
29
30
Public wb As Workbook
Sub Main()
Set wb = Nom_fichier
copygamme Workbooks("CLASSEUR1").Worksheets("Calcul")
collEt wb.Sheets("synthese")
wb.Close False
End Sub
Function Nom_fichier() As Workbook
    Dim extension As String, Chemin As String
    extension = ".xls"
    Chemin = "C:\MyRep\"
    With Workbooks("CLASSEUR1")
        With .Worksheets("Calcul")
            .Range("N2").Value = InputBox("Quel est le nom donné à ton fichier ?", "FICHIER", "")
            Set Nom_fichier = Workbooks.Add
            Nom_fichier.SaveAs Chemin & .Range("N2").Text, FileFormat:=xlExcel8
            Nom_fichier.Sheets.Add.Name = "synthese"
        End With
        .Worksheets("Critères").Copy After:=Nom_fichier.Sheets(Nom_fichier.Sheets.Count)
    End With
    Nom_fichier.Save
End Function
Sub copygamme(ByRef wksclc As Worksheet)
    wksclc.Range("a1:d29").Copy
End Sub
 
Sub collEt(ByRef synthese As Worksheet)
        synthese.Range("a1:d29").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Tu as juste changer wb en public ? si oui, j'ai pensé et essayer la même chose, mais j'ai une erreur d'execution/ erreur automation et ça me souligne la première ligne de ma procédure dans un autre module :
Code:

1 2 Sub moindetour2() If wb.Worksheets("synthese").Range("d23").Value > wb.Worksheets("Critères").Range("e4") And wb.Worksheets("synthese").Range("d26").Value > wb.Worksheets("Critères").Range("e8") Then
Merci

16/07/2019, 13h37
Gioge

C'est bon normalement, j'ai enlevé les ( dont je sais pas ils servent à quoi )

Code:

wb.Close False
16/07/2019, 13h56
Thumb down

1 pièce(s) jointe(s)

Pièce jointe 491378