Erreur sur macro excel : connection d.doc.lives.net suite à transfert fichier [Résolu]

Signaler
-
Messages postés
4
Date d'inscription
mardi 2 février 2021
Statut
Membre
Dernière intervention
14 février 2021
-
Bonjour à tous,

J'ai crée une petite macro qui fonctionne très bien sur mon pc.
Je l'ai transférée sur mon pc boulot , et là , à l'enregistrement des données entrés via formulaire, un popup me demandant un email et mdp s'affiche me demandant une connection d.doc.lives.net

j'ai regardé sur les forums mais pas vu de solution sur ce cas ..

Merci pour vos idées et conseils



Configuration: Windows / Chrome 88.0.4324.150

3 réponses

Messages postés
14278
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 février 2021
804
bonjour,
la solution dépend sans doute de ce que fait la macro.
Messages postés
4
Date d'inscription
mardi 2 février 2021
Statut
Membre
Dernière intervention
14 février 2021

Elle enregistre sur le mm wkbook les données.. et sauve le fichier. je mets le code .Merci

Option Explicit
Dim valeur As Byte
Dim dat As Date
Dim i As Integer, j As Integer
Public Fichier As Workbook


Dim budgetchoix As String
Dim fournisseur As String
Dim budgetGraph As Chart
Dim globalGraph As Chart
Dim rPlageAcceuil As Range
Dim rPlageSource As Range
Option Compare Text

Private Sub UserForm_Initialize() ''ok
'Remise à Zéro QD FERMETURE ET REINITIALISATION DU USERFORM
'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm'à l'initialisation de l'userform
Set Fichier = ThisWorkbook
' TEST VENDREDI
' Affecter une valeur à une variable (= fixer la valeur de la variable)
'Attention ce nom doit correspondre au nom de votre ONGLET
Me.ComboBox1.Clear
For i = 1 To Sheets.Count - 3
'on exclue les feuilles ENTREE,SITUATION GLOBALE et FOURNISSEURS dans laquelle le userform general fonctionne
Me.ComboBox1.AddItem Sheets(i).Name
Next
i = 0
ComboBox2.List = Sheets("FOURNISSEURS").Range("A:A").Value

End Sub
Private Sub USerForm_Activate() ''OK
Application.ScreenUpdating = False
' POUR POSITIONNEMENT PLEINE PAGE USERFORM
With Me
.StartUpPosition = 3
.Width = 950
.Height = Application.Height
.Left = 0
.Top = 0
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Layout()
Application.ScreenUpdating = False
'Définit la position horizontale de l'USF
Me.Left = 5
'Définit la position verticale de l'USF
Me.Top = 5
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton8_Click() ''OK
' pour fermer le formulaire et le sauvegarder
Unload Me 'Unload => Permet de fermer l'Userform et de l'effacer de la mémoire,
'les valeurs de ses contrôles sont à alors perdues.
' Me => Référence à l'objet en cours
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub CommandButton10_Click() ''ok
Application.ScreenUpdating = False


'Entrées des données
budgetchoix = ComboBox1.Value
fournisseur = ComboBox2.Value

Worksheets(budgetchoix).Select

i = ActiveSheet.Range("A65536").End(xlUp).Row
j = i + 1

Cells(j, 1) = Me.TextBox6.Value
Cells(j, 2) = fournisseur
Cells(j, 3) = Me.TextBox8.Value
Cells(j, 4) = Me.TextBox5.Value
Cells(j, 5) = Me.TextBox2.Value




Fichier.Save

Me.TextBox2.Text = ""
Me.TextBox5.Text = ""
Me.TextBox8.Text = ""
Me.TextBox6.Text = ""
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""

'GRAPHES

'GRAPHE_BUDGET

With Sheets(budgetchoix)
' Plage devant accueuillir le graphique
Set rPlageAcceuil = .Range("I1:L16").Offset(0, 1)
' Création du graphique, ne pas oublier le .Chart final
' L'objet graphique se place sur la plage et à sa taille
Set budgetGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
' Source du graphique
Set rPlageSource = .Range("G:H")
End With
With budgetGraph
' Type xlPieExploded=69
.ChartType = 5
'= 5 xlPie
' Source du graphique
.SetSourceData Source:=rPlageSource, PlotBy:=xlRows
' Affichage du titre
.HasTitle = True
' Intitulé
.ChartTitle.Characters.Text = budgetchoix
' Légende en position haute
.Legend.Position = xlLegendPositionTop
.FullSeriesCollection(1).Points(2).ApplyDataLabels
.FullSeriesCollection(1).Points(1).ApplyDataLabels
End With

' SAUVEGARDE DU GRAPHIQUE PH BASSIN CHOISI ET AFFICHAGE DANS FRAME 09 PH
budgetGraph.Export ThisWorkbook.Path & "\graphique.gif"
Me.Frame9.Picture = LoadPicture(ThisWorkbook.Path & "\graphique.gif")
'Worksheets(budgetchoix).ChartObjects.Delete


'GRAPHE SITUATION GLOBALE
Worksheets("SITUATION GLOBALE").Select

With Sheets("SITUATION GLOBALE")
' Plage devant accueuillir le graphique
Set rPlageAcceuil = .Range("A6:L24")
' Création du graphique, ne pas oublier le .Chart final
' L'objet graphique se place sur la plage et à sa taille
Set globalGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
' Source du graphique
Set rPlageSource = .Range("A:L")
End With
With globalGraph

.ChartType = 51
'xlColumnClustered
' Source du graphique
.SetSourceData Source:=rPlageSource, PlotBy:=xlRows
' Affichage du titre
.HasTitle = True
' Intitulé
.ChartTitle.Characters.Text = "Situation Globale"
' Légende en position haute
.HasLegend = False


End With


' SAUVEGARDE DU GRAPHIQUE PH BASSIN CHOISI ET AFFICHAGE DANS FRAME 09 PH
globalGraph.Export ThisWorkbook.Path & "\graphique.gif"
Me.Frame10.Picture = LoadPicture(ThisWorkbook.Path & "\graphique.gif")

Worksheets("SITUATION GLOBALE").ChartObjects.Delete
'entree nouveau fournisseur
If OptionButton1.Value = True Then
Worksheets("FOURNISSEURS").Select
i = ActiveSheet.Range("A65536").End(xlUp).Row
j = i + 1
Cells(j, 1) = fournisseur
ComboBox2.List = Sheets("FOURNISSEURS").Range("A:A").Value

End If

Application.ScreenUpdating = True

End Sub
Messages postés
14278
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 février 2021
804
c'est la même macro dans le même fichier, sur les deux PC?
moi j'exécuterais la macro en pas à pas, pour voir quand le message est généré?
lives.net, c'est bien un site de caméras en ligne?
Messages postés
4
Date d'inscription
mardi 2 février 2021
Statut
Membre
Dernière intervention
14 février 2021

Après une recherche approfondie , je l'avais copié dans le dossier Documents de l'autre pc, ( mm emplacement que sur le PC de création)
Sauf que ce dossier est sauvegardé automatiquement dans OneDrive.
Bon à savoir , il suffit de déplacer le fichier vers un dossier non relié à One Drive… ou de dévalider la sauvegarde du dossier Documents..
Décidément , 2 posts que je résous une fois posés…
Effet magique de votre aide, ou de ccm??
En tout cas merci encore de votre réponse rapide yg_be!!