Résultats pour "perte donnees potentielle"

6'189 résultats pour cette recherche

Salut à tous et à toutes,

J'ai crée un questionnaire sur google forms que j'ai enregistré sur mon mac au format csv.

Lorsque j'ouvre le ficher sur excel j'obtiens ça (cf image).

Lorsque je convertis le fichier csv->xls ou autre le problème persiste.

Je précise que je ne maîtrise absolument par excel...

Si vous pouviez me faire venir, je vous en serais reconnaissant.

Mika

capture d ecran 2019 10 15 a 08 57 34

Bonjour à tous,

J'ai un fichier excel de +/- 35 000 lignes qui contient un grand nombre de quasi doublons.

Un fichier vaut mieux que 1000 mots, donc je vous mets une situation en PJ qui résume parfaitement les problématiques rencontrées. Il contient 5 lignes et j'aimerais en avoir 2 à la fin du dédoublonnage sans pour autant perdre d'informations.

Est-il possible de "rassembler" des lignes doublons par une sorte de concatener horizontal ?

J'espère que ma situation sera claire pour vous mais n'hésitez pas à revenir vers moi au besoin .

Milles mercis,

Fabien

Bonjour,

J'ai une petite question, car je n'arrive pas à trouver l'info exacte...

J'ai travaillé sur un .csv sans faire attention cet après-midi ; j'y ai créé plusieurs macros puis j'ai fermé en enregistrant.

Quand je l'ai rouvert, la première feuille était présente mais aucune macro.

C'est là que j'ai vu que le document est en .csv ; mon travail est-il perdu ?

Bonne fin de journée.

Bonjour voici un fichier ou il y dans le sommaire 13 onglet .Dans le sommaire il y a une cellule a1 ou je peut changer les annees des 13 onglet mais comment faire pour que si je rempli des cellules dans les 13 onglets et que je change d annee cela me remets soit une année vierge et si je retourne dans l anne ou j etais avant cela me remets les bonne information que j avais rempli avant .Cordialement

Bonjour à tous,

Un fichier excel dans lequel je fais m'a compta depuis 10ans vient de me faire un mauvais coup :

Certaines cellules masquées se sont ré-affichées, des colonnes se sont supprimées et des cellules vidées. (dans à peu près toutes les feuilles)

Certain de ne pas avoir fait de mauvaise manip. Avez-vous une idée du problème?

Merci d'avance

Bonjour a tous,

Voici mon problème:

J'ai une macro qui envoie un email avec beaucoup de variable:

Sub EnvoiSimple()

'déclaration des variables
    Dim OutApp As Object
    Dim OutMail As Object

'
DerL = Range("A" & Rows.Count).End(xlUp).Row
corps = ""
entete = "Bonjour" & ThisWorkbook.Sheets("Administrateur").Range("R17").Value & ThisWorkbook.Sheets("Administrateur").Range("S17").Value & vbCrLf & vbCrLf & "Voici la liste du personnelle aillant besoin d'un renouvellement quelquonque: " & vbCrLf

For i = 2 To DerL

      If ThisWorkbook.Sheets("DRH").Range("C" & i) = "1" Then
        Message = "Badge rouge"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("A" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("A1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("B" & i).Value & Chr(13)

      End If

      If ThisWorkbook.Sheets("DRH").Range("C" & i) = "2" Then
        Message = "Badge rouge"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("A" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("A1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("B" & i).Value & Chr(13)

      End If

      If ThisWorkbook.Sheets("DRH").Range("F" & i) = "1" Then

        corps = corps & ThisWorkbook.Sheets("DRH").Range("D" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("D1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("E" & i).Value & Chr(13)

      End If

       If ThisWorkbook.Sheets("DRH").Range("F" & i) = "2" Then

        corps = corps & ThisWorkbook.Sheets("DRH").Range("D" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("D1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("E" & i).Value & Chr(13)

      End If
       If ThisWorkbook.Sheets("DRH").Range("I" & i) = "1" Then
        Message = "Médecine du travail"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("G" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("G1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("H" & i).Value & Chr(13)

      End If

         If ThisWorkbook.Sheets("DRH").Range("I" & i) = "2" Then
        Message = "Médecine du travail"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("G" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("G1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("H" & i).Value & Chr(13)

      End If
Next i

            Set OutApp = CreateObject("Outlook.Application")

            Set OutMail = OutApp.CreateItem(0)

            On Error Resume Next
            With OutMail
                'destinataires
                 '.From = "Essai from"

                 .To = ThisWorkbook.Sheets("Administrateur").Range("U17").Value
                '.To = "test"
                '.CC = ThisWorkbook.Sheets("Envoi Mail").Range("B3").Value
                '.BCC = ""
                'objet du mail
                 .Subject = "Alerte Badge rouge"
                ' corps du message
                 .Body = entete & corps
                 .Message = badge_rouge

                ' fichier en pièce jointe
                 'Feuile de calcul
                '.Attachments.Add ActiveWorkbook.FullName
                'Fichier du disque dur
                '.Attachments.Add "C:\****\****\****\**\NomFichier.Ext"
                'Ou
                '.Attachments.Add ThisWorkbook.Sheets("Feuil1").Range("H20").Value

                .Send
             End With
             On Error GoTo 0
             Set OutMail = Nothing
             Set OutApp = Nothing

    'fermer le classeur à la fin
    'ThisWorkbook.Close
End Sub
'

le problème est quand je modifie la ligne (entete="Bonjour" & ....) soit par le code de la macro en elle meme ou bien modifier les variables directement sur l'onglet (car elle prend des variables sur l'onglet Administrateur) le mail s'envoie mais toute le code suivant ne fonctionne plus:

For i = 2 To DerL

      If ThisWorkbook.Sheets("DRH").Range("C" & i) = "1" Then
        Message = "Badge rouge"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("A" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("A1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("B" & i).Value & Chr(13)

      End If

      If ThisWorkbook.Sheets("DRH").Range("C" & i) = "2" Then
        Message = "Badge rouge"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("A" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("A1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("B" & i).Value & Chr(13)

      End If

      If ThisWorkbook.Sheets("DRH").Range("F" & i) = "1" Then

        corps = corps & ThisWorkbook.Sheets("DRH").Range("D" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("D1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("E" & i).Value & Chr(13)

      End If

       If ThisWorkbook.Sheets("DRH").Range("F" & i) = "2" Then

        corps = corps & ThisWorkbook.Sheets("DRH").Range("D" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("D1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("E" & i).Value & Chr(13)

      End If
       If ThisWorkbook.Sheets("DRH").Range("I" & i) = "1" Then
        Message = "Médecine du travail"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("G" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("G1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("H" & i).Value & Chr(13)

      End If

         If ThisWorkbook.Sheets("DRH").Range("I" & i) = "2" Then
        Message = "Médecine du travail"
        corps = corps & ThisWorkbook.Sheets("DRH").Range("G" & i).Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("G1").Value & " - " _
                      & ThisWorkbook.Sheets("DRH").Range("H" & i).Value & Chr(13)

      End If

Auriez vous une idée pour m'aider?

PS: pour envoyer l'email sur votre boite mail pour tester, il faut la modifier dans l'onglet administrateur cellule U17

Cordialement

4status-igo-2.xlsm (166.16 Ko)

Bonjour à tous !

J'ai réalisé un petit bout de macro pour pouvoir importer un fichier texte à partir d'un bouton.

Seulement j'ai un petit souci, mon fichier est composé de texte et chiffres à virgules et lors de l'importation, mes virgules disparaissent !

Ex: je passe de 95,212 à 95 212

Une idée du pourquoi du comment ?

Voici ma macro:

Function Lire(ByVal NomFichier As String)

Dim Chaine As String

Dim Ar() As String

Dim i As Long

Dim iRow As Long, iCol As Long

Dim NumFichier As String

Dim Separateur As String * 1

' Séparateur Tabulation

Separateur = Chr(9)

Selection.Replace Chr(160), ","

Cells.Clear

NumFichier = FreeFile

iRow = 1

Open NomFichier For Input As #NumFichier

Do While Not EOF(NumFichier)

iCol = 1

Line Input #NumFichier, Chaine

Ar = Split(Chaine, Separateur)

For i = LBound(Ar) To UBound(Ar)

Cells(iRow, iCol) = Ar(i)

iCol = iCol + 1

Next

iRow = iRow + 1

Loop

Close #NumFichier

End Function

Bonjour,

Je me retourne vers vous pour un petit élément qui commence à sérieusement m'agacer. Pour faire simple, je reçoit régulièrement de la part d'un tiers un fichiers excel que je ne peu utiliser dans l'état. J'ai donc créer un fichier excel permettant de les traiter de manière automatique, avant d'envoyer les données sur un autre fichier excel "base de données". Je bloque sur cette envoie. Voici mon code actuelle (simplifié à une unique valeur tant que je n'arrive pas à résoudre mon souci ><):

Workbooks(nom).Worksheets("Feuil1").Range("G3").Value = Workbooks("Principal.xlsm").Worksheets("definitif").Range("G3").Value

La valeur à transférer est une latitude type 44,555632256. Une fois la macro terminé, la valeur inscrite dans la base de donné est 44555632256 : les bons chiffres, mais sans la virgule .

J'ai tenté de regarder la valeur envoyé via une msgbox

 msgbox Workbooks("Principal.xlsm").Worksheets("definitif").Range("G3").Value

la valeur renvoyer est alors correcte, avec sa virgule.

Merci par avance pour votre aide

Bonjours à tous,

J'espère que l'un de vous pourra m'aider.

J'ai écris une macro VBA me permettant de réaliser un TCD avec comme filtre principale, le numéro de compteur électrique.

Au départ de ce TCD, je souhaite réaliser un graphique 3D empilé représentant pour chaque numéro de compteur, sa consommation pour les année 2014 et 2015 par exemple.

J'y arrive en bouclant sur les items de mon filtre principal.

Mon problème :

A chaque nouveau graphique créé en fonction du numéro de la valeur de l'item sélectionné, le graphique précédent prend les vakeurs de celui qui vient d'être créé. Au bout de 9 occurance, je me retrouve donc avec 9 graphique identique (((

Ma question :

Est-il donc possible de réaliser au départ d'un TCD plusieurs graphiques sur des onglets différents, en fonction d'un indice pivot contenant plusieurs items ?

Solution trouvée mais loin d'être idéale

Sauvegarder au fur et a mesure de leur création, les graphiques en image gif ou jpg

Merci de jetter un oeuil sur le code ci-dessous.

D'avance merci pour votre réponse.

Bien à vous,

'Set objChart = ActiveSheet

 With wshTCD
 i = 1
   For Each pvtItem In wshTCD.PivotTables("TCD_EAN").PivotFields("EAN").PivotItems
                wshTCD.Select
                strPvtFldItem = pvtItem
                With PvtTBL.PivotFields("EAN")
                    .CurrentPage = strPvtFldItem
                End With

            'ActiveWorkbook.Charts.Add after:=Worksheets("TCD automatique"), Count:=1

            Set objChart = Charts.Add

            Set objChart = ActiveSheet

            nomGraph = "Graph " & i

            Set rngChart = PvtTBL.TableRange2

            With objChart
                 .SetSourceData rngChart
                 .Name = nomGraph

                .ChartType = xl3DColumnStacked

                .HasTitle = True

                    .ChartTitle.Text = "Evolution de la consommation " & " - " & nomGraph & " - " & "EAN" & " - " & strPvtFldItem
                    .ChartTitle.Font.Color = RGB(0, 30, 90)
                    .ChartTitle.Font.Bold = True
                    .ChartTitle.Font.Size = 14

                .Legend.Position = xlLegendPositionTop

            End With
            'oChObj.RoundedCorners = True
            'oChObj.Placement = xlfreefloatingue

           '  Solution quand quote enlevé
            'Enregistrer le graphique en image .gif ou .jpg
            'Fname = nomGraph
            'Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
            'ActiveChart.Export Filename:=Fname, FilterName:="GIF"

               i = i + 1

              wshTCD.Select

    Next
End With

End Sub

Bonjour,

je viens chercher un peu d'aide car je sèche.

J'ai testé il y a quelques jours l'insertion de données à partir du web (depuis un site boursier).

En voulant refaire un nouvel essai à partir du même site je n'ai plus les flèches jaunes à certains endroits alors que c'était le cas avant !

Avez vous déjà rencontré ce pb ?

je sais que j'ai "bidouillé" les paramètres d'excel pour faire des tests mais je ne sais plus ce que j'ai fait et une réparation n'a rien changé, est ce que vous pensez que cela peu venir de la?

en PJ j'ai mis un imprime écran et encadré la ou j'avais les flèches.

j'ai excel 2010.

Merci pour votre aide ou vos remarques.

Bonne soirée

donnees a partir du web

Bonjour,

sur le fichier joint, que j'ai créé, quand je l'ouvre depuis 2-3 jours, j'ai un message "erreur de fichier : risque de perte de données"

j'ai cherché un peu sur le net... mais à part une solution qui dit de passer par open office, faire je sais plus quelle manip, et revenir sous MS office (chose un peu barbare à mon avis), je ne vois pas qu'est ce qui cloche sur le fichier...

Y a t'il un moyen pour l'analyser et déceler le problème?

fichier créé et ouvert via office 2000 (et le w-e il est ouvert et sauvé sous office 2003)...

Merci!

30car-aquitania.zip (67.90 Ko)

Bonjour le forum,

J'ouvre le Formulaire enfant, je selectionne un licencié et mes données entrent dans les textebox, avec le bouton Coordonnées parents j'ouvre mon second formulaire et mes données entrent dans les textebox.

la est mon probléme car quand je repasse sur mon Formulaire enfant sans fermer mon userform Coordonnées parents mes textbox et combobox se vide .

Le but de tout cela est de mettre un bouton imprimer de recuperer les données des 2 userforms .

Si vous avez une solution ca me faciliterai bien les choses

Unn grand merci d'avance a vous

11userforms.zip (61.80 Ko)

Bonjour à tous,

j'ai essayé de faire un titre qui vous résume ce que je tente désespérément de faire depuis 3 semaines...

Je suis toute débutante sur VBA, on m'a confié ce projet suite à une formation interne de 3 jours et je crois que mes petites compétences touchent leurs limites.

Je vous explique :

J'ai une première feuille excel (BASE) qui présente 774 lignes et 7 colonnes.

A = date

B = prix A

C = prix B

D = prix A - prix B

E = estimation statistique de D

F = D - E

G = ID

Je cherche à créer une seconde feuille (RESULTS) qui contiendra 12 colonnes en dépendant de la feuille BASE.

La première instruction :

Si abs(BASE.range("f")) > abs (Seuil)

(seuil étant une donnée imposée que j'ai stockée dans une 3ème feuille)

alors on répertorie dans la feuille RESULTS la date correspondante à F dans BASE, prix A, prix B, D F et G

Jusque là, je n'ai pas de difficulté, tout roule.

Là où ça devient plus compliqué (pour moi en tous cas) :

Maintenant, je cherche, pour chaque date répertoriée dans RESULTS, à faire le calcul suivant :

BASE.range("d") - RESULTS.range("d")

lorsque ce calcul est supérieur à GAIN (une nouvelle constante que j'ai stockée dans la 3ème feuille) alors on répertorie la date correspondante dans RESULTS, la valeur de D pour cette date et le résultat du calcul.

Le tout est que je n'arrive pas à faire comprendre à VBA qu'il doit faire ce calcul pour chacune des dates qu'il a trouvées dans RESULTS; que ces dates sont tour à tour sa référence et qu'il doit trouver cette référence dans BASE pour effectuer le calcul sur toutes les lignes suivantes de BASE jusqu'à répondre à ma condition.

Je ne sais pas si c'est très clair en français...

Si vous voulez que je joigne mon fichier, dites le moi.

Je commence sincèrement à désespérer.

J'ai tenté des boucles dans des boucles, des boucles séparés, des base.range.find; etc... et la macro tourne sans bug mais ne me donne AUCUN résultat. Alors je commence à manquer d'imagination et d'idées pour y arriver.

D'avance merci de votre aide

Bonjour à tous,

J'ai mis en place, à l'usage de plusieurs utilisateurs, des fichiers en lien les uns avec les autres.

A l'ouverture de certains fichiers, j'ai le message "Erreur de fichier risque de perte de données".

Du coup, les formules sont remplacées par "=#N/A" et je perds tout lien avec les fichiers souces.

Dans un premier temps, j'ai pensé que l'organisation des fichiers était trop découpée et que le chemin d'accès aux fichiers sources était trop long, j'ai donc mis tous les fichiers dans un même dossier pour éviter les formules trop longues.

Ca ne marche pas davantage.

J'ai cherché sur le forum sans trouver de solution.

Si vous avez une idée de ce que je dois faire, merci de m'en faire part.

Bonne journée

Bonjour à tous,

Voila, je travail sur une base de donnée documentaire sous excel. Il comporte beaucoup de macro, dont une assez conséquente, il est de plus très lourd; + de 100 Mo. Mais j'ai un gros problème. j'ai conçu ma base sous Windows 2000 avec Excel 2000 version 9.0.3821.SR-1. Lorsque je veux l'ouvrir sou Windows Vista sous Excel 2000, il me mettait "Erreur de fichier: Risque de perte de donnée". Alors j'ai tout recommencé sous Vista, la majorité des postes de la boite état sou Vista, je pensais que le problème d'une incompatibilité de version, et du coup je pensais le résoudre. Seulement, En ouvrant ma nouvelle base sous Vista, avec Excel 2000 version 9.0.3821.SR-1, sur le même poste il me remet le message d'erreur cité plus haut, alors que je venais de finir la conception hier encore! le plus invraisemblable, c'est quand j'essaie de l'ouvrir sou Windows 2000 avec la même version d'Excel, il n'y a pas de problème...

je ne trouve pas réponse, et les informaticiens de la boite sont incapable de mettre le doit sur le problème.

Voila mon, soucis en espérant qu'il est assez clairement expliqué.

Merci de vos réponse.

Clément.

bruno

Bonjour,

Mes fichiers excel se sont tous effacés et affichent une taille de 0 ko,

seul le nom du fichier est resté. Quelqu'un pourrait-il m'aider. Merci

Bonjour,

J'ai un fichier excel qui fonctionne très bien sur mon ordinateur.

Lorsque je le passe sur un autre ordinateur, tout fonctionne bien à part mon système de login et mots de passe qui devient inactif ainsi que mes button_click qui deviennent inactif également.

J'ai passé le fichier d'un pc à l'autre avec une clé en NTFS qui ne m'a pas donné de message d'erreur au niveau de perte de propriétés.

Les deux ordinateurs fonctionnent avec excel 2007.

Est ce que quelqu’un peut m'aider s'il vous plait car je ne comprends pas ce qu'il se passe.

Bonjour à tous.

Je bloque sur un tableau de calcul de pourcentage de perte en fonction des valeurs que je rentre tous les jours.

Je vous joins le tableau que j'aimerais obtenir.

12calcul-perte.xlsx (11.39 Ko)

Bonjour,

Je travaille sur Excel 365 sur Mac, mais pour des raisons de compatibilité interne à l'entreprise, j'enregistre tout au format 2003.

A chaque enregistrement, Excel me renvoie le message (faute d'orthographe comprise) :

"Vous risquez de perdre certaines fonctionnalités de votre classeur si vous l'enregistrer en tant que Classeur Excel 97-2004 (.xls)."

Y a-t-il un moyen de désactiver cette annonce, devenue parfaitement inutile ?

(je n'ai rien trouvé dans les Préférences).

Par avance, merci !

Bonjour,

j ai un probleme qui me pourrrit la vie depuis un moment...je joins un fichier pour etre plus claire, C est un fichier tres simplifié du fichier original mais mon besoin est exactement celui la.

J ai des infos que je rentre manuellement dans la colonne A (avec des fois des lignes vides), en B je supprime les lignes vides. En C je voudrais dans une seule cellule concatener les premieres cellules de colonne B (une 10aine de cellule en general).

Depuis quelques temps pour gagner du temps, je repars d un fichier existant pour en faire un nouveau car les infos de la colonne A sont souvent communes en partie, je dois peut etre supprimer ou inserer quelques lignes. Mais quand je supprime, plus rien de fonctionne, car perte de reference....

le probleme vient je pense de ma formule en colonne B ( formule trouvé sur le net adaptée a mon besoin)

Quelqu un a deja eu ce souci ?

merci a tous

Floreli

Recherches récentes

userformprotectioncdblcocherdatebaie informatiquemfccopier collercuveriesuivisharepoint vbasupprimer ligne valeur presente colonne precisecombobox fichier fermeecheancier semaineregrouper donnees ongletsrecuperer ongletsrecupererongletongletsregrouper onglets