Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément
Dépannage de votre PC

Programmer en vb

Bonjour et bienvenue,

Programmer en VB est le site qui vous fera prendre conscience que vous pouvez concevoir votre programme informatique vous-même, que vous soyez artisan, employé ou étudiant.

Le Visual Basic est un langage informatique très puissant, très flexible et très abordable.
Une version en application se trouve sous Office
Excel pour exemple :
Tapez Alt + F11 à l’aide de votre clavier puis vous voilà dans l’éditeur de code VBA.

Notre forum d’entraide vous offre des tutoriels ainsi que divers exemples tout prêt à adapter à votre projet personnel.
Nous vous demandons uniquement de la bonne humeur et de la bonne volonté pour toutes questions ou toutes aides quelle qu’elle soit.
Sachez que pour progresser rapidement il est conseillé d’aider au mieux les autres membres.
Nous ne sommes pas là pour juger les qualités ou défauts de codes proposés, mais pour trouver ensemble la solution à votre demande.

A vos claviers :

Afin de remplir le forum, nous vous demandons de partager sur les réseaux sociaux et autres.
https://www.facebook.com/AdminPVB/


Merci de nous rejoindre sur http://programmer-en-vb.forumactif.org/
Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB

Forum de programmation VBA et VB.NET

Welcome if you does not speak french,you are able to translate the whole topics with the flags just below of this message. Click to English

Visual Basic Application et VB.net de puissants langages à la portée de tous.

Participez et soyez acteurs des divers forums ci-dessous.

Bienvenue à chaque nouveaux membres et merci à tous ceux qui font vivre ce forum.


Qui est en ligne ?

Il y a en tout 4 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 4 Invités

Aucun


Le record du nombre d'utilisateurs en ligne est de 65 le Mar 8 Juil - 23:40

Statistiques

Nos membres ont posté un total de 4881 messages dans 597 sujets

Nous avons 453 membres enregistrés

L'utilisateur enregistré le plus récent est esteban361

Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires


créer un forum



Annuaire referencement


Flux RSS


MSN 

Juillet 2017

LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      

Calendrier Calendrier

Obtenir le volume sonore enregistré par le micro

Sam 10 Sep - 13:29 par Nayl.VBcoder

Bonjour,

Je cherche à avoir le volume sonore de la pièce en temps réel, et l'afficher dans une ProgressBar.
Je ne vois pas comme plus décrire mon problème.

Merci de vos réponses.

Petits bidouillages pour ce faciliter La vie ,Astuces et codes pratique

Dim 11 Juin - 12:20 par Berly

Bonjour le Forum  Very Happy.

Lorsque j'écrivais dans mon code Console.Writeline ("Patati,Patata,......) ,j'ai d'abord utilisé le copié collé en changeant la valeur du texte .

Bon d'accord ,c'est bien mais ,ça me saoul un peu ,au fur et a mesure de mes apprentissages ,j'ai découvert les fonctions  Very Happy.

Maintenant je partage celle ci avec vous .

On est la sur un exemple de code en "Mode …

[ Lecture complète ]
Utilisation d'un objet son (Wav)

Jeu 18 Mai - 21:48 par Berly

Bonjour le forum 

Voila , je voudrais savoir si on peut créer un tableau d'objets son.
Difficile de trouver ce genre d'information .

Les sons  sont intégrés en ressources programme.

Merci  Very Happy
Code:
[Module Module1
    Dim son1 = New System.Media.SoundPlayer(My.Resources._0283)
    Dim son2 = New System.Media.SoundPlayer(My.Resources._0863)
    Dim son3 = New …


[ Lecture complète ]
Application

Lun 15 Mai - 19:02 par Berly

Bonjour le forum

Souci dans une nouvelle application.

Total des énoncés =3

Ecriture de l'énoncé 1 dans un Textbox.

Je voulais créer plusieurs problèmes différents.
Dons pour cela j'ai créé 3 sub  Laughing.

Lors de l'événement clic sur le bouton créé pour visualiser le premier énoncé celui ci s'affiche correctement Very Happy .
Suite a cela l'utilisateur donne le résultat ,et un Msgbox …

[ Lecture complète ]
Ressource Vb.net

Ven 5 Mai - 22:29 par Berly

Bonsoir le forum

Toujours a la recherche de ressources ,je partage avec vous une nouvelle ressource  Wink.

Bonne lecture .

https://vbnetpourtous.wordpress.com/2012/12/13/les-variables/

Incorporation d' un Label Nombre de questions et un autre pour le Score,application scolaire

Ven 5 Mai - 21:23 par Berly

Bonsoir le forum

Je viens vers vous ,pour une petite aide.

Voila c'est une application scolaire Tables de multiplications Windows form.

Pour les connaisseurs ,vous comprendrez par le code la construction.

J'aimerai pouvoir incorporer a cette application deux choses .

Un label pour afficher un score.

Un autre label pour afficher le nombre de questions.

A savoir que j'ai inclus dans cette …

[ Lecture complète ]
archiver un classeur

Dim 30 Avr - 10:22 par medjsk

SALUT TOUT LE MONDE

d'abord je vous informe que je comprend pas vraiment VBA excel
et j'ai un problème dans mon fichier ci-joint
lorsque j’archive (bouton archiver) il m'affiche une erreur !!!
si vous pouvez m'aider.merci d'avance

mes salutations

Fichiers joints
Copie de FORMULAIRE-REQUETE.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(218 Ko) Téléchargé 8 fois
If / end if incomprehension

Mer 11 Jan - 14:18 par Silux

Bonjour,

j'ai fait des petits tuto pour certains collègues, hier encore tout fonctionnait et aujourd'hui plantage incompréhensible :

tout bête :

Sub total()

Cells(1, 5).Value = ""
Cells(1, 5).Value = Cells(1, 1).Value * Cells(1, 2).Value * Cells(1, 3).Value * Cells(1, 4).Value

resultat = Cells(1, 5).Value
Cells(2, 1).Value = resultat

        If Cells(1, 1).Value < 25 Then Cells(1, 1).Interior.Color = 255
      


[ Lecture complète ]
Enregistrement dans une base

Mar 1 Nov - 10:55 par La boc

Bonjour à tous et toutes, me revoilà pour une petite question.

J'ai utilisé il y a quelque années VB 2010 avec une base de données sans problème.

Je suis sous W10 64 bit avec Visual studio express 2015 et je tente de faire la même chose mais impossible d'enregistrer dans la base et je ne comprends pas où est mon erreur. Si une âme charitable pouvez éclairer ma lanterne ça serait …

[ Lecture complète ]

Lire fichier fermé vba

Partagez
avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Mer 9 Oct - 12:08

Bonjour,

Voici :
Code:
Dim Chemin As String
Dim NomFeuille As String
Dim WK As String
Dim V1 As String, V2 As String, V3 As String
Dim Object As Workbook
Private Sub UserForm_Initialize()
Chemin = "C:\Ronibo\Facture\"
LeFichier = Dir(Chemin & "*.xlsm")
Do While LeFichier <> ""
Me.Liste.AddItem LeFichier
LeFichier = Dir
Loop
End Sub
Private Sub TSélectionner_Click()
For i = 0 To Liste.ListCount - 1
If AttestationTVA.Liste.Selected(i) = True Then
Coché = True
WK = Chemin & AttestationTVA.Liste.List(i)
NomFeuille = "Akisti Bat"
Set Object = GetObject(WK)
With Object
V1 = Workbooks.Open("C:\Ronibo\Facture\").Range("NomClient").Text
V2 = Workbooks.Open("C:\Ronibo\Facture\").Range("NuméroDocument").Text
V3 = Workbooks.Open("C:\Ronibo\Facture\").Range("TotalTTC").Text
End With
Set Object = Nothing
Call Boucle(V1, V2, V3)
End If
Next i
If Not Coché Then MsgBox "Veuillez sélectionner au moins une facture pour faire l'attestation de TVA !", vbInformation, "Attention"
MsgBox "L'opération est terminée !", vbInformation
Unload Me
End Sub
Sub Boucle(NomClient As String, NuméroDocument As String, TotalTTC As String)
Dim OWord As Object
Dim ODoc As Object
Set OWord = CreateObject("Word.Application")
Set ODoc = OWord.Documents.Open("C:\Ronibo\Attestation de T.V.A..doc")
With ODoc
  .Bookmarks("NomClient").Range = NomClient
  .Bookmarks("NuméroFacture").Range = NuméroDocument
  .Bookmarks("TotalTTC").Range = TotalTTC
End With
ODoc.SaveAs Filename:="C:\Ronibo\Attestation de T.V.A." & " - " & "Facture N°" & NuméroDocument & " (" & NomClient & ")" & ".doc"
ODoc.Close
OWord.Quit
Set ODoc = Nothing
Set OWord = Nothing
End Sub
A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Mer 9 Oct - 21:46

Bonsoir Ronibo,
le chemin est égale à c:\Ronibo\facture donc dans le V1,V2 et V3 tu ne dois pas spécifier ce chemin car il l'est déjà avec WK
si tu veux un changement de chemin pour orienter vers un dossier,tu dois le définir avant le set WK
Ensuite l'instruction Getobject permet de jouer avec le fichier sans l'ouvrir,il est donc inutile de mettre l'instruction workbook.open(...)
A suivre pour voir si tu as compris les remarques.

A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Mer 9 Oct - 22:52

Bonsoir Fhoest Smile

La variable WK est déjà spécifié dans le code,

WK = Chemin & AttestationTVA.Liste.List(i)

Se qui revient pareil que

WK = "C:\Ronibo\Facture\" & AttestationTVA.Liste.List(i)

Enfin je crois.

A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Jeu 10 Oct - 7:55

Bonjour,
oui c'est pourquoi ces 3 lignes ne sont pas bonne avec le workbook.open
Code:
V1 = Workbooks.Open("C:\Ronibo\Facture\").Range("NomClient").Text
V2 = Workbooks.Open("C:\Ronibo\Facture\").Range("NuméroDocument").Text
V3 = Workbooks.Open("C:\Ronibo\Facture\").Range("TotalTTC").Text
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 726
Date d'inscription : 25/07/2013
Age : 54

Résolu Re: Lire fichier fermé vba

Message par grisan29 le Jeu 10 Oct - 8:28

bonjour Ronibo, Fhoest et le forum
voici une procédure que j'utilisait avant le classeur devis-facture pour enregistrer une facture où un devis
-en fonction du nom de la feuille
-de son numéro et l'incrémente
-sauvegarde sous c: devis, facture, facture sav, facture d'acompte
Code:
Private Sub newfeuille_Click()
Dim nom, chemin As Variant
Dim plage As Range
Dim DLig As Long
With Sheets("facture")
   DLig = .Range("c65536").End(xlUp).Row


    Sheets("facture").Copy
    
    nom = Sheets("facture").Range("U1").Value & ".xls" '"-" & Sheets("facture").Range("J5").Value &
    'chemin = "c:\Save_Devis_ExcelGStock" & "\Facture\"
    Select Case (Range("D1"))
    Case Is = "FACTURE", "FACTURE SAV", "FACTURE D'ACOMPTE": chemin = "c:\Facture" & "\Facture\"
    Case Else: chemin = "c:\Facture" & "\Devis\"
    End Select
    
    ActiveWorkbook.SaveAs Filename:=chemin & nom, _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False


    DLig = .Range("C19").End(xlDown)(1).Row
    If DLig > 19 Then
        Set plage = .Range("C19:B" & .Range("C19").End(xlDown)(1).Row - 1)
        plage.EntireRow.Delete
    End If

.Range("J5:J10").Value = ""
End With

    'Sauvegarde les modifications
    ActiveWorkbook.Save
    ActiveWindow.Close
Select Case UCase(Range("D1"))
        Case Is = "FACTURE"
        Range("S7") = Range("S7") + 1
        Case Is = "DEVIS"
        Range("S8") = Range("S8") + 1
        Case Is = "FACTURE D'ACOMPTE"
        Range("S9") = Range("S9") + 1
        Case Is = "FACTURE SAV"
        Range("S10") = Range("S10") + 1
    End Select
  
End Sub
voila si cela peut t'aider
autrement cette discussion est résolue
http://www.developpez.net/forums/d1375595/logiciels/microsoft-office/excel/macros-vba-excel/lire-fichier-ferme-excel/

Pascal
avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Ven 11 Oct - 18:46

Bonjour,

Merci encore pour le code pascal, je prend la partie pour incrémenter les numéros Wink

Fhoest : Bonjour,
Je n'arrive pas comprendre le fonctionnement de Getobject.

Tu peux m'éclaircir ?

A+
avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 726
Date d'inscription : 25/07/2013
Age : 54

Résolu Re: Lire fichier fermé vba

Message par grisan29 le Ven 11 Oct - 19:50

bonjour Ronibo

il y a la touche F1 ou tu trouvera de l'aide sur getobject

concernant l'incrémentation il y a mieux sur l'autre fichier car lorsqu'un devis est créer et qu'il  n'est pas transformer en facture, et qu'il faut faire un autre devis, il faut que la numérotation des devis soit différente des facture donc dans le fil qui relie mon classeur a la discussion, BlueMonkey m'avait suggérer ceci
-"Je passe peut être à côté de quelque chose, mais je crains que cette méthode d'incrémentation,
risque par aboutir à l'utilisation de 2 devis ou factures avec le même numéro.
En effet pour que le numéro de facture se propage entre fichier, tu dois toujours partir du dernier fichier devis/facture.
Et si le devis n'est pas encore facturé, le compteur de facture ne sera pas encore incrémenté sur la feuille copiée pour créer l'autre commande.
Du coup 2 devis peuvent donner un même numéros de facture."


Pascal
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Sam 12 Oct - 9:41

Bonjour,
Très bonne remarque concernant les numéros,le meilleur moyen de ne pas avoir des numéros identiques
c'est de passer par la date + heure + ton numéro
du style: 20131012936 & numéro
ce qui veut dire 2013/10/12 9:36 + numéro avec ce système 2 points sont intéressants,

1° Tu as la date et l'heure ou le document est établi
2° Tu as un numéro unique

Pour Getobjet() lien
A bientôt.



_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Dim 13 Oct - 13:43

Bonjour le forum,

Je trouve pas mon erreur Sad

Code:
Private Sub TSélectionner_Click()
Dim GetObject As Object
For i = 0 To Liste.ListCount - 1
If AttestationTVA.Liste.Selected(i) = True Then
Coché = True
WK = Chemin & AttestationTVA.Liste.List(i)
NomFeuille = "Akisti Bat"
Set Object = GetObject(WK)
With Object
V1 = GetObject("C:\Ronibo\Facture\").Range("NomClient").Text
V2 = GetObject("C:\Ronibo\Facture\").Range("NuméroDocument").Text
V3 = GetObject("C:\Ronibo\Facture\").Range("TotalTTC").Text
End With
Set Object = Nothing
Call Boucle(V1, V2, V3)
End If
Next i
If Not Coché Then MsgBox "Veuillez sélectionner au moins une facture pour faire l'attestation de TVA !", vbInformation, "Attention"
MsgBox "L'opération est terminée !", vbInformation
Unload Me
End Sub
Je bloque sur GetObject Sad

Si quelqu'un peu jeter un œil, ça serait sympa

a+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Dim 13 Oct - 20:54

Bonsoir,
erreur est à cause de la mauvaise utilisation de getobject
Code:
WK = Chemin & AttestationTVA.Liste.List(i)
NomFeuille = "Akisti Bat"
Set Object = GetObject(WK)
With Object
'ci dessous tu ne peux pas faire appel à Getobject car tu es déjà dans ton object nommé Object
V1 = GetObject("C:\Ronibo\Facture\") .Range("NomClient").Text
V2 = GetObject("C:\Ronibo\Facture\").Range("NuméroDocument").Text
V3 = GetObject("C:\Ronibo\Facture\").Range("TotalTTC").Text
End With
Getobject(PathName,Facultatif. String. Chemin d'accès complet et nom du fichier contenant l'objet à récupérer.
get = obtenir------- object = object
c'est à dire ouvrir sans voir ton fichier
le .range("...") est = à la cellule que tu va mettre dans v1,v2,v3

A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 726
Date d'inscription : 25/07/2013
Age : 54

Résolu Re: Lire fichier fermé vba

Message par grisan29 le Dim 13 Oct - 21:32

bonsoir Fhoest

je crois que tu te répètes

Pascal
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Lun 14 Oct - 12:45

Bonsoir Grisan29,
Oui je sais c'est la vieillesse qui arrive doucement.lol! 
A+ 


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Lun 14 Oct - 13:08

Bonjour,

Je crois que je vais peter un câble, j'ai beau essayé mais je bloque toujours sur Getobject, y'aurait pas une solution plus simple?

a+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Lun 14 Oct - 13:34

Bonjour,

Code:
    Private Sub TSélectionner_Click()
    Dim GetObject As Object
    For i = 0 To Liste.ListCount - 1
    If AttestationTVA.Liste.Selected(i) = True Then
    Coché = True
    WK = Chemin & AttestationTVA.Liste.List(i)
    NomFeuille = "Akisti Bat"
    Set Object = GetObject(WK)
    With Object
    V1 = .Range("NomClient").Text
    V2 = .Range("NuméroDocument").Text
    V3 = .Range("TotalTTC").Text
    End With
    Set Object = Nothing
    Call Boucle(V1, V2, V3)
    End If
    Next i
    If Not Coché Then MsgBox "Veuillez sélectionner au moins une facture pour faire l'attestation de TVA !", vbInformation, "Attention"
    MsgBox "L'opération est terminée !", vbInformation
    Unload Me
    End Sub
Essai comme ceci et ensuite si ça ne fonctionne pas met le dossier sur lequel tu travailles,pour la solution plus simple,c'est d'ouvrir le fichier ,récupérer les info,et fermé le fichier ,Mais getobject est mieux car il va plus vite
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Mar 15 Oct - 8:42

Bonjour,


J'ai toujours le même problème,

Je bloque ici :
Set Object = GetObject(WK)



On parle de With, il en manque un, Non?

Ou sinon je vais essayé de changer le répertoire comme on a fait au début.

A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Mar 15 Oct - 15:03

Bonjour,
dans le fichier que je t'ai remis au départ j'avais instancier la variable object1 comme ceci:

Code:
Dim object1 As Workbook
tu as changé par:
Code:
Dim Getobject As Object
Pourquoi ??
maintenant tu as une erreur que tu n'arrives pas à trouver.
le code que je t'avais donné devrait ressembler à:
Code:
        Private Sub TSélectionner_Click()
        Dim mon_object As workbook
        For i = 0 To Liste.ListCount - 1
        If AttestationTVA.Liste.Selected(i) = True Then
        Coché = True
        WK = Chemin & AttestationTVA.Liste.List(i)
        NomFeuille = "Akisti Bat"
        Set mon_object = GetObject(WK)
        With mon_object
        V1 = .Range("NomClient").Text
        V2 = .Range("NuméroDocument").Text
        V3 = .Range("TotalTTC").Text
        End With
        Set mon_object = Nothing
        Call Boucle(V1, V2, V3)
        End If
        Next i
        If Not Coché Then MsgBox "Veuillez sélectionner au moins une facture pour faire l'attestation de TVA !", vbInformation, "Attention"
        MsgBox "L'opération est terminée !", vbInformation
        Unload Me
        End Sub
Lorsque tu remplaces quelques choses fait attention comme ça si ça ne va pas tu peux revenir en arrière.
petite remarque, il est préférable de mettre la ligne dim tout en haut d'un module dans ton cas et au lieu de dim met public.

A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Mer 16 Oct - 16:46

Bonjour,

Merci Fhoest pour la correction,

Décidement j'ai pas de chance,

Cette fois ci je bloque ici
V1 = .Range("NomClient").Text
avec un message
propriété ou méthode non gérée par cet objet

Tu as une idée?

Peut être à cause des gestionnaire de nom?

a+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Mer 16 Oct - 18:26

Bonjour,
le fichier que tu ouvres avec getobject(wk) ou wk est le fichier.
ce même fichier au moment du bugg contient il un range nommé "NomClient" si oui la syntaxe est elle bonne par exemple nomClient <> NomClient <> Nomclient ....

A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Jeu 17 Oct - 11:23

Bonjour le forum,
Bonjour Fhoest,

Tout me semble correcte de mon côté,
Tu peux essayé de ton côté, c'est peu être du à la version d'office.

Voici le fichier (A extraire dans C: stp)
A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Jeu 17 Oct - 15:21

Bonjour Ronibo,
il manque la feuille sur ton code.
Code:
V1 = .Sheets("Akisti Bat").Range("NomClient").Text
V2 = .Sheets("Akisti Bat").Range("NuméroDocument").Text
V3 = .Sheets("Akisti Bat").Range("TotalTTC").Text
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Jeu 17 Oct - 15:51

Bonjour,

Merci pour la correction,

Le macro fonctionne sans erreur Smile,

Mais il me créer plusieurs fichier Word lorsque je sélectionne plusieurs facture, depuis usf,

Moi je voulais en créer un fichier Word (faire en sorte qu'il y a une attestation) puis réunir les données de plusieurs facture

J'espère que je me suis fais comprendre Smile

A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Jeu 17 Oct - 21:12

Bonsoir,
voici en exemple le dossier avec une seule facture,il faut tester.
A+

prendre le fichier au message 53. (pour gain de stockage pièces jointes)


Dernière édition par AdminPVB le Dim 14 Juin - 10:52, édité 1 fois


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Jeu 17 Oct - 22:04

Re,

Oui c'est ça ! Smile

Merci Fhoest Smile

J'aimerais juste améliorer la mise en forme, le rendre plus esthétique

le texte initial


Moi j'hésite entre deux modèles (ci joint)

Le quel tu me conseil?

Fhoest sur lequel on peut travailler?, est-ce que avec ton astuce on peut faire des retour à la ligne?

Je mets une nouvelle version car j'ai fais quelques modifs
(Je passe par cjoint car j'ai un message comme ceci :
Le fichier envoyé n'est pas valide: nom du fichier incorrect.
J'ai beau changer le nom c'est toujours pareil)

http://cjoint.com/?CJrwdu71t67

A+
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: Lire fichier fermé vba

Message par AdminPVB le Jeu 17 Oct - 22:16

problème sur le lien.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Ronibo
Step_Three_VBA
Step_Three_VBA

Localisation : Creil
Messages : 345
Date d'inscription : 28/06/2013
Age : 23

Résolu Re: Lire fichier fermé vba

Message par Ronibo le Jeu 17 Oct - 22:21

Re,

Chez moi ça fonctionne,

Je remets un nouveau lien

http://cjoint.com/?CJrwucjemWN

Contenu sponsorisé

Résolu Re: Lire fichier fermé vba

Message par Contenu sponsorisé


    La date/heure actuelle est Dim 23 Juil - 4:48