Macro + 100 itérations
technopole
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
je suis en train d'écrire un petit code pour l'ouverture de 550 fichiers excel en même temps. le code fonctionne très bien pour une vingtaine de fichiers.
quand j'essaie à 100 itérations il me génère cette erreur run-time error 6 overflow
ci dessous le code :
Sub multiselection()
nomfich = Application.GetOpenFilename(Title:="Ouverture des fichiers CEXP", MultiSelect:=True)
If TypeName(nomfich) = "Boolean" Then
Exit Sub
End If
If UBound(nomfich) > 1 Then
Dim rep As Long
Dim Liste As String
Dim compteur As Byte
For compteur = 1 To UBound(nomfich)
Liste = Liste & vbCr & nomfich(compteur)
Next compteur
rep = MsgBox("Voici la liste des fichiers CEXP sélectionnés." _
& Liste & vbCr & "Voulez-vous les ouvrir ?", vbYesNo + vbQuestion, "Ouvrir les fichiers CEXP ?")
If rep = vbYes Then
For compteur = 1 To UBound(nomfich)
Workbooks.Open Filename:=nomfich(compteur)
Next compteur
End If
Else
Workbooks.Open Filename:=nomfich(1)
End If
End Sub
Merci de votre aide
je suis en train d'écrire un petit code pour l'ouverture de 550 fichiers excel en même temps. le code fonctionne très bien pour une vingtaine de fichiers.
quand j'essaie à 100 itérations il me génère cette erreur run-time error 6 overflow
ci dessous le code :
Sub multiselection()
nomfich = Application.GetOpenFilename(Title:="Ouverture des fichiers CEXP", MultiSelect:=True)
If TypeName(nomfich) = "Boolean" Then
Exit Sub
End If
If UBound(nomfich) > 1 Then
Dim rep As Long
Dim Liste As String
Dim compteur As Byte
For compteur = 1 To UBound(nomfich)
Liste = Liste & vbCr & nomfich(compteur)
Next compteur
rep = MsgBox("Voici la liste des fichiers CEXP sélectionnés." _
& Liste & vbCr & "Voulez-vous les ouvrir ?", vbYesNo + vbQuestion, "Ouvrir les fichiers CEXP ?")
If rep = vbYes Then
For compteur = 1 To UBound(nomfich)
Workbooks.Open Filename:=nomfich(compteur)
Next compteur
End If
Else
Workbooks.Open Filename:=nomfich(1)
End If
End Sub
Merci de votre aide
A voir également:
- Macro + 100 itérations
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- 100 mo en go ✓ - Forum Mobile
- Formate pour taxer client 100€ ✓ - Forum Consommation & Internet
1 réponse
Bonjour,
Dim compteur As Integer
As Byte ne va que jusque 255
A+
PS: Tu crois que l'utilisateur va encore s'y retrouver avec 550 classeurs ouvert en même temps ?
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
Dim compteur As Integer
As Byte ne va que jusque 255
A+
PS: Tu crois que l'utilisateur va encore s'y retrouver avec 550 classeurs ouvert en même temps ?
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
Bonjour lermite222,
Et que dire d'un MsgBox de 550 lignes...............