Discussion :

[trouvaille]

Bonjour, n'ayant pas assez de connaissances en vba excel, pourriez-vous m'aider à résoudre mon soucis.

j'aimerai créer une feuille excel avec une case recevant une info d'une douchette code barre, l'action de la douchette indiquant la donnée dans la case et effectuant un ENTER, une procédure devrait se lancer pour imprimer automatiquement un fichier excel se trouvant dans un répertoire.

Il me semble juste de travailler avec plusieurs variables pour définir le chemin ou se trouve le fichier à imprimer tel que le nom qui s'est affiché après le scan mais aussi d'autres critères tel dossier et sous dossier de ce nom de fichier qui serait sélectionné via un menu déroulant.

l'utilisateur sélectionnerai deux menu déroulant donnant le dossier et le sous dossier et le scan donnerai le nom du fichier permettant ainsi de construire le chemin pour aller chercher le fichier à imprimer.

Une case servirait en entrer le nombre de copies que l'on désire (avec test si utilisateur à bien rempli la case).

une fois l'impression lancée, remettrai la case contenant la valeur du scan à zéro, permettant de scanner un autre code et d'imprimer un autre fichier.

si l'utilisateur devrait changer de dossier ou sous dossier, il changerai via le menu déroulant pour sélectionner le début du chemin du ou des prochains fichiers à imprimer

Merci de votre aide

[Zekraoui_Jakani]

Il faut préciser votre version XL, ainsi que la police du code barre (128, UPC/EAN:, QR, ... etc).

Voir ce site qui pourrait aider:
https://www.smartsheet.com/content/e...Barcode%20row.

[Philippe Tulliez]

Bonjour,
Que la donnée soit entrée manuellement suivi de Enter ou avec une douchette c'est du pareil au même. Le programme fera le même travail.
Il y a lieu de placer la ligne de démarrage du programme dans la procédure événementielle de la feuille où doit se faire l'encodage

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
  With Range("B2")
    If Target.Address = .Address Then
       MsgBox "Vous avez entré " & .Value
       .Select
    End If
  End With
End Sub

[trouvaille]

Il faut préciser votre version XL, ainsi que la police du code barre (128, UPC/EAN:, QR, ... etc).

Voir ce site qui pourrait aider:
https://www.smartsheet.com/content/e...Barcode%20row.

Bonjour et merci de la réponse, j'utilise excel 365 mais comme dis plus haut, la procédure qu'elle soit effectuée avec le scanner ou manuellement suivi d'un ENTER reste la même car le scanner à la lecture du code barre indique un numéro faisant référence à un nom de document word(.doc) et effectue un ENTER.
Mon soucis ne se situe pas au niveau du lecteur code barre mais à la procédure à effectuer en VBA pour imprimer le document concerné automatiquement.

[trouvaille]

Bonjour,
Que la donnée soit entrée manuellement suivi de Enter ou avec une douchette c'est du pareil au même. Le programme fera le même travail.
Il y a lieu de placer la ligne de démarrage du programme dans la procédure événementielle de la feuille où doit se faire l'encodage

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
  With Range("B2")
    If Target.Address = .Address Then
       MsgBox "Vous avez entré " & .Value
       .Select
    End If
  End With
End Sub

Merci pour la réponse et ce début de code permettant une action lors de la rentrée d'une information en case B2 pour l'exemple.

le tout est de trouver la procédure imprimant ce document et remettant la valeur B2 vierge prête à recevoir une nouvelle information et un nouvel ENTER.

Si je peux être difficile, j'ai beaucoup de documents .DOC se situant dans un même dossier, mais dans des sous-dossiers différents. Est-il possible afin de ne pas devoir sélectionner manuellement le dossier et le sous-dossier ou se trouve le document à imprimer, que la procédure puisse aller rechercher le dossier concerné dans un des sous-dossiers juste grâce à son nom récupéré en B2 suivi de l'extension .doc
Une fois trouver, il l'imprimerai à un nombre d'exemplaires désigné et remettrai la case B2 vierge et prêt à recommencer une nouvelle procédure....
2

[Philippe Tulliez]

Bonjour,

le tout est de trouver la procédure imprimant ce document et remettant la valeur B2 vierge prête à recevoir une nouvelle information et un nouvel ENTER.

Pour effacer la cellule B2, c'est tout simplement la méthode Clear ou ClearContents, si l'on souhaite conserver le format de la cellule, de l'objet Range

Si je peux être difficile, j'ai beaucoup de documents .DOC se situant dans un même dossier, mais dans des sous-dossiers différents. Est-il possible afin de ne pas devoir sélectionner manuellement le dossier et le sous-dossier ou se trouve le document à imprimer, que la procédure puisse aller rechercher le dossier concerné dans un des sous-dossiers juste grâce à son nom récupéré en B2 suivi de l'extension .doc
Une fois trouver, il l'imprimerai à un nombre d'exemplaires désigné et remettrai la case B2 vierge et prêt à recommencer une nouvelle procédure....
2

Tout est possible
Si vous connaissez le dossier où se trouve le document à imprimer en fonction du code scanné, il suffit de créer une table de correspondance, reprenant le chemin et le nom du document et comme on le ferait avec n'importe quelle liste de données, on utilisera RECHERCHEV ou INDEX, les deux combinés à EQUIV et ensuite à l'aide du code VBA, on ouvre le fichier que l'on imprime et ensuite on ferme.
Trois, quatre lignes de code et c'est emballé

[trouvaille]

créer une table de correspondance me pose problème, car des documents seront ajoutés par d'autres utilisateur qui ne mettront pas ma table de correspondance à jour.

Je pensais peut être avec des conditions regarde dans ce dossier et sous dossier un tel, si pas regarde dans le même dossier mais sous dossier un tel jusqu'à ce qu'il trouve le fichier correspondant et l'imprime...

il n'y à pas plus de 8 sous-dossiers à vérifier...

[Philippe Tulliez]

Bonjour,

créer une table de correspondance me pose problème, car des documents seront ajoutés par d'autres utilisateur qui ne mettront pas ma table de correspondance à jour.

S'il existe un code à scanner, il y a donc forcément quelques parts une liste des documents avec leur code correspondant

Il y a une solution à tout. Il suffit juste de réfléchir à ce que l'on souhaite faire.
Qu'est-ce que j'ai à ma disposition pour faire correspondre le code et le document associé ?

[trouvaille]

Bonjour,

S'il existe un code à scanner, il y a donc forcément quelques parts une liste des documents avec leur code correspondant

Il y a une solution à tout. Il suffit juste de réfléchir à ce que l'on souhaite faire.
Qu'est-ce que j'ai à ma disposition pour faire correspondre le code et le document associé ?

Malheureusement pas...
Cela ne pourrai pas marcher avec des conditions...???