Macro + 100 itérations
technopole
Messages postés
28
Statut
Membre
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- 100 mb en mo ✓ - Forum Matériel & Système
- Question 1 Mb = ?Mo - Forum Matériel & Système
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...............