overflow

[Xavier]

Bonjour

Suite à une formule du forum (voir apres), j'ai un message overflow ... Qu'est ce que ca veut dire ??? Y a t il un nombre limité de caractère ??

Merci pour le renseignement

Xa

Dim F1 As String
Dim a As Byte, Longueur1 As Byte
Dim doc1 As String

F1 = TextBox1.Value

Longueur1 = Len(F1)
a = Longueur1
While Mid(F1, a, 1) <> "\"
a = a - 1
Wend 'pour supprimer le chemin et ne garder que le nom du classeur
doc1 = Mid(F1, a + 1, Longueur - a)
Workbooks(doc1).Activate

J'ai crée le paramètre doc1 pour une question de simpliciter

 

[Minick]

Salut,

Si la Chaine que tu as dans F1 fait plus de 255 caractere tu ne peut pas utiliser un type Byte pour a et Longueur1 (Byte -> 0 à 255)
il faut un Integer


@+ Minick

 

[Xavier]

Merci bcp mais maintenant j'ai un nouveau petit problème
Dans la fonction workbooks ... avant tous mes problèmes, j'utilisais la fonction windows(...) pour pouvoir ouvrir mon fichier et y effectuer la selection d'une colonne et ensutie la copier vers mon fichier de base

Workbooks.Open Filename:=TextBox1.Value


Dim F1 As String
Dim a As Byte, Longueur1 As Integer
Dim doc1 As String
F1 = TextBox1.Value
Longueur1 = Len(F1)
a = Longueur1
While Mid(F1, a, 1) <> "\"
a = a - 1
Wend 'pour supprimer le chemin et ne garder que le nom du classeur

Workbooks(Mid(F1, a + 1, Longueur - a)).Activate

 

[Minick]

Re,

Je te propose un autre code pour trouver le nom du fichier.
(->ton Activate me laisse supposer que ton fichier est deja ouvert)

Dim F1 As String
Dim doc1 As String

F1 = TextBox1.Value

Workbooks(Mid(F1, InStrRev(F1, "\") + 1)).Activate



Si il n'est pas ouvert et que le chemin d'acces est celui courant:

Dim F1 As String
Dim doc1 As String

F1 = TextBox1.Value

Workbooks.Open(Mid(F1, InStrRev(F1, "\") + 1))




Si il n'est pas ouvert et que le chemin d'acces est celui du Textbox1:

Dim F1 As String
Dim doc1 As String

F1 = TextBox1.Value

Workbooks.Open(F1)


@+ Minick

 

[Xavier]

Merci pour les tuyaux mais ca ne fonctionne toujours pas mais plus à ce niveau là donc ... on relance un nouveau file

Bonne fin d'aprem et merci encore pour l'aide

Xa

 

[Xavier]

Re: overflow, encore une question

rebonjour,

Maintenant j'ai un problème parce que j'aimerai utiliser la fonction
windows(nom).active mais je n'y arrive pas ....

Vu que je maitrise pas trop cette écriture comme bien d'autres, j'en appelle a votre aide (la je suis a deux doigts de la depression ) ...

Je vois le problème (vu qu'avant dans mon programme tout bete et tout simple ca marchait comme il fallait) : Avant tout était beau parce que les fichiers appelés n'intégraient pas leur chemin d'acces, or maintenant en complexifiant la programmation, je selectionne les fichiers par leur chemin d'acces ... dans cette voie, ca fait deux jours que je cherche le moyen d'activié sur mon écran les fichiers. Pour ce faire, je pensais que la programmation que vous m'aviez donné m'aiderait mais ca ne marche pas ... comprenez vous ? pouvez vous m'aider ? me dépanner ? me sortir de ce gouffre ? s'il vous plait

Xa

 

[Minick]

Re: overflow, encore une question

Salut,

Cela permet d'activer le classeur de la variable F1:
Windows(Mid(F1, InStrRev(F1, "\") + 1, Len(Mid(F1, InStrRev(F1, "\") + 1)) - 4)).Activate

En plus d'isoler le nom du classeur, on enleve le '.xls' sinon Windows(...) ne connait pas le classeur.


Cependant, dans l'application il y a peut etre un moyen plus simple d'arriver au meme resultat.

Une piece joint serait la bienvenue ( enfin si tu veux)

@+ Minick

 

[Xavier]

Tout d'abord merci ... pour la piece jointe la voici ... je viens de réessayer et ca me donne toujours la meme réponse erreur 9: indice en dehors de la plage

 

[Xavier]

Je n'ai rien dit ... ca marche dans mon fichier windows ... maintenant essyons le dans le gros fichier

Merci en tout cas pour ton aide et ton suivi
XA

 

[Xavier]

Encore une petit question dans un autre programme .... il me remet une erreur d'overflow alors que j'ai tout défini en Integer ...

merci d'avance et excusez pour le style mais je fatigue de plus en plus

Dim W As Integer
W = Range("E1").End(xlDown).Row

 

[Minick]

re,

si il y a plus de 32767 ligne dans la colonne E c'est normale,
Integer peut etre un nombre dont les valeurs sont comprises
entre -32 768 et 32 767.

Dans ce cas il faut utiliser un Type Long qui peut prendre des valeurs
comprises entre -2 147 483 648 et 2 147 483 647


Dim W as Long
W = Range("E1").End(xlDown).Row

@+ Minick

 

[Xavier]

Ok merci on va essayer ... je dois vraiment paraitre pour un cas desespéré