A voir également:
- Comment ouvrir un classeur sans clé
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum - Visual Basic
- Ouvrir un classeur Excel par macro sans l'afficher ✓ - Forum - Visual Basic 6
- Lire une feuille d'un classeur sans l'ouvrir ✓ - Forum - Visual Basic 6
- Copier feuille Excel puis coller dans txt - Forum - Visual Basic
- Copier une feuille excel en conservant le format du tableau - Forum - Visual Basic
3 réponses
Bonjour,
C'est à cela que sert la méthode Workbooks.open
exemple :
EDIT : tu pourras trouver intéressant d'attribuer une variable objet au classeur ainsi ouvert, puis de t'en servir comme tu le souhaites ...
Exemple :
qui te permet d'utiliser toto
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
C'est à cela que sert la méthode Workbooks.open
exemple :
Workbooks.Open "D:\blabla.xlsm"
EDIT : tu pourras trouver intéressant d'attribuer une variable objet au classeur ainsi ouvert, puis de t'en servir comme tu le souhaites ...
Exemple :
Dim toto As Workbook
Set toto = Workbooks.Open("D:\abab.xlsm")
For Each feuille In toto.Worksheets
MsgBox feuille.Name
Next
qui te permet d'utiliser toto
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Rebonjour,
Dans le cas 2, il se peut que le nom du classeur me soit inconnu, de même que le chemin dans le support. Je dois alors rechercher son origine puis le saisir dans le classeur TRAITER qui pourra l'ouvrir.
J'espérais extraire ce classeur (chemin compris) via un Dialogue interne d'une macro de TRAITER afin d'éviter les erreurs de saisie d'un utilisateur Lambda.
Merci quand même de ta réponse, que je peux mettre en place pour l'instant. A+ Bab
Dans le cas 2, il se peut que le nom du classeur me soit inconnu, de même que le chemin dans le support. Je dois alors rechercher son origine puis le saisir dans le classeur TRAITER qui pourra l'ouvrir.
J'espérais extraire ce classeur (chemin compris) via un Dialogue interne d'une macro de TRAITER afin d'éviter les erreurs de saisie d'un utilisateur Lambda.
Merci quand même de ta réponse, que je peux mettre en place pour l'instant. A+ Bab
regarde ce que fait par exemple ceci :
clique sur le classeur de ton choix deanbs la boîte de dialogue et regarde
EDIT : une autre méthode ? ====>>>
Le reste, avec cette seconde méthode, est facile à deviner (suffit de continuer avec le code de mon tout premier message, puisque le chemin complet est ainsi connu.
Je te précise qu'il t'est également possible de définir un répertoire "initial", en ajoutant par exemple, immédiatement après With fd :
(la boîte de dialogue s'ouvrira ainsi d'abord sur le répertoire D:\monoutil
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
titi = Application.Dialogs(xlDialogOpen).Show
If titi Then
Set toto = ActiveWorkbook
MsgBox toto.Name
End If
clique sur le classeur de ton choix deanbs la boîte de dialogue et regarde
EDIT : une autre méthode ? ====>>>
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Classeurs Excel", "*.xl*", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
MsgBox "tu as choisi le fichier : " & vrtSelectedItem
Next vrtSelectedItem
Else
MsgBox "tu n'as choisi aucun fichier"
End If
End With
Set fd = Nothing
Le reste, avec cette seconde méthode, est facile à deviner (suffit de continuer avec le code de mon tout premier message, puisque le chemin complet est ainsi connu.
Je te précise qu'il t'est également possible de définir un répertoire "initial", en ajoutant par exemple, immédiatement après With fd :
.InitialFileName = "D:\monoutil"
(la boîte de dialogue s'ouvrira ainsi d'abord sur le répertoire D:\monoutil
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.