Résultats pour "liaison entre fichiers excels"

3'255 résultats pour cette recherche

Bonjour,

Je vous contacte car étant novice sur VBA, j'ai un petit soucis sur une manipulation (assez simple) que je souhaite faire (je précise que j'ai déjà regardé sur plusieurs forums mais je n'arrive pas à adapter les solutions proposées.) :

La manipulation est simple, j'ai un fichier A avec une feuille "Plan" où sont répertoriés sur 5000 lignes et 10 colonnes des références.

J'aimerai sur mon fichier B, insérer un bouton clic, qui lorsque l'on clique dessus ouvre une fenêtre de "recherche" (comme lorsque l'on souhaite ajouter une pièce jointe à un e-mail par exemple) et qui permette d'aller chercher et ouvrir le fichier B (avec une petite instruction texte notée sur la fenêtre de recherche).

Enfin j'aimerai copier la plage " A1:J5000 " du fichier A vers mon fichier B (en ayant supprimé au préalable les données déjà présentes).

Voilà, en espérant que ce soit clair, et que vous puissiez trouver une réponse à mon problème...

Je vous remercie d'avance pour votre aide !

Cordialement,

Victorien

Bonjour,

J'ai saisi un VBscript qui me permet d'ouvrir un 1er fichier Excel (Entree), de copier certaines données de ce fichier pour les transmettre à un second fichier (Sortie). le script fonctionne mais je ne comprend pas la restitution des données (plus accoutumé au VBA, je ne comprend pas pourquoi ce code fonctionne avec une restitution correcte sur Excel mais diffère avec le Fichier .VBS !)

Le code du script est le suivant :

Dim AppExc, tbl(889,4), tb1(12,3)
Set AppExc = CreateObject("Excel.Application")
Set wb = AppExc.Workbooks.Open("C:\Users\jean-luc\Desktop\Entree")  'adapter votre chemin pour tester
Set ws = wb.Worksheets(1)
Set wd = wb.Worksheets(2)
For i = 1 To 888
  For j = 1 To 3
    tbl(i, j) = ws.Cells(i, j)
  Next
Next
For i = 1 To 11
  For j = 1 To 2
    tb1(i, j) = wd.Cells(i + 1, j + 1)
  Next
Next
 wb.Close
Set wd = Nothing
Set ws = Nothing
Set wb = Nothing

Set wb = AppExc.Workbooks.Open("C:\Users\jean-luc\Desktop\Sortie")  'adapter votre chemin pour tester
Set ws = wb.Worksheets(2)
Set wd = wb.Worksheets(3)

 ws.range("A1").Resize(UBound(tbl, 1), UBound(tbl, 2)) = tbl
 wd.range("A1").Resize(UBound(tb1, 1), UBound(tb1, 2)) = tb1
 wb.Save
 wb.Close
 AppExc.Quit
Set wd = Nothing
Set ws = Nothing
Set wb = Nothing

Set AppExc = Nothing

Plus particulièrement, je ne comprend pas pourquoi en VBscript, je suis dans l'obligation d'augmenter les dimensions de mes tableaux lors de la déclaration pour pouvoir obtenir tous les résultats avec

Range("A1").resize...

, sans quoi il me manque tjrs une colonne et une ligne de résultat ?

Et aussi, je ne comprend pourquoi les résultats ne se copient pas en Range("A1") comme demandé mais en Range("B2") dans la réalité obtenue ? D’où viennent ces décalages

Peut-être pourriez vous svp m'aider à comprendre ? En Pj les fichiers Entree et Sortie, pour essayer vous pouvez adapter le chemin des fichiers sur script et enregistrer ce script depuis BlocNotes en .VBS

d'avance, merci...

10entree.xlsx (31.21 Ko)
7sortie.xlsx (30.43 Ko)

Bonjour Expert Vba ,

La demande consiste de mettre à jour une valeur entre deux tableau (rapport 1 sur le fichier Excel fichier1.xls et le tableau rapport 2 sur le fichier Excel fichier2.xls), avec une condition de prendre le key (Couple (Colonne A/Colonne B) du 1ére fichier1.xls et changer la valeur sur le tableau la 2éme rapport2 qui contient le mémé key (Couple (Colonne A/Colonne B) avec la valeur de colonne C , valeur du rapport1.

NB : noter bien que les deux tableaux sont séparer, deux fichier Excel (rapport1.xls & rapport2.xls)

En pj les Templates excel .

Fichier1.xlsx

rapport1

X type valeur

X1 A 20

X2 C 10

X3 A 2

X3 B 0

X1 D 5

Fichier2.xlsx

rapport 2

X type mise à jour valeur

X1 A 0

X2 C 10

X3 A

X4 B

X4 D

Merci pour votre support & Help

9fichier1.xlsx (10.21 Ko)
10fichier2.xlsx (10.27 Ko)

Bonjour tout le monde ,

J'ai un petit problème , j ai deux fichier excel ("ZFA.xls"et "ZFI.xlsm") je veux copier du premier vers le deuxième le programme marche correctement .mais le soucis je sais pas comment faire un chemin relatif

quand j'ai envoyé les deux fichier a un ami ça marche pas chez lui vue que il les a pas mis dans le mm endroit et le deuxième problème si par exemple quand je renomme mon fichier excel ça marche pas aussi s'il vous plais pourrai vous m'aider ???

a faire un chemin relatif et quand je renomme les dossiers ça va marché

merci en avance

Marc,

voici le code:

Sub Mise_à_jour()

Application.ScreenUpdating = False

Dim ZFA As Workbook

Dim PlgFE1 As Range

Dim PlgFE2 As Range

Dim Cel1 As Range

Dim Cel2 As Range

Workbooks.Open Filename:=ThisWorkbook.Path & "\ZFA.xls"

'teste si le classeur est ouvert...

On Error Resume Next

Set ZFA= Workbooks("ZFA.xls")

'...si non, l'ouvre

If Err.Number <> 0 Then Set ZFA = Workbooks.Open(chemin_globale)

'supprime le gestionnaire d'erreur

On Error GoTo 0

With ZFA.Worksheets("Feuil1"):

Set PlgFE1 = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp)):

End With

With Workbooks("ZFI.xlsm").Worksheets("Documents"):

Set PlgFE2 = .Range(.Cells(4, 4), .Cells(.Rows.Count, 4).End(xlUp)):

End With

For Each Cel1 In PlgFE1 'pour chaque cellule 1 dans fichier ZFA.Worksheets("Feuil1")

For Each Cel2 In PlgFE2 'pour chaque cellule 2 dans fichier ("ZFI.xlsm").Worksheets("Documents")

If Cel1.Value = Cel2.Value Then Cel2.Offset(, 1).Value = Cel1.Offset(, 2).Value

Next Cel2

Next Cel1

ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub

Bonjour tout le monde ,

J'ai un petit problème , j ai deux fichier excel ("ZFA.xls"et "ZFI.xlsm") je veux copier du premier vers le deuxième le programme marche correctement .mais le soucis je sais pas comment faire un chemin relatif

quand j'ai envoyé les deux fichier a un ami ça marche pas chez lui vue que il les a pas mis dans le mm endroit et le deuxième problème si par exemple quand je renomme mon fichier excel ça marche pas aussi s'il vous plais pourrai vous m'aider ???

a faire un chemin relatif et quand je renomme les dossiers ça va marché

merci en avance

Marc,

voici le code:

Sub Mise_à_jour()

Application.ScreenUpdating = False

Dim ZFA As Workbook

Dim PlgFE1 As Range

Dim PlgFE2 As Range

Dim Cel1 As Range

Dim Cel2 As Range

Workbooks.Open Filename:=ThisWorkbook.Path & "\ZFA.xls"

'teste si le classeur est ouvert...

On Error Resume Next

Set ZFA= Workbooks("ZFA.xls")

'...si non, l'ouvre

If Err.Number <> 0 Then Set ZFA = Workbooks.Open(chemin_globale)

'supprime le gestionnaire d'erreur

On Error GoTo 0

With ZFA.Worksheets("Feuil1"):

Set PlgFE1 = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp)):

End With

With Workbooks("ZFI.xlsm").Worksheets("Documents"):

Set PlgFE2 = .Range(.Cells(4, 4), .Cells(.Rows.Count, 4).End(xlUp)):

End With

For Each Cel1 In PlgFE1 'pour chaque cellule 1 dans fichier ZFA.Worksheets("Feuil1")

For Each Cel2 In PlgFE2 'pour chaque cellule 2 dans fichier ("ZFI.xlsm").Worksheets("Documents")

If Cel1.Value = Cel2.Value Then Cel2.Offset(, 1).Value = Cel1.Offset(, 2).Value

Next Cel2

Next Cel1

ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub

Bonjour

J'avais cree un macro suivant pour recuperer des QAQC d,une annee precise, mais sa prend du temps.

Il faut les faires un a un.

Apres j'ai creer un autre fichier .xlsm ou j'ai tous les QAQC de l'annee 2019 dans chaque cellule.

Maintenant, il n'est pas possible de creer un boucle pour faire la meme chose que dans le premier fichier pour chaque cellule de ce fichier, sachant chaque cellule (A:) correspond au link du fichier .xlsm d'un QAQC et (B:) LA DATE.

Voici le macro

Sub Copy()

Dim Path As String

Dim QAQC As Variant

Dim wbQAQC As String

Dim wbFile As String

Dim BlastDate As Date

Dim Pit As String

Dim Pattern As String

Dim SurveyXY_V_Design_NC As Variant

Dim DrilledXY_V_Design_NC As Variant

Dim Design_Charge As Variant, Actual_Charge As Variant, Volume As Variant

Dim DrilledD_V_Design As Variant, ChargedD_V_Design As Variant, Stemming_NC As Variant

Dim HDesigned As Integer, HMarked As Integer, HDrilled As Integer, HCharged As Integer

Dim Underdcharged As Variant, Overcharged As Variant, CorrectlyCharged As Variant, Charged_ShortD As Variant, Charged_LongD As Variant, Charged_correctD As Variant

Application.ScreenUpdating = False

Sheets("Run").Select

Path = Range("C7").Value

wbFile = Range("C8").Value

Do

ChDir Path

QAQC = Application.GetOpenFilename _

(Title:="Please choose a QAQC file to open", _

FileFilter:="XlS *.xls* (*.xls*),")

wbQAQC = Mid(QAQC, InStrRev(QAQC, "\") + 1)

If QAQC = False Then

MsgBox "No file selected.", vbExclamation, "Sorry!"

Application.ScreenUpdating = True

Exit Do

Else

Workbooks.Open Filename:=QAQC

Windows(wbQAQC).Activate

Sheets("TYPED INPUTS").Select

BlastDate = Range("E2").Value

Pit = Range("E3").Value

Pattern = Range("C2").Value

Volume = Range("C10").Value

Design_Charge = Range("K8").Value

Actual_Charge = Range("K9").Value

HDesigned = Range("K16").Value

HMarked = Range("K17").Value

HDrilled = Range("K18").Value

HCharged = Range("K19").Value

Underdcharged = Range("K22").Value

Overcharged = Range("K23").Value

CorrectlyCharged = Range("K25").Value

Charged_ShortD = Range("K26").Value

Charged_LongD = Range("K27").Value

Charged_correctD = Range("K29").Value

Sheets("CALCULATED INPUTS").Select

SurveyXY_V_Design_NC = Range("AA6").Value

DrilledXY_V_Design_NC = Range("AG6").Value

DrilledD_V_Design_NC = Range("AM6").Value

ChargedD_V_Design_NC = Range("AY6").Value

Stemming_NC = Range("BX6").Value

Workbooks(wbQAQC).Close False

Windows(wbFile).Activate

Sheets("Data_DB_QAQC").Select

Range("A1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select

ActiveCell.Value = BlastDate

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Pit

ActiveCell.Offset(0, 2).Select

ActiveCell.Value = Pattern

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Volume

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = HDesigned

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = HMarked

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = HDrilled

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = HCharged

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Design_Charge

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Actual_Charge

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Underdcharged

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Overcharged

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = CorrectlyCharged

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Charged_ShortD

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Charged_LongD

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Charged_correctD

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = SurveyXY_V_Design_NC

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = DrilledXY_V_Design_NC

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = DrilledD_V_Design_NC

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = ChargedD_V_Design_NC

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Stemming_NC

ActiveCell.Offset(0, 1).Select

Loop

Application.ScreenUpdating = True

End Sub

Merci de m'aider.

Bonjour à tous !

Je me trouve un peu en difficulté car je cherche à extraire des informations de plusieurs fichiers excels présents dans différents dossiers.

La structure des fichiers est toujours la même et les informations à extraire dans des cellules spécifiques.

Mon objectif serait de compiler dans un nouveau fichier l'ensemble des données avec une ligne par fichier source

J'ai vu différents exemple d'extraction de données sur excel provenant de plusieurs fichiers mais je ne parviens pas à les utiliser pour mon cas.

Si quelqu'un pouvait m'aider car je n'y connait pas grand chose en VBA.

Merci beaucoup !

PJ : Fichiers types (FICHIER_1 FICHIER_2)

Fichier destination FICHIER SYNTHESE

1fichier-2.xlsx (18.54 Ko)
1fichier-1.xlsx (18.59 Ko)

Bonjour à tous

je souhaite sélectionner des fichiers excels et changer leurs nominations, je vous transmets une partie de macro que je commence à faire (fichier changement nom fichiers excel), mais je bloque.

la nomination actuelle (fichier OT150.CVI Echangeur_ARK2020 rev00) n'est pas bonne, les noms des fichiers doivent être sous cette forme:

OT_(cellule AA2 du fichier OT...)_(cellule D5 du fichier OT...)_ARK2020rev00

La macro passe d'un fichier à un autre.

Merçi pour tt aide.

Bonjour,

Avant de commencer, je precise que je suis newbie en vba. CA va peut etre eviter qu'on me balance des tomates si la reponse etait evidente

Je cherche à executer une macro sur un ensemble de fichiers excel.

J'ai donc un premier bout de code qui va m'ouvrir mes fichiers via une dialog box, qui me lance ma macro puis qui sauve et quitte le fichier.

Ce premier bout de code fonctionne, le voici :

Sub test()
 Const type_fichier As String = "tous fichiers, *.*"
 Dim FichierChoisi As String

  'Choisir un fichier
  FichierChoisi = Application.GetOpenFilename("Fichiers Excel, *.xlsx")
  If FichierChoisi = "" Then Exit Sub

  'ouvrir le fichier
  Workbooks.Open (FichierChoisi)

  'traitement

    Call V_uniques

  'puis à la fin fermer et enregistrer le fichier
  ActiveWorkbook.Close savechanges:=True
End Sub

Là où ça ne marche plus c'est l'execution de la macro...

Ce qu'elle fait, c'est rajouter l'autofiltre, et filtrer 3 colones

puis en copier une dans un nouvel onglet

et garder que les valeurs uniques de cette colonne du nouvel onglet.

Sub V_uniques()
'
' V_uniques Macro
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    Range("BY1").Select
    ActiveSheet.Range("$A$1:$CS$101425").AutoFilter Field:=71, Criteria1:= _
        "Confirmed"
    ActiveSheet.Range("$A$1:$CS$101425").AutoFilter Field:=72, Criteria1:="=4" _
        , Operator:=xlOr, Criteria2:="=5"
    ActiveSheet.Range("$A$1:$CS$101425").AutoFilter Field:=73, Criteria1:=Array _
        ("Active", "New", "Re-Opened"), Operator:=xlFilterValues
    Range("BR1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$839").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Avec F8 le plantage se fait au niveau du Rows("1:1").Select avec le message Run-time error '1004': Application-defined or object-defined error

C'est pour un rendu demain au boulot...

Pour info, si j'enregistre ma macro dans chacun de mes fichiers et l'execute, ca marche.

C'est juste que j'ai +2000 fichiers...

Mille mercis !

Bonjour,

Nouveau sur le forum et voyant son activité régulière, je me permets de poster ici mon problème.

Je suis en apprentissage dans une entreprise, et l'une de mes missions est de rassembler 1200 fichiers excels.

Plusieurs contraintes :

  • Les intitulés de colonnes ne portent pas forcément les mêmes noms mais les types de données saisies sont les mêmes.
  • Je souhaiterais également ajouter une colonne dans mon fichier compiler où on pourrait avoir le titre du fichier pour connaître à quel dossier appartenait la donnée.

un exemple :

j'ai plusieurs fichiers :

13020400_jardiland_bourges_MTE (AA/MM/JJ/JJ car ça peut etre sur deux jours)

13021200_truffault_bourges_EDN

dans ses fichiers on retrouve le nom des clients, mails, tel, et commandes

J'espère avoir donner assez d'informations !

Merci à vous.

Cordialement. Vincent.

Bonjour à tous,

Voilà je cherche à résoudre un probléme qui concerne la mise à jour de plusieurs fichiers Excel à l'aide d'un seul. Je m'explique pour chaque "référence de produit" j'ai un fichier excel avec le suivi des ventes de ce produit. Tous ces fichiers sont fait de la même maniére et utilise les mêmes macros. Ces macros sont faites pour aller extraire des données dans 3 autres fichiers sources Excel qui eux sont remplis une fois par mois. Ce que je voudrais, c'est faire un fichier excel qui me permet de mettre à jour tous mes fichiers produits une foie que mes fichiers sources soient remplis. Cela me permettra d'éviter de faire la mise à jour sur chaque fichier produit. Etant novice en Excel je suis à la recherche d'idées??

Je vous remercie par avance de l'attention que vous porterez à ma demande

Bonjour,

Je souhaite compléter automatiquement les lignes du Fichier : Fichier tableau issu du cumul de fichier base, à partir des informations du Fichier : Fichier base.

Il faut bien entendu que les informations rapportées sur le Fichier : Fichier tableau issu du cumul de fichier base, viennent se mettre les unes à la suite des autres sans les écraser après chaque enregistrement.

Le nom du Fichier : Fichier base sera différent à chaque fois. Je souhiate pouvoir sélectionner soit le dossier où ces fichiers Excel se trouvent, soit plusieurs fichiers à la fois et ensuite lancer le traitement (remplissage du Fichier : Fichier tableau issu du cumul de fichier base).

PS : Les informations à rapportées sont soit du texte soit le texte se trouvant à gauche d'une cellule marquée d'un X. Attention, si pour une meme caractéristique (Caractéristique 1 par exemple), les deux cellules de gauche doivent s'affichées et etre rapportées).

Si vous souhaitez plus d'informations n'hésitez pas.

Par avance, un grand merci.

23fichier-base.xlsx (8.99 Ko)

Bonjour à toutes et à tous,

Je débute depuis quelques mois sur VBA, et ce forum m'a été très utile, merci à ceux qui proposent leur aide !

Aujourd'hui à mon tour de vous demander un coup de main.

Je travaille sur un projet d'extraction de données, afin de les compiler dans un fichier excel récapitulatif unique.

Aujourd'hui, avec le peu de connaissances dont je dispose, j'ai une macro qui fonctionne, mais qui n'est absolument pas optimisée en terme de temps d’exécution. Je souhaites donc améliorer tout ça, maintenant que j'ai une base fonctionnelle.

Voici le fonctionnement global :

  • A l'aide d'un userform, je sélectionne dans un premier temps 3 fichiers Excels différents qui contiennent les données que je souhaite rassembler dans un fichier de sortie récapitulatif unique.
  • Je démarre l'extraction
  • Les 3 fichiers s'ouvrent (ces derniers étant très volumineux, le démarrage de ces 3 derniers peut déjà prendre de 2 à 3 minutes)
  • La macro procède à une sélection fichier source>sélection page source>sélection cellule source>copie
  • Puis, la macro procède au collage de la donnée de la manière suivante : sélection fichier sortie>sélection page sortie>sélection cellule sortie>colle

D'un point de vue code ça donne ça :

'Extraire vitesse en km/h
    Wbk_excel_source_1.Activate 'j'ai plusieurs fichiers excels source, je les définis plus tôt comme des workbook
    Sheets("R1").Select 'je selectionne la page qui m'interesse
    Range("F6").Select 'la cellule qui m'interesse
    Selection.Copy 'la copie
    Windows("Extraction.xlsm").Activate 'retourne sur mon excel de sortie
    Sheets("Version1").Select 'selectionne la feuille de sortie
    Cells(I, "G").Select 'selectionne la cellule de sortie, ici la variable I représente la premiere ligne vierge de mon excel de sortie
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'je ne copie que la valeur

'Extraire masse
    Wbk_excel_source_2.Activate
    Sheets("R3").Select
    Range("N6").Select
    Selection.Copy
    Windows("Extraction.xlsm").Activate
    Sheets("Version1").Select
    Cells(I, "H").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Et je répète selon le même principe ce bout de code pour environ une centaine de cellules (un peu disgracieux comme manière de procéder), disposées sans réelle logique dans mes fichiers source (pas de disposition en colonne ou ligne, je pioche un peu partout)

Une extraction (une fois les fichiers sources ouverts) dure environ 1min30 à 2min.

A moins que je dise une bêtise, il devrait être possible de transformer ce bout de code en "fonction" ?

du style : fonction_extraction(cellule source, cellule sortie) ?

et en créant une fonction par fichier source et page source.

Si je parviens déjà à mettre en place ça, je pense que l’exécution sera raccourcie.

Dans un second temps j'ai vu qu'il était possible de procéder à une extraction sans ouverture des fichiers sources, mais j'ai du mal à cerner le fonctionnement..

En vous remerciant par avance !

Le problème est simple:

J'ai un dossier qui contient des fichiers excels (il y en a qui se rajoute tout les jours dans ce meme dossier). Et Je souhaite récupérer uniquement la case A1 de l'ensemble de ces fichiers et qu'elles s'upload sur un fichier récapitulatif .

La difficulté c'est que je veux que celà se fasse automatiquement à chaque ajout de tableau excel dans le dossier.

J'ai pu trouver ce code si dessous sur se site mais il ne me renvoie que les adresses des fichiers et j'aurais besoins juste aussi de la valeur en A1 du coup .

Merci par avance de votre aide. Bonne continuation et j'espère à très vite.

MadCat

7forum.zip (16.66 Ko)
18planning-test.xlsx (153.54 Ko)

Bonjour à tous,

Je travaille actuellement sur une réorganisation de la configuration de plannings salariés.

En effet, susceptibles de travailler sur plusieurs centres (il y en a 9 au total), il m'est compliqué de calculer le nb total d'heures qu'ils effectuent au cours du mois, tt centres confondus.

Je souhaiterais donc automatiser le calcul des heures travaillées de chaque salarié en utilisant la recherche H du fait de la configuration de mon tableau. Ainsi, si un salarié effectue 24 h pour le centre de paris et 24 heures pour celui de Bobigny, sont total mensuel serait de 48h travaillées.

Malheureusement, après plusieurs essais, je n'arrive toujours pas à automatiser ce calcul.

Soit la formule marche un coup sur l'autre, soit elle renvoie à une valeur non cohérente, soit "#NA "s'affiche.

Pourriez-vous m'aider svp, je sèche...

Je vous joins un fichier test où le but est comptabiliser les heures globales (tt centres confondus) effectuées par les salariés de Villette (feuille 3). J'ai réalisé un tableau en dessous du planning afin de faire le recap (c'est là que je compte inscrire mes formules).

Cela vous aidera peut-être à mieux comprendre mon casse tête.

Par avance merci

Bonjour,

Je travaille dans un hotel resto et nous utilisons un excel pour nos résas.

Nous mettons tout un tas de détails necessaires pour gérer nos arrivées-départs, dans celui-ci (ex, nom, heure d'arrivée, arrhes versé...)

Ces details rendent compliqué la visibilité globale .lorsque nous avons un appel de clients

J'aimerai donc lier mon excel détaillé à un autre excel plus synthetique. Quand je passe en rouge une chambre réservée sur mon excel detaillé je voufrais que sur l'excel synthetique la case correspondante se mette elle aussi en rouge, idem pour une préreservation que je met en bleu.

comment faire?

Merci pour votre aide!!

Bonjour,

Serait-il possible (et souhaitable) de scinder la rubrique Excel-VBA en 2.

On pourrait avoir une rubrique Excel regroupant toutes les questions Excel (utilsation, formules ... , enfin tout sauf le VBA) et une autre spécialement dédiée à la programmation.

Bon c'est un peu égoïste mais comme je ne pratique pas le VBA cela me permettrait de ne pas lire un sujet qui lui est dédié. (même si parfois l'aperçu lors du survol à la souris permet de le voir).

A+

Bonjour à tous,

j'aurai besoin de vos lumières. Je pense qu'il y a une solution.

Je reçois des patients, j'ai donc un fichier type excel pour leurs dossiers.

Ce fichier est nommé "AAA- Fiche patient" que je vous joints.

quand je reçois un nouveau patient, je clique sur ce fichier, je remplis les informations nécessaires, et je fais "enregistrer sous" avec comme nom de fichier le NOM et Prénom du patient en question. Je ferme ensuite le fichier. J'ai un nouveau dossier au nom du patient et le fichier "AAA-Fiche patient" reste vierge pour les patients suivants.

J'aimerai créé un lien entre chaques cellules administratives de mon fichier patient et un nouveau fichier excel nommé "résume administratif" qui me listerai dans un même fichier, tous les nom, prénom, date de naissance, mail etc de chaque patient...

J'ai donc dans la cellule A2 de "résumé administratif" fait "=", puis cliquer sur la case a remplir en face du nom du fichier "AAA-Fiche patient" (cellule fusionner EF4), puis fait CTRL+Maj+entré (sinon ca ne marche pas avec juste entré). Et la liaison est créer... Ca marche très bien! Je fais ensuite fichier enregistré sous avec nom de fichier TEST1. la liaison est gardé avec le fichier ayant TEST 1. Mais les problèmes arrivent maintenant... Au patient suivant, quand j'ouvre à nouveau "AAA-fiche patient" qui est vierge pour inscrire un nouveau nom de patient, j'aimerai que le nom indiqué dans la cellule fusionner EF4 du fichier "AAA-fiche patient" se copie dans la cellule A3 du fichier administratif. etc etc pour le 3eme patient A4, pour le 4eme patient A5 etc Je ne sais pas comment faire...

Savez vous comment faire?

Je vous remercie par avance

Au plaisir de vous lire

Cordialement

Heyios!

3test-1.xlsx (41.53 Ko)

Bonjour à tous,

Je suis novice dans le domaine et je demande votre aide.

Je souhaiterais faire un lien entre 2 fichiers excel.

Le premier fichier est un fichier de contrôle de produit. On y retrouve une référence produit, un fournisseur correspondant et le statut du contrôle à la fin de celui-ci.

Le second fichier est une base de données avec la liste de tout mes produits liés à leur référence. Un même produit peut avoir plusieurs fournisseurs. On retrouve donc dans une même ligne une référence produit et plusieurs colonnes de fournisseurs pouvant aller pour l'instant jusqu'à 7. Pour chaque fournisseur j'ai un statut de contrôle avec 3 types:

  • A signifie que c'est une première livraison donc un contrôle classique
  • B signifie que c'est un habitué donc pas de contrôle
  • C signifie que nous avons récemment eu un problème avec donc contrôle renforcé.

Quand une personne reçois un lot de produit dont le statut du contrôle est C, il le contrôle à l'aide de mon premier fichier et je dois ensuite manuellement mettre à jour le statut dans le second fichier.

Voici ma demande :

J'aimerais que lorsqu'une personne fait un contrôle à l'aide du premier fichier, il y ai un bouton "enregistrement".

A l'aide d'une macro, si le contrôle est OK, la macro ouvre le second fichier. Elle cherche ensuite la ligne correspondante à la référence contrôlée. Elle cherche ensuite le fournisseur correspondant et modifie le type de contrôle pour le mettre en type B dans la cellule juste à droite du fournisseur.

J'espère être assez clair, je reste entièrement disponible.

Merci d'avance.

Lelout

2bdd-controle.xlsx (17.68 Ko)
3controle.xlsx (9.25 Ko)

Hello,

J'ai une petite question,

J'ai une matrice de dossier comme suit :

Dossier1 Contient

  • Sous dossier 1
  • Sous dossier 2 qui contient un fichier excel 2
  • Sous dossier 3
  • Fichier Excel 1

Mon problème est que le dossier 1 est un modèle que je copie colle régulièrement, donc lorsque je met des liaisons entre le fichier excel 2 et le fichier excel 1, la liaison reste dans le modèle et non dans le dossier que j'ai copier coller.

Existe-t-il un moyen de faire un VBA ou une liaison qui lorsque je copie colle le Dossier, les liaisons se fasse entre les 2 excels du dossier ?

Merci

Recherches récentes

attendu expressioncomment saisir uniquement valeurs numeriquesfractionner lignesfiltrer comboboxcombobox multiselectioncroise dynamiquetrier colonne listboxdecalersimulation trainformule conversion tempsoutlook vbaconversion tempsconvertir tempsimporter classeur fermeregrouper feuillesimporter classeur ferme fichier variablecache edgefiltre avanceclignotantecoloriser ligne complete fonction variable liste