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

macro ouveerture de fichier

  • Initiateur de la discussion Initiateur de la discussion al1000
  • 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 !

al1000

XLDnaute Impliqué
bojour

j'ai cette macro:

Dim FichierCible As Workbook
Dim Fichier As Variant

'Demande le numéro du fichier souhaité
Fichier = Application.InputBox(" N° du mois ?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier = MonthName(Fichier)

Fichier = "m:\données\RAFA " & Fichier & " 2006.xls"
If Dir(Fichier) = "" Then
MsgBox "fichier non trouvé"
Exit Sub


pour le mois de novembre elle marche mais pour le mois de decembre elle dit qu'elle ne trouve pas le fichier

pourquoi?
 
Re : macro ouveerture de fichier

bonjour

j'aurai besoin un peu d'explications:

pour copier la macro:
Private Sub CommandButton1_Click()
Initialisation_Mois
End Sub


elle se colle derriere la feuille ?

pour copier la macro:
Global Mois(1 To 12) As String
_______________________________________ a quoi sert ce trait?
' Mis ici pour être visible de toutes les macros.

Sub Initialisation_Mois()
Mois(1) = "Janvier"
Mois(2) = "Février"
Mois(3) = "Mars"
Mois(4) = "Avril"
Mois(5) = "Mai"
Mois(6) = "Juin"
Mois(7) = "Juillet"
Mois(8) = "Août"
Mois(9) = "Septembre"
Mois(10) = "Octobre"
Mois(11) = "Novembre"
Mois(12) = "DECEMBRE"

End Sub


elle se colle dans le module?



pourquoi la forme sur la feuille a quoi sert elle ?


a+
 
- 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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…