Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir un onglet avec une macro

  • Initiateur de la discussion Initiateur de la discussion Shirow62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

Shirow62

Guest
Boujour , je voudrais creer une macro qui ouvre un onglet correspondant a la valeur d'une cellule

Exemple , j'ai plusieur feuille nommé facture ( facture 1 , facture 2 , facture 3 , .....)
plusieur feuille tableau de frequentation annuel qui comporte dans la case A1 le n° du tableau A1=1 dans la feuille tableau 1 , A1=2 dans la feuille tableau 2 , ..... )

Et un bouton commun a toutes les feuilles tableau nommé facture

si je suis sur le tableau 1 et que je clique sur le bouton facture je vais sur la facture 1
si je suis sur le tableau 2 et que je clique sur le bouton facture je vais sur la facture 2

j'arrive a le faire mais cela m'oblige a creer 35 macro nommé ( facture1 () , facture2 () , ...... )

il t'il donc possible de créer une macro qui dit si a1 dans tableau 1=1 va sur facture 1 , si a1 dans tableau 2=2 va sur facture 2

merci
 
Re : Ouvrir un onglet avec une macro

merci , je fonctionne

j'ai une autre requete

je sauvegarde mais facture au format pdf dans un dossier nommé facture
j'ai créer un bouton archive qui me demande qu'elle facture je recherche et si il la trouve l'ouvre sur Adobe ready mais cela plante , voice le code

Private Sub CommandButton1_Click()
Dim Num_Article As String, Stockage As String
'définir le répertoire de stockage des fichiers
Stockage = "C:\Users\jerome\Documents\piscine\facture\"
'demande le numéro d'article
Num_Article = Application.InputBox(prompt:="Entrez le numéro de la facture", Type:=2)
If Num_Article > "" Then
'teste l'existence du fichier avant de l'ouvrir
If Not (Dir$(Stockage & Num_Article & ".pdf", vbDirectory) = "") Then
ThisWorkbook.FollowHyperlink Filename:=Stockage & Num_Article & ".pdf"
Else
MsgBox "Fichier " & Stockage & Num_Article & ".pdf" & " est absent du repertoire."
End If
End If
End Sub

cela plante sur la ligne ( ThisWorkbook.FollowHyperlink Filename:=Stockage & Num_Article & ".pdf" )
 
Re : Ouvrir un onglet avec une macro

Bonjour.
Il n'y a pas de paramètre Filename à la méthode FollowHyperlink. Cordialement.
 
Re : Ouvrir un onglet avec une macro

bonjour Shirow62
j'utilise la ligne ci-dessous pour ouvrir un pdf à partir d'excel, à toi de l'adapter
Shell ("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe " & Fichier), vbMaximizedFocus
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
345
wDog66
W
Réponses
2
Affichages
240
Réponses
43
Affichages
809
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…