Discussion :

[s.fiuza]

Bonjour,

Débutant en VBA, j'aurai besoin de votre aide pour ce qui suit.

J'ai créer un code pour créer un classeur excel automatiquement en cliquant sur une ligne d'un autre classeur.
Sur ce nouveau classeur créé, il est également "enregistrer sous" automatiquement en fonction du nom qu'il y avait sur la ligne sélectionnée dans le premier classeur.

En résumé, chaque nouveau classeur a des noms différents.

Ce que je voudrais faire dans un autre classeur, c'est sélectionner le classeur en fonction de son nom.
Je m'explique :
- Sur une cellule j'indique un nom, par exemple : CHANTIER N1
- Le classeur va donc s’appeler : CHANTIER N1.xlsm
- Dans une macro, j'aimerai ouvrir ce classeur CHANTIER N1.xlsm mais si je change de nom (exemple : CHANTIER N2) j'aimerai qu'il me l'ouvre aussi.

Je pense qu'il faut déclarer des variables ou quelque chose.
J'ai essayé en faisant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim nomfeuille
           nomfeuille = ActiveWorkbook.Name
  
Windows("nomfeuille").Activate
    Sheets("CALCULS").Select
    Range("f8").Copy
    Windows("BASE_DE_DONNEES_ind.1.xlsm").Activate
    Sheets("FOURNISSEUR").Select
    Cells(numcellule, 10).PasteSpecial Paste:=xlValues

Ca bloque au niveau de "Windows("nomfeuille").Activate".
Ca marque une erreur '9'.

Je vous remercie d'avance.

[unparia]

Bonjour
Lorsque l'on attribue une valeur de type string à une variable, on ne se réfère pas à sa valeur en mettant entre guillemets le nom de cette variable (c'est là le vraiment B.A.BA ...)
Ainsi :

Code :

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

1
2
nomfeuille = ActiveWorkbook.Name
Windows("nomfeuille")

n'a absolument aucun sens et chercherait une fenêtre dont le nom serait ... nomfeuille et non celui de la propriété Name du classeur.
Bon ... je vais faire ma sieste ...

[riaolle]

Si tu écris

Code :

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

Windows("nomfeuille")

Excel cherche un classeur dont le nom est nomFeuille

Si le nom de la feuille est en A1 par exemple, tu dois utiliser la syntaxe suivante:

Code :

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

1
2
nomfeuille = Range("A1").Value
Windows(nomfeuille)

Sans guillemets. ou même :

Code :

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

Windows(Range("A1").Value)

Sans passer par aucune variable.

Par contre, ceci :

Code :

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

Windows("nomfeuille").Activate

va sûrement pas ouvrir ton classeur. Cela active le classeur SI il est déjà ouvert. Essaie plutôt quelque chose comme (à modifier selon le chemin d'accès au fichier):

Code :

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

Workbooks.Open Filename:="H:\Documents\nom du dossier\nom du fichier.xlsx"

Avec une variable ce serait :

Code :

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

Workbooks.Open Filename:="H:\Documents\nom du dossier\" & nomFeuille & ".xlsx"